請問時間要如何做比對呢 我把時間轉成字串的型態去做比對可是當時間過了午夜後 我凌晨01:00去跟22:00作比對時就無法得到 凌晨一點的時間比22點晚 請問各位大大要如何解決呢

不用轉成字串再比對 直接以 TDateTime/TDate/TTime 的型態去比大小就可以了. --- Have you ever wondered what it would be like?

引言:請問時間要如何做比對呢 我把時間轉成字串的型態去做比對可是當時間過了午夜後 我凌晨01:00去跟22:00作比對時就無法得到 凌晨一點的時間比22點晚 請問各位大大要如何解決呢

Do you mean the converted string comparsion is wrong? Perhaps you should try to compare the time directly or format the string property, e.g. time1 is 01:00, time2 is 22:00 frac(time1) < frac(time2) FormatDateTime('hhnnss',time1) < FormatDateTime('hhnnss',time2) P.S. why I need to add extra space before and after '<' in order to have it displayed properly? 發表人 - william 於 2003/03/26 11:52:44

在不同一日的時間 (TTime) 是無法正確對比的，因為 TTime 沒有日期資料，都會被當成是同一日的，22:00自然比 01:00 晚 若要跨日對比時間，就必須用 TDateTime / TTimeStamp 等包含日期及時間的資料形態作對比。建議使用 TDateTime,因為比較簡單。 另外，若兩個對比對象都是 TDateTime，直接對比即可不用轉變為文字。

再請問各位時間可以做加減嗎

可以，不過 1 是代表 1 日 所以加 1 小時就是 myTime := myTime (1/24); 加 1 分鐘就是 myTime := myTime (1/24/60); 加 1 秒鐘就是 myTime := myTime (1/24/60/60);

其實日期是以double型態的數字所運算的 所以可加減 每加一就是多一天 例

procedure TForm1.Button1Click(Sender: TObject);
  var
  dd,mm :TDateTime ;
  aa :real;
begin
  dd := Now 1 ;
  mm := now;
  aa := dd-mm;
  ShowMessage(FloatToStr(aa) #10#13 DateTimeToStr(dd));
end;

天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@