1、
var dtOnlineDateTime, dt: TDateTime; begin dt := StrToDateTime('2017/6/28 16:41:30'); dtOnlineDateTime := now - dt; // Memo1.Lines.Add( '在线时长:' + IntToStr(Trunc(dtOnlineDateTime)) + '天' // + FormatDatetime('H"小时"m"分"s"秒"', Frac(dtOnlineDateTime)) ); Memo1.Lines.Add( '在线时长:' + IntToStr(Trunc(dtOnlineDateTime)) + '天' + FormatDatetime('H":"m":"s', Frac(dtOnlineDateTime)) ); Memo1.Lines.Add(DateTimeToStr(now)); end;
2、
3、