我现在写的一个程式中，需要计算员工的迟到时间和早退时间。 我在将员工的打卡时间读取到程式中去的时候，是使用字符串的格式，比如： 某员工，上班时间“0810”下班时间“1650” 现在对于该员工，正常上下班时间是“0800”“1700” 那么该员工应该迟到10分钟，早退10分钟， 但是我如果用1700－1650＝50分钟。结果错误。 我明白这是因为100与60所产生的差别，请教前辈，有什么办法可以解决时间的加减问题？

hi,liangzai: 將你所儲存的上下班時間,利用EncodeDate等相關涵數,將String轉TDateTime的型態,然後呼叫MinutesBetween函數,分別找出上下班時間與正常上下班時間所差的分鐘數即可

您好﹗    試試如下的方法﹕

Var
  DT1, DT2, DTDiff: TDateTime;
  HH, MM, SS, MS: Word;
begin
  HH := StrToInt(Copy('1700', 1, 2));
  MM := StrToInt(Copy('1700', 3, 2));
  SS := StrToInt('00');
  MS := StrToInt('00');
  DT1 := EncodeTime(HH, MM, SS, MS);
  HH := StrToInt(Copy('1650', 1, 2));
  MM := StrToInt(Copy('1650', 3, 2));
  SS := StrToInt('00');
  MS := StrToInt('00');
  DT2 := EncodeTime(HH, MM, SS, MS);
  ShowMessage(TimeToStr(DT1) + #10#13 + TimeToStr(DT2));
  DecodeTime(DT1-DT2, HH, MM, SS, MS);
  ShowMessage('相差﹕' + Format('%d 小時, %d 分鐘, %d 秒', [HH, MM, SS]));
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟