判断时间是否合法 -IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay …

  • A+
所属分类:[开发技巧]
  1. DateUtils.IsValidDateTime
  2. DateUtils.IsValidDate
  3. DateUtils.IsValidTime
  4. DateUtils.IsValidDateDay
  5. DateUtils.IsValidDateWeek
  6. DateUtils.IsValidDateMonthWeek
  7. //可用下面几个过程抛出异常:
  8. DateUtils.InvalidDateDayError
  9. DateUtils.InvalidDateMonthWeekError
  10. DateUtils.InvalidDateTimeError
  11. DateUtils.InvalidDateWeekError
  12. DateUtils.InvalidDayOfWeekInMonthError
  13.   unit Unit1;
  14. interface
  15. uses
  16. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  17. Dialogs, StdCtrls;
  18. type
  19. TForm1 = class(TForm)
  20. procedure FormCreate(Sender: TObject);
  21. end;
  22. var
  23. Form1: TForm1;
  24. implementation
  25. {$R *.dfm}
  26. uses DateUtils;
  27. procedure TForm1.FormCreate(Sender: TObject);
  28. var
  29. b: Boolean;
  30. begin
  31. b := IsValidDateTime(2009521112233999); //True
  32. b := IsValidDateTime(20095211122339999); //False
  33. b := IsValidDate(2009521); //True
  34. b := IsValidDate(2009532); //False
  35. b := IsValidTime(1122330); //True
  36. b := IsValidTime(1122610); //False
  37. b := IsValidDateDay(2009141); //True
  38. b := IsValidDateDay(2009366); //False
  39. b := IsValidDateWeek(2009217); //True
  40. b := IsValidDateWeek(2009218); //False
  41. b := IsValidDateMonthWeek(2009537); //True
  42. b := IsValidDateMonthWeek(2009538); //False
  43. // ShowMessage(BoolToStr(b, True));
  44. end;
  45. end.
  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

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