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

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 von rollstuhlfahrer:

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.

Algorithmen wie ?

Algorithmen wie ?

AW: Algorithmen wie ?

AW: Algorithmen wie ?

AW: Algorithmen wie ?

AW: Algorithmen wie ?

AW: Algorithmen wie ?

AW: Algorithmen wie ?

AW: Algorithmen wie ?

Forumregeln

Bummi Registriert seit: 15. Jun 2010 Ort: Augsburg Bayern Süddeutschland 3.470 Beiträge Delphi XE3 Enterprise	#2 AW: Algorithmen wie ? 8. Jan 2011, 15:20 Ich komme mit Deinen Zahlen nicht klar, sowas wie DecodeDate suchst Du nicht? Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren DRY DRY KISS H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
	Zitat

s.h.a.r.k Registriert seit: 26. Mai 2004 3.159 Beiträge	#3 AW: Algorithmen wie ? 8. Jan 2011, 15:25 Ich muss zugeben, dass ich es auch nicht ganz verstehe Zudem solltest du deinem Thread einen aussagkräftigen Titel geben. Algorithmen schreiben wir täglich... »Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
	Zitat

markus5766h Registriert seit: 5. Mär 2009 Ort: Hamburg 569 Beiträge Delphi XE8 Professional	#4 AW: Algorithmen wie ? 8. Jan 2011, 16:00 Hallo, vielleicht hilft Dir das weiter : http://www.delphipraxis.net/145690-astro-daten.html Markus H.
	Zitat