Sign in Join
FPDoc Onlineexperiment

IsValidDateDay function

In unit DateUtils

Check whether a given year/day of year combination is a valid date.

Declaration

pascal
function IsValidDateDay(const AYear: Word; const ADayOfYear: Word)
: Boolean

Arguments

AYear

Year.

ADayOfYear

Day in the year.

Function result

True if the given combination is a valid date, False otherwise.

Description

IsValidDateDay returns True if AYear and ADayOfYear form a valid date indication, or False otherwise.

AYear must be in the range 1..9999 to be valid.

The ADayOfYear value is checked to see whether it falls within the valid range of dates for AYear.

See also

Example: ex9

pascal
Program Example9;

{ This program demonstrates the IsValidDateDay function }

Uses SysUtils,DateUtils;

Var
  Y : Word;

Begin
  For Y:=1996 to 2004 do
    if  IsValidDateDay(Y,366) then
      Writeln(Y,' is a leap year');
End.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.