Whether the judge time is legal in Delphi

Isvaliddatetime, Isvaliddate, Isvalidtime, Isvaliddateday ... Determine whether time is legal

DateUtils.IsValidDateTime
DateUtils.IsValidDate
DateUtils.IsValidTime
DateUtils.IsValidDateDay
DateUtils.IsValidDateWeek
DateUtils.IsValidDateMonthWeek

//可用下面几个过程抛出异常:
DateUtils.InvalidDateDayError
DateUtils.InvalidDateMonthWeekError
DateUtils.InvalidDateTimeError
DateUtils.InvalidDateWeekError
DateUtils.InvalidDayOfWeekInMonthError

Unit Unit1;

Interface

Uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls;

Type
TForm1 = Class (Tform)
Procedure Formcreate (Sender:tobject);
End

Var
Form1:tform1;

Implementation

{$R *.DFM}

Uses dateutils;

Procedure Tform1.formcreate (Sender:tobject);
Var
B:boolean;
Begin
B: = Isvaliddatetime (2009, 5, 21, 11, 22, 33, 999); True
B: = Isvaliddatetime (2009, 5, 21, 11, 22, 33, 9999); False

B: = Isvaliddate (2009, 5, 21); True
B: = Isvaliddate (2009, 5, 32); False

B: = Isvalidtime (11, 22, 33, 0); True
B: = Isvalidtime (11, 22, 61, 0); False

B: = Isvaliddateday (2009, 141); True
B: = Isvaliddateday (2009, 366); False

B: = Isvaliddateweek (2009, 21, 7); True
B: = Isvaliddateweek (2009, 21, 8); False

B: = Isvaliddatemonthweek (2009, 5, 3, 7); True
B: = Isvaliddatemonthweek (2009, 5, 3, 8); False

ShowMessage (Booltostr (b, True));
End

End.