[Overview][Constants][Procedures and functions][Index] |
Calculates a TDateTime value representing the end of a specified day
Source position: dateutil.inc line 182
function EndOfADay( |
const AYear: Word; |
const AMonth: Word; |
const ADay: Word |
):TDateTime; overload; |
const AYear: Word; |
const ADayOfYear: Word |
):TDateTime; overload; |
AYear |
|
Year |
AMonth |
|
Month in the year |
ADay |
|
Day in the month |
A TDateTime value representing the time 23:59:59.999 of the given day.
AYear |
|
Year |
ADayOfYear |
|
Day of the year |
EndOfADay returns a TDateTime value with the date/time indication of the last moment (23:59:59.999) of the day given by AYear, AMonth, ADay.
The day may also be indicated with a AYear, ADayOfYear pair.
|
Calculate the start of the day as a TDateTime value, given a moment in the day. |
|
|
Return the start of a day as a TDateTime value, given a day indication |
|
|
Return the first day of the week, given a date. |
|
|
Return a day of the week, given a year, week and day in the week. |
|
|
Return first date of month, given a year/month pair. |
|
|
Calculate the first day of the month, given a date in that month. |
|
|
Calculate a TDateTime value which represents the end of a week, given a date in that week. |
|
|
Return the last moment of day of the week, given a year and a week in the year. |
|
|
Calculate a TDateTime value representing the last day of a year, given a date in that year. |
|
|
Calculate a TDateTime value representing the last day of a year |
|
|
Calculate a TDateTime value representing the last day of the month, given a day in that month. |
|
|
Calculate a TDateTime value representing the last day of the indicated month |
|
|
Calculate a TDateTime value that represents the end of a given day. |
Program Example39; { This program demonstrates the EndOfADay function } Uses SysUtils,DateUtils; Const Fmt = '"End of the day : "dd mmmm yyyy hh:nn:ss'; Var Y,M,D : Word; Begin Y:=YearOf(Today); M:=MonthOf(Today); D:=DayOf(Today); Writeln(FormatDateTime(Fmt,EndOfADay(Y,M,D))); DecodeDateDay(Today,Y,D); Writeln(FormatDateTime(Fmt,EndOfADay(Y,D))); End.