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、