[Overview][Constants][Procedures and functions][Index] |
Decode a TDateTime value in a week of year and day of week.
Source position: dateutil.inc line 327
procedure DecodeDateWeek( |
const AValue: TDateTime; |
out AYear: Word; |
out AWeekOfYear: Word; |
out ADayOfWeek: Word |
); |
AValue |
|
TDateTime to decode |
AYear |
|
Returns the year part of AValue. |
AWeekOfYear |
|
Returns the week of year part of AValue. |
ADayOfWeek |
|
Returns the day of week part of AValue. |
DecodeDateWeek decomposes the date indication in AValue and returns the various components in AYear, AWeekOfYear, ADayOfWeek.
|
Encodes a TDateTime value from all its parts |
|
|
Encodes a year, month, week of month and day of week to a TDateTime value |
|
|
Encode a TDateTime value from a year, week and day of week triplet |
|
|
Encodes a year and day of year to a TDateTime value |
|
|
Decode a TDateTime value in a date and time value |
|
|
Decode a TDateTime value in year and year of day. |
|
|
Decode a TDateTime value in a month, week of month and day of week |
Program Example81; { This program demonstrates the DecodeDateWeek function } Uses SysUtils,DateUtils; Var Y,W,Dow : Word; TS : TDateTime; Begin DecodeDateWeek(Now,Y,W,Dow); TS:=EncodeDateWeek(Y,W,Dow); Writeln('Today is : ',DateToStr(TS)); End.