Thema: Delphi Sternzeichen

Einzelnen Beitrag anzeigen

Touchdown

Registriert seit: 17. Feb 2003
227 Beiträge
 
#3

Re: Sternzeichen

  Alt 30. Aug 2003, 13:44
Ich würde vom Ausgansdatum (welches du ja haben musst) das Jahr abziehen, alles auf Basis von TDatetime.

Dann hast du höchstens einen Wert von 365, den genauen Wert kann man dann recht einfach dem entsprechenden Sternzeichen zuordnen.

Ganz wasserdicht mag es nicht sein, hinsichtilich Schaltjahr usw.
function getallfornothing: TGoldesel;
begin
result := TGoldesel.create;
end;
  Mit Zitat antworten Zitat