Date2StarSign Function |
Unit
QESBPCSDateTime
Declaration
Function Date2StarSign(const DT: TDateTime): string;
Description
Values obtained from ESBStarSigns. Thanks to Tom Grieve for this routine.
Category
Date/Time Conversion RoutinesImplementation
function Date2StarSign (const DT: TDateTime): string; var Year, Month, Day: Integer; Ofs: Integer; begin OptDecodeDateI (DT, Year, Month, Day); case Month * 100 + Day of 0101..0119: Ofs := 12; // Capricorn 0120..0218: Ofs := 1; // Aquarius 0219..0320: Ofs := 2; // Pisces 0321..0419: Ofs := 3; // Aries 0420..0520: Ofs := 4; // Taurus 0521..0621: Ofs := 5; // Gemini 0622..0722: Ofs := 6; // Cancer 0723..0822: Ofs := 7; // Leo 0823..0922: Ofs := 8; // Virgo 0923..1022: Ofs := 9; // Libra 1023..1121: Ofs := 10; // Scorpio 1122..1221: Ofs := 11; // Sagittarius 1222..1231: Ofs := 12; // Capricorn else Ofs := 0; end; if Ofs in [1..12] then Result := ESBStarSigns [Ofs] else Result := ''; End; |
|