延迟子程序的写法取决于你使用的编程语言和硬件平台。以下是几种不同编程语言和硬件平台下的延迟子程序示例：
1. 使用E8-ICE和石英振荡器的C语言程序
```c
include
void p0_dly（void） {
unsigned char LP_CNT0 = 0X20；
unsigned char LP_CNT1 = 0X21；
unsigned char A；
// 设定延迟寄存器0
A = 2；
LP_CNT0 = A；
CALLP0_DLY；
// 调节延迟时间
A = 200；
LP_CNT1 = A；
P0_LP:
NOP；
NOP；
NOP；
DJZ LP_CNT1, P0_LP；
// 循环调节延迟时间
DJZ LP_CNT0, P0_DLY；
RET；
}
```
2. 使用VBScript编写的延时子程序
```vbscript
Sub p0_dly（）
Dim Timer, start_time, stop_time, elapsed_time
' 获取当前时间（秒）
start_time = Timer
' 要延迟的秒数
Dim delay_seconds
delay_seconds = 2
' 计算停止时间
stop_time = start_time + delay_seconds
' 如果停止时间大于86400秒（1天），则进行溢出处理
If stop_time > 86400 Then
While Timer < stop_time
DoEvents
Wend
Else
While Timer < stop_time
DoEvents
Wend
End If
End Sub
```
3. 使用MCS-51汇编语言编写的单片机延时子程序
```assembly
ORG 00H
MOV R2, 18H ； 设置延时常数为18H（即400000H，6MHz晶振时100ms）
LCALL 7FEBH ； 调用延时子程序
RET
7FEBH: PUSH 02H ； 延时子程序入口
DELAY: MOV R7, 248 ； 延时循环次数
DELAY1: NOP ； 延时操作
DJNZ R7, DELAY1 ； 循环条件
DEC R7 ； 递减计数器
RET
END
```
4. 使用C语言编写的单片机延时子程序（10ms）
```c
void delay10ms（void） {
unsigned char i, j, k；
for （i = 5； i > 0； i--）
for （j = 4； j > 0； j--）
for （k = 248； k > 0； k--）；
}
```
5. 使用C语言编写的单片机延时子程序（精确到微秒）
```c
void delay2（unsigned char i） {
while （--i）；
}
void delay8（unsigned int t） {
while （--t）；
}
```
建议
精度：根据你的应用需求选择合适的延时方法。如果需要高精度，可以考虑使用硬件定时器或更高精度的延时方法。
可移植性：尽量选择跨平台的延时方法，以便在不同硬件和操作系统上运行。
简洁性：尽量保持代码简洁，便于理解和维护。
希望这些示例能帮助你编写适合自己的延迟子程序。