[Overview][Constants][Procedures and functions][Index] |
Return the start of a day as a TDateTime value, given a day indication
Source position: dateutil.inc line 180
function StartOfADay( |
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. |
Start of the given day as TDateTime
AYear |
|
Year |
ADayOfYear |
|
Day in the year. |
StartOfADay returns a TDateTime value with the date/time indication of the start (0:0:0.000) 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 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. |
|
|
Calculates a TDateTime value representing the end of a specified day |
Program Example38; { This program demonstrates the StartOfADay function } Uses SysUtils,DateUtils; Const Fmt = '"Start 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,StartOfADay(Y,M,D))); DecodeDateDay(Today,Y,D); Writeln(FormatDateTime(Fmt,StartOfADay(Y,D))); End.