兩個日期時間相減，計算登錄在線時長，此代碼為正解！！！
其中DateTime為當前時間，gdLoginDateTime為系統登錄時間
var dtOnlineDateTime: TDateTime;
begin
if DateTimeToStr(gdLoginDateTime) <> '1899-12-30' then
begin
dtOnlineDateTime := DateTime - gdLoginDateTime;
lblOnlineTime.Caption := '在線時長：' + IntToStr(Trunc(dtOnlineDateTime)) + '天'
+ FormatDatetime('H"小時"m"分"s"秒"', Frac(dtOnlineDateTime));
end;
end;
uj5u.com熱心網友回復：
這樣，就理好理解了：
procedure TForm1.Button1Click(Sender: TObject);
var subtrahend,DateTimeFirst,DateTimeLast:TDateTime;
begin
DateTimeFirst:=StrToDateTime('2013-11-11 12:23:34');
DateTimeLast:=StrToDateTime('2015-11-11 15:28:39');
subtrahend:=DateTimeLast-DateTimeFirst;
Edit1.Text:= '在線時長：' + IntToStr(Trunc(subtrahend)) + '天'
+ FormatDatetime('H"小時"m"分"s"秒"', Frac(subtrahend));
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/77562.html
標籤：語言基礎/算法/系統設計
上一篇：跨行程獲取設定了LVS_OWNERDATA 的SYSLISTVIEW32控制元件中的資料
下一篇：CSP201903-2二十四點