Returns the Date of Good Friday for given Year - based on current Calendar.Unit
QESBPCSDateTime
Declaration
Function GetGoodFriday(const Year: Word): TDateTime;
Year | the Year to be processed - should be 4 digit, eg 1999. |
DT | the Date to be processed. |
Category
Date/Time Arithmetic Routines
Year Based Arithmetic Routines
Implementation
function GetGoodFriday (const Year: Word): TDateTime;
begin
Result := GetEasterSunday (Year) - 2;
End; |
Declaration
Function GetGoodFriday(const Year: Integer): TDateTime;Implementation
function GetGoodFriday (const Year: Integer): TDateTime;
begin
Result := GetEasterSunday (Year) - 2;
End; |
Declaration
Function GetGoodFriday(const DT: TDateTime): TDateTime;Implementation
function GetGoodFriday (const DT: TDateTime): TDateTime;
begin
Result := GetGoodFriday (OptDate2Year (DT));
End; |
HTML generated by Time2HELP
|
http://www.time2help.com