delphi 求两个时间差

笑书神侠 發表於 2020-3-7 15:19:00

相关资料：
http://www.360doc.com/content/12/0628/09/7662927_220905393.shtml  //delphi 求两个时间差
https://blog.csdn.net/zengcong2013/article/details/46369523   //delphi “div”、“mod”、“\”除法运算符的区别与使用方法
http://www.delphitop.com/html/shijian/3220.html  //01天 01:01:02输出方式
 
<div class="cnblogs_code">
<pre> 1 procedure TForm1.Button8Click(Sender: TObject);
 2 var
 3 sd, nd: TDateTime;
 4 randid: string;
 5 begin
 6 sd := StrtoDatetime ('1981/08/08 00:00:00');
 7 nd := Now;
 8 Memo1.Clear;
 9 Memo1.Lines.Add('开始测试时间差:');
10 Memo1.Lines.Add('起始时间:1981-08-08 00:00:00');
11 Memo1.Lines.Add('终止时间:'+DateTimeToStr(nd));
12 Memo1.Lines.Add('年:'+IntToStr(YearsBetween(sd, nd)));
13 Memo1.Lines.Add('月:'+IntToStr(MonthsBetween(sd, nd)));
14 Memo1.Lines.Add('周:'+IntToStr(WeeksBetween(sd, nd)));
15 Memo1.Lines.Add('日:'+IntToStr(DaysBetween(sd, nd)));
16 Memo1.Lines.Add('时:'+IntToStr(HoursBetween(sd, nd)));
17 Memo1.Lines.Add('分:'+IntToStr(MinutesBetween(sd, nd)));
18 Memo1.Lines.Add('秒:'+IntToStr(SecondsBetween(sd, nd)));
19 Memo1.Lines.Add(#13) ;
20 Memo1.Lines.Add('以秒差为例生成随机数: ');
21 randid := IntToStr(SecondsBetween(sd, nd))+
22 IntToStr(random(9))+
23 IntToStr(random(9))+
24 IntToStr(random(9))+
25 IntToStr (random(9));//呵呵，很笨的方法。
26 Memo1.Lines.Add(randid);
27 end; 结果如下： 开始测试时间差:
起始时间:1981-08-08 00:00:00
终止时间:2020/3/7 15:17:37
年:38
月:462
周:2013
日:14091
时:338199
分:20291957
秒:1217517457
以秒差为例生成随机数:
12175174571070
 </pre>
</div>
 
<div class="cnblogs_code">
<pre> 1 function GetSubDateTime(S1, S2:string): string;
 2 var
 3 T1, T2: TDateTime;
 4 D, H, M, S: Integer;
 5 Value: Int64;
 6 begin
 7 T1 := StrToDateTime(S1);
 8 T2 := StrToDateTime(S2);
 9 Value := SecondsBetween(T1, T2);
10 D := Value div SecsPerDay;
11 H := Value mod SecsPerDay div SecsPerHour;
12 M := Value mod SecsPerDay mod SecsPerHour div SecsPerMin;
13 S := Value mod SecsPerDay mod SecsPerHour mod SecsPerMin;
14 result := Format('%.2d天 %.2d:%.2d:%.2d',);
15 end; 输入2020/03/06 14:39:32 输入2020/03/07 15:40:34 结果如下： 01天 01:01:02</pre>
</div>
 

</div>
<div id="MySignature" role="contentinfo">
<div id="AllanboltSignature">
 <div>作者：疯狂Delphi</div>
 <div>出处：https://www.cnblogs.com/FKdelphi/</div>
 <div>本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利.</div>
</div>
<div class="div_masklayer" id="div_masklayer"></div>
<div class="div_popup" id="Div_popup">
欢迎关注我，一起进步！扫描下方二维码即可加我
<img class="img_zfb" id="img_zfb" width="150" src="https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_251208113944_QQ.png">
<img class="img_zfb" id="img_zfb" width="150" src="https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_251208115029_WX.png">
</div> 
来源：https://www.cnblogs.com/FKdelphi/p/12434454.html

頁: [1]

琼殿技术论坛's Archiver

delphi 求两个时间差