[Overview][Constants][Procedures and functions][Index] |
Check whether a given year/week/day of the week combination is a valid day.
Source position: dateutil.inc line 102
function IsValidDateWeek( |
const AYear: Word; |
const AWeekOfYear: Word; |
const ADayOfWeek: Word |
):Boolean; |
AYear |
|
Year |
AWeekOfYear |
|
Week in the year |
ADayOfWeek |
|
Day in the week |
True if the given combination is a valid date, False otherwise.
IsValidDateWeek returns True if AYear, AWeekOfYear and ADayOfWeek form a valid date indication, or False otherwise.
AYear must be in the range 1..9999 to be valid.
The ADayOfWeek,ADayOfWeek values are checked to see whether the combination falls within the valid range of weeks for AYear.
|
Check whether a set of values is a valid date indication. |
|
|
Check whether a set of values is a valid time indication. |
|
|
Check whether a set of values is a valid date and time indication. |
|
|
Check whether a given year/day of year combination is a valid date. |
|
|
Check whether a given year/month/week/day of the week combination is a valid day |
Program Example10; { This program demonstrates the IsValidDateWeek function } Uses SysUtils,DateUtils; Var Y,W,D : Word; B : Boolean; Begin For Y:=2000 to 2004 do begin B:=True; For W:=51 to 54 do For D:=1 to 7 do If B then begin B:=IsValidDateWeek(Y,W,D); If Not B then if (D=1) then Writeln(Y,' has exactly ',W,' weeks.') else Writeln(Y,' has ',W,' weeks and ',D-1,' days.'); end; end; End.