获取指定年月的周、日数 -WeeksInAYear、WeeksInYear、DaysInAYear、DaysInAMonth、DaysInYear、DaysInMonth

  • A+
所属分类:[开发技巧]
  1. DateUtils.DaysInYear();  
  2. DateUtils.DaysInMonth();  
  3. DateUtils.DaysInAYear();  
  4. DateUtils.DaysInAMonth();  
  5. DateUtils.WeeksInYear();  
  6. DateUtils.WeeksInAYear();  
  7. unit Unit1;  
  8. interface  
  9. uses  
  10. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  11. Dialogs, StdCtrls;  
  12. type  
  13. TForm1 = class(TForm)  
  14. procedure FormCreate(Sender: TObject);  
  15. end;  
  16. var  
  17. Form1: TForm1;  
  18. implementation  
  19. {$R *.dfm}  
  20. uses DateUtils;  
  21. procedure TForm1.FormCreate(Sender: TObject);  
  22. var  
  23. dt: TDateTime;  
  24. w: Word;  
  25. begin  
  26. dt := StrToDateTime('2009-5-20 11:22:33');  
  27. {指定日期所在年的总天数}  
  28. w := DaysInYear(dt); //365  
  29. {指定日期所在月的总天数}  
  30. w := DaysInMonth(dt); //31  
  31. {指定年的总天数}  
  32. w := DaysInAYear(2009); //365  
  33. {指定年、指定月的总天数}  
  34. w := DaysInAMonth(20095); //31  
  35. {指定日期所在年的总周数}  
  36. w := WeeksInYear(dt); //53  
  37. {指定年的总周数}  
  38. w := WeeksInAYear(2009); //53  
  39. end;  
  40. end.  
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
广告也精彩

发表评论

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