[Overview][Constants][Procedures and functions] Reference for unit 'dateutils' (#rtl)

IsValidDateTime

Check whether a set of values is a valid date and time indication.

Declaration

Source position: dateutil.inc line 86

function IsValidDateTime(

  const AYear: Word;

  const AMonth: Word;

  const ADay: Word;

  const AHour: Word;

  const AMinute: Word;

  const ASecond: Word;

  const AMilliSecond: Word

):Boolean;

Arguments

AYear

  

Year value

AMonth

  

Month in the year

ADay

  

Day in the month

AHour

  

Hour of the day

AMinute

  

Minute in the hour

ASecond

  

Second in the minute

AMilliSecond

  

Milliseconds in the second

Function result

Trueif the given values form a valid date/time pair, Falseif not.

Description

IsValidTimereturns Truewhen the values AYear, AMonth, ADay, AHour, AMinute, ASecondand AMilliSecondform a valid date and time indication. If one of the values is not valid (e.g. the seconds are larger than 60), Falseis returned.

AYearmust be in the range 1..9999 to be valid.

See also

IsValidDate

  

Check whether a set of values is a valid date indication.

IsValidTime

  

Check whether a set of values is a valid time indication.

IsValidDateDay

  

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

IsValidDateWeek

  

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

IsValidDateMonthWeek

  

Check whether a given year/month/week/day of the week combination is a valid day

Example

Program Example7;

{ This program demonstrates the IsValidDateTime function }

Uses SysUtils,DateUtils;

Var
  Y,Mo,D : Word;
  H,M,S,MS : Word;
  I : Integer;

Begin
  For I:=1 to 10 do
    begin
    Y:=2000+Random(5);
    Mo:=Random(15);
    D:=Random(40);
    H:=Random(32);
    M:=Random(90);
    S:=Random(90);
    MS:=Random(1500);
    If Not IsValidDateTime(Y,Mo,D,H,M,S,MS) then
      Writeln(Y,'-',Mo,'-',D,' ',H,':',M,':',S,'.',MS,' is not a valid date/time.');
    end;
End.