判断两个时间差是否在一个指定范围内 -WithinPastYears、WithinPastMonths、WithinPastWeeks、WithinPastDays

  • A+
所属分类:[开发技巧]
  1. DateUtils.WithinPastYears();  
  2. DateUtils.WithinPastMonths();  
  3. DateUtils.WithinPastWeeks();  
  4. DateUtils.WithinPastDays();  
  5. DateUtils.WithinPastHours();  
  6. DateUtils.WithinPastMinutes();  
  7. DateUtils.WithinPastSeconds();  
  8. DateUtils.WithinPastMilliSeconds();  
  9. unit Unit1;  
  10. interface  
  11. uses  
  12. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  13. Dialogs, StdCtrls;  
  14. type  
  15. TForm1 = class(TForm)  
  16. procedure FormCreate(Sender: TObject);  
  17. end;  
  18. var  
  19. Form1: TForm1;  
  20. implementation  
  21. {$R *.dfm}  
  22. uses DateUtils;  
  23. procedure TForm1.FormCreate(Sender: TObject);  
  24. var  
  25. t1,t2: TDateTime;  
  26. b: Boolean;  
  27. begin  
  28. t1 := StrToDateTime('2009-5-20 11:22:33');  
  29. t2 := StrToDateTime('2009-5-21 11:22:33');  
  30. {两个时间差是否在 24 年内}  
  31. b := WithinPastYears(t1, t2, 24); //True  
  32. {两个时间差是否在 24 个月内}  
  33. b := WithinPastMonths(t1, t2, 24); //True  
  34. {两个时间差是否在 24 个周内}  
  35. b := WithinPastWeeks(t1, t2, 24); //True  
  36. {两个时间差是否在 24 天内}  
  37. b := WithinPastDays(t1, t2, 24); //True  
  38. {两个时间差是否在 24 个小时内}  
  39. b := WithinPastHours(t1, t2, 24); //True  
  40. {两个时间差是否在 24 分钟内}  
  41. b := WithinPastMinutes(t1, t2, 24); //False  
  42. {两个时间差是否在 24 秒内}  
  43. b := WithinPastSeconds(t1, t2, 24); //False  
  44. {两个时间差是否在 24 毫秒内}  
  45. b := WithinPastMilliSeconds(t1, t2, 24); //False  
  46. // ShowMessage(BoolToStr(b, True));  
  47. end;  
  48. end.  
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: