[Overview][Constants][Types][Classes][Procedures and functions][Variables] Reference for unit 'sysutils' (#rtl)

StrToDate

Convert a date string to a TDateTimevalue.

Declaration

Source position: datih.inc line 118

function StrToDate(

  const S: String

):TDateTime;

Description

StrToDateconverts the string Sto a TDateTimedate value. The Date must consist of 1 to three digits, separated by the DateSeparatorcharacter. If two numbers are given, they are supposed to form the day and month of the current year. If only one number is given, it is supposed to represent the day of the current month. (This is notsupported in Delphi)

The order of the digits (y/m/d, m/d/y, d/m/y) is determined from the ShortDateFormatvariable.

Errors

On error (e.g. an invalid date or invalid character), an EConvertErrorexception is raised.

See also

StrToTime

  

Convert a time string to a TDateTimevalue.

DateToStr

  

Converts a TDateTimevalue to a date string with a predefined format.

TimeToStr

  

Convert a TDateTimetime to a string using a predefined format.

Example

Program Example19;

{ This program demonstrates the StrToDate function }

Uses sysutils;

Procedure TestStr (S : String);

begin
  Writeln (S,' : ',DateToStr(StrToDate(S)));
end;

Begin

  Writeln ('ShortDateFormat ',ShortDateFormat);
  TestStr(DateTimeToStr(Date));
  TestStr('05/05/1999');
  TestStr('5/5');
  TestStr('5');
End.