Algorithmen wie ?

[madina]

Hallo,

ich habe ein Prog, der mir Neumonde vom 14.7.622(Eingang -466580.76963)-31.12.4500(Eingang 950001.14392) berechnet.

Dabei will ich so Jahr und Monat vom 14.7.622(= 01.01.0001)-31.12.4500 (=0.06.3998)fortlaufend berechnen.

Wie kann ich dies realisieren mit DIV und MOD, daß ich bei einer Eingabe vom TDateTime die Fkt mir Monat und Jahr zurückgibt?


MFG
Ati

[Bummi]

Ich komme mit Deinen Zahlen nicht klar, sowas wie DecodeDate suchst Du nicht?

[s.h.a.r.k]

Ich muss zugeben, dass ich es auch nicht ganz verstehe :gruebel:

Zudem solltest du deinem Thread einen aussagkräftigen Titel geben. Algorithmen schreiben wir täglich...

[markus5766h]

Hallo,

vielleicht hilft Dir das weiter :
http://www.delphipraxis.net/145690-astro-daten.html

[madina]

Hallo,

nicht wild fremdes:

Neumonddatum vom 14.7.0622(Eingang -466580.76963: TDateTime) bis 31.12.4500(Eingang 950001.14392: DateTime).

ich will 14.07.0622=01.01.0001 usw fortlaufend bis 31.12.4500=01.06.3998 setzen.

Function MonatJahr(Eingang: TDateTime; var iMonat, iJahr: Integer);
begin
iMonat:= Eingang MOD 12;
iJahr := Eingang DIV 12;
end

MFG
Ati

[rollstuhlfahrer]

nun ja, deine Problembeschreibung hat sich nicht viel verändert.

Allerdings: Um dein Ziel zu erreichen mal ein Tipp: TDateTime ist ein Double. Die Zahl vor dem Komma ist die Anzahl der Tage nach einem bestimmten Datum. Ich müsste es jetzt raussuchen, aber es liegt um das Jahr 1970 (hoff ich doch). Der Teil hinter dem Komma ist der Bruchteil eines Tages, der schon vergangen ist.

Und du willst jetzt eine Funktion haben, die dir den gregorianischen Kalender in einen mondbasierten Kalender umrechnet?

Bernhard

[markus5766h]

Zitat:

Zitat von rollstuhlfahrer (Beitrag 1073291)

nun ja, deine Problembeschreibung hat sich nicht viel verändert.
. . . Ich müsste es jetzt raussuchen, aber es liegt um das Jahr 1970 (hoff ich doch). Der Teil hinter dem Komma ist der Bruchteil eines Tages, der schon vergangen ist.

Die Zahl vor dem Komma sind Tage ab (oder vor 1900 bei negativem Vorzeichen) bei
einer Jahres-Tageszahl von 365,25.
Die Nachkommastellen sind die Sekunden ab 0 Uhr.

[Wolfgang Mix]

Wenn du den Zeitstempel von Delphi verstanden hast, dürfte der Rest kein Problem sein. Teste mal bitte mein Programm im Anhang.