Mega Code Archive

Datetimetostr - converts tdatetime date and time values to a string sysutils unit

1 function DateTimeToStr ( DateTime : TDateTime ) : string; 2 function DateTimeToStr ( DateTime : TDateTime; const FormatSettings : TFormatSettings ) : string; Description The DateTimeToStr function converts a TDateTime value DateTime into a formatted date and time string. The string comprises : Date in ShortDateFormat 1 blank Time in LongTimeFormat See these two formatting variables for more details. The date and time formats are also affected by the DateSeparator and TimeSeparator values. Version 2 of this function is for use within threads. You furnish the FormatSettings record before invoking the call. It takes a local copy of global formatting variables that make the routine thread safe. Notes If the time is Midnight (00:00), then it is not stored in the string. Quite why is another matter. Related commands DateSeparator The character used to separate display date fields DateTimeToString Rich formatting of a TDateTime variable into a string LongTimeFormat Long version of the time to string format ShortDateFormat Compact version of the date to string format StrToDate Converts a date string into a TDateTime value StrToDateTime Converts a date+time string into a TDateTime value StrToTime Converts a time string into a TDateTime value TFormatSettings A record for holding locale values for thread-safe functions TimeSeparator The character used to separate display time fields Example code : Converting two date/time values to strings var myDate : TDateTime; begin myDate := StrToDateTime('09/02/2002 12:00'); ShowMessage('Middle of a day = '+DateTimeToStr(myDate)); myDate := StrToDateTime('09/02/2002 00:00'); ShowMessage('Start of a day = '+DateTimeToStr(myDate)); end; Show full unit code Middle of a day = 09/02/2002 12:00:00 Start of a day = 09/02/2002