| GetFirstDayOfMonth Routines |
Unit
QESBPCSDateTime
| Overloaded Variants |
| Function GetFirstDayOfMonth(const DT: TDateTime): TDateTime; |
| Function GetFirstDayOfMonth(const Month, Year: Word): TDateTime; |
| Function GetFirstDayOfMonth(const Month, Year: Integer): TDateTime; |
Declaration
Function GetFirstDayOfMonth(const DT: TDateTime): TDateTime;
Description
Alternatively for a given Month Year.
| Parameters |
| DT | Date/Time to process. |
| Month | Month in given year, 1 = Jan, 12 = Dec. |
| Year | 4-digit Year, such as 1999. |
Category
Date/Time Arithmetic Routines
Month Based Arithmetic RoutinesImplementation
function GetFirstDayofMonth (const DT: TDateTime): TDateTime;
var
D, M, Y: Integer;
begin
OptDecodeDateI (DT, Y, M, D);
Result := OptEncodeDateI (Y, M, 1) + Frac (DT);
End; |
Declaration
Function GetFirstDayOfMonth(const Month, Year: Word): TDateTime;Implementation
function GetFirstDayofMonth (const Month, Year: Word): TDateTime;
begin
Result := OptEncodeDateW (Year, Month, 1);
End; |
Declaration
Function GetFirstDayOfMonth(const Month, Year: Integer): TDateTime;Implementation
function GetFirstDayofMonth (const Month, Year: Integer): TDateTime;
begin
Result := OptEncodeDateI (Year, Month, 1);
End; |
|
|