GetGoldenNumber Routines
Returns the GoldenNumber for a given Year.

Unit
QESBPCSDateTime

Overloaded Variants
Function GetGoldenNumber(const Year: Word): Integer;
Function GetGoldenNumber(const Year: Integer): Integer;
Function GetGoldenNumber(const DT: TDateTime): Integer;

Declaration
Function GetGoldenNumber(const Year: Word): Integer;

Description
Values are 1 -> 19. The relationship between the Moon's Phases and the Year, repeats itself every 19 years.

Parameters
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 GetGoldenNumber (const Year: Word): Integer;
begin
     Result := Year mod 19 + 1;
End;

Declaration
Function GetGoldenNumber(const Year: Integer): Integer;

Implementation

function GetGoldenNumber (const Year: Integer): Integer;
begin
     Result := Year mod 19 + 1;
End;

Declaration
Function GetGoldenNumber(const DT: TDateTime): Integer;

Implementation

function GetGoldenNumber (const DT: TDateTime): Integer;
begin
     Result := GetGoldenNumber (Date2Year (DT));
End;


HTML generated by Time2HELP
http://www.time2help.com