这是个计算两个日期时间之间差值的单元 1>你在使用时只要把diffdatetime.duc文件复制到你的工程目录中，并在要使用的单元中如下引用。 implementation uses diffdatetime;//引用即可。 {$R *.dfm} 2>函数说明 function DiffDay( Date_A,Date_B:String):String;//两个日期天数差值 function DiffHOUR( Time_A,Time_B:String):String;//两个日期小时数差值 function DiffMIN( A_TIME,B_TIME:String):String;//两个日期分钟数差值 fu nction DiffSEC( S_TIME,E_TIME:String):String;//两个日期秒数差值 3> 参考test.dpr的使用方法 by Liangsiwen (QQ：994502129) http://www.asanmusic.com nction DiffSEC( S_TIME,E_TIME:String):String;//两个日期秒数差值 3> 参考test.dpr的使用方法 by Liangsiwen (QQ：994502129) http://www.asanmusic.com