|
Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge
Delphi XE8 Professional
|
Re: Astro-Daten
12. Jan 2010, 15:58
o.k., wie ist's damit :
TMoonPhase8 = (mp_NewMoon, mp_WaxingMoonFirstEighth, mp_WaxingMoonFirstQuarter, mp_WaxingMoonThirdEighth, mp_FullMoon, mp_WaningMoonFifthEighth, mp_WaningMoonLastQuarter, mpWaningMoonSevensEighth);
Funktion
function GetMoonPhaseConst(Age : extended):TMoonPhase8;
eingefügt
Markus H.
|