Skip to content

DecodeDateTime

Decode a TDateTime value in a date and time value

Declaration

Source position: dateutil.inc line 305

  procedure DecodeDateTime(const AValue: TDateTime; out AYear: Word; 
                          out AMonth: Word; out ADay: Word; 
                          out AHour: Word; out AMinute: Word; 
                          out ASecond: Word; out AMilliSecond: Word);

Description

DecodeDateTime decomposes the date/time indication in AValue and returns the various components in AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond

See also

Name Description
DecodeDateDay Decode a TDateTime value in year and year of day.
DecodeDateMonthWeek Decode a TDateTime value in a month, week of month and day of week
DecodeDateWeek Decode a TDateTime value in a week of year and day of week.
EncodeDateDay Encodes a year and day of year to a TDateTime value
EncodeDateMonthWeek Encodes a year, month, week of month and day of week to a TDateTime value
EncodeDateTime Encodes a TDateTime value from all its parts
EncodeDateWeek Encode a TDateTime value from a year, week and day of week triplet

Example

Program Example79;
{ This program demonstrates the DecodeDateTime function }
Uses SysUtils,DateUtils;
Var
  Y,Mo,D,H,Mi,S,MS : Word;
  TS : TDateTime;
Begin
  DecodeDateTime(Now,Y,Mo,D,H,Mi,S,MS);
  TS:=EncodeDateTime(Y,Mo,D,H,Mi,S,MS);
  Writeln('Now is : ',DateTimeToStr(TS));
End.