gettime函数及错误表.docVIP

gettime 过程 在dos单元格式：gettime(h,m,s,se) 作用：返回当前时间(时，分，秒，毫秒)，其中h,m,s,se为word型。0=h=24,0=m=59,0=s=59,0=se=99秒。（来源百度百科) 然后写了一个计算时间的，时间差自己写 这个在这个程序中是没什么用的 估计以后会有用到 需要的用下吧 {code by Fair_jm} uses dos,crt;varh,m,s,se,h1,m1,s1,se1,h2,m2,s2,se2:word;j:boolean;begingettime(h,m,s,se);writeln(h,:,m,:,s,:,se);delay(5000); gettime(h1,m1,s1,se1);writeln(h1,:,m1,:,s1,:,se1); j:=false;se2:=(se1+100-se) mod 100;if se1se then j:=true; if j then begin s1:=s1+60-1; end;if (s1 mod 60s) then j:=true else j:=false;s2:=(s1+60-s) mod 60; if j then begin m1:=m1+60-1; end;if (m1 mod 60m) then j:=true else j:=false;m2:=(m1+60-m) mod 60; if j then begin h1:=h1+24-1; end;if (h1 mod 24h) then j:=true else j:=false;h2:=(h1+24-h) mod 24; writeln(h2,:,m2,:,s2,:,se2);readln;readln;end.end. {/fair_jm/} h,m,s,se 上次的时间????? h1,m1,s1,se1: 当前时间 h2,m2,s2,se2:相隔时间 word不支持负数吧~~~ 以后会用getdate写写看计算日期的 就这样玩玩吧 好久没写这种文章了 手工输入时间 只要把gettime那一段改成repeatreadln(h,m,s,se);until ((h=24) and (h=0) and (m=60) and (m=0) and (s=0) and (s=60) and (se=0) and (se=100)); repeatreadln(h1,m1,s1,se1);until ((h1=24) and (h1=0) and (m1=60) and (m1=0) and (s1=0) and (s1=60) and (se1=0) and (se1=100)); gettime 过程 在dos单元 　　格式：gettime(h,m,s,se) 作用：返回当前时间(时，分，秒，毫秒)，其中h,m,s,se为word型。0=h=24,0=m=59,0=s=59,0=se=99秒。 还有setdate(y,m,d,dw),settime(h,m,s,se)，请读者查阅Turbo Pascal的帮助文件。 [编辑本段] free pascal报错号对应翻译 运行错误 　　1 无效DoS功能号 　　2 文件末找到 　　3 路径未找到 　　4 打开文件过多 　　5 禁止文件存取 　　6 无效文件句柄 　　12 无效文件存取代码 　　15 无效驱动器号 　　16 不能删除当前目录 　　17 不能跨驱动器改文件名 　　100 Disk read error 磁盘读错误 　　101 Disk write error 磁盘写错误 　　102 文件变量末赋值 　　103 File not open 文件未打开 　　104 File not open for input 文件未用输入方式打开 　　105 File not open for output 文件末用输出方式打开 　　106 Invalid numeric format 无效数字格式 　　150 磁盘写保护 　　151 未知单元 　　152 驱动器未准备好 　　153 未知命令 　　154 数据CRC校验错 　　155 驱动器请求的结构长度错 　　156 磁盘定位错 　　157 未知媒介类型 　　158 扇区末找到 　　159 打印机缺纸 　　160 设备写失败 　　161 设备读失败 　　162 硬件故障 　　200 Division by zero 被零除 　　201 Range check error 数据范围检查错 　　202 Stack overflow error 堆栈