YearsBetween、MonthsBetween … YearSpan、MonthSpan … 间隔时间

  • A+
所属分类:[开发技巧]
  1. //DateUtils.YearsBetween();  
  2. //DateUtils.MonthsBetween();  
  3. //DateUtils.WeeksBetween();  
  4. //DateUtils.DaysBetween();  
  5. //DateUtils.HoursBetween();  
  6. //DateUtils.MinutesBetween();  
  7. //DateUtils.SecondsBetween();  
  8. //DateUtils.MilliSecondsBetween();  
  9. //DateUtils.YearSpan();  
  10. //DateUtils.MonthSpan();  
  11. //DateUtils.WeekSpan();  
  12. //DateUtils.DaySpan();  
  13. //DateUtils.HourSpan();  
  14. //DateUtils.MinuteSpan();  
  15. //DateUtils.SecondSpan();  
  16. //DateUtils.MilliSecondSpan();  
  17. unit Unit1;  
  18. interface  
  19. uses  
  20. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  21. Dialogs;  
  22. type  
  23. TForm1 = class(TForm)  
  24. procedure FormCreate(Sender: TObject);  
  25. end;  
  26. var  
  27. Form1: TForm1;  
  28. implementation  
  29. {$R *.dfm}  
  30. uses DateUtils;  
  31. procedure TForm1.FormCreate(Sender: TObject);  
  32. var  
  33. t1,t2: TDateTime;  
  34. i: Int64;  
  35. d: Double;  
  36. begin  
  37. t1 := StrToDateTime('2009-5-20 11:22:33');  
  38. t2 := StrToDateTime('2020-9-21 22:33:44');  
  39. i := YearsBetween(t1, t2); //11  
  40. i := MonthsBetween(t1, t2); //136  
  41. i := WeeksBetween(t1, t2); //591  
  42. i := DaysBetween(t1, t2); //4142  
  43. i := HoursBetween(t1, t2); //99419  
  44. i := MinutesBetween(t1, t2); //5965151  
  45. i := SecondsBetween(t1, t2); //357909071  
  46. i := MilliSecondsBetween(t1, t2); //357909070999  
  47. i := YearsBetween(t2, t1); //11, 参数无先后  
  48. {下面这个系列返回的时间间隔是 Double 类型的, 更精确}  
  49. d := YearSpan(t1, t2); //11.3414540712855  
  50. d := MonthSpan(t1, t2); //136.097448855426  
  51. d := WeekSpan(t1, t2); //591.780871362434  
  52. d := DaySpan(t1, t2); //4142.46609953704  
  53. d := HourSpan(t1, t2); //99419.1863888889  
  54. d := MinuteSpan(t1, t2); //5965151.18333333  
  55. d := SecondSpan(t1, t2); //357909071  
  56. d := MilliSecondSpan(t1, t2); //357909071000  
  57. end;  
  58. end.  
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

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