Julianberechnung

[hesubat]

Delphi-Quellcode:

This function can only be called from the VwStreamSection function. 

VOID SOSetDataBase(

    DWORD dwBase,   
    WORD wFlags,   
    HPROC reserved   
   );   
 
Parameters

dwBase

Base number of Julian days to be automatically added to dates. All dates are entered in Julian day format in the following manner:

Jan. 1, 4713 B.C.   Julian Day 1
Jan. 1, 1 A.D.   Julian Day 1721424
Jan. 1, 1900   Julian Day 2415021
Jan. 1, 1904   Julian Day 2416481

Dieser Code ist also nicht direkt zu verwenden. Gibt es einen einfacheren Weg, wobei ich nicht an diversen Formeln denke, sondern an einen in Delphi implementierten Befehl? :stupid:

[sirius]

Hat die DateUtils nicht konvertierungsfunktionen?

Edit: DateTimeToJulianDate beispielsweise

Aber was ist eigentlich deine Frage?

[hesubat]

Hi Sirius,
danke fuer deine Antwort. Du hast es richtig getroffen: DatetimetoJulian. Eine ebensolche Funktion kann ich in Delphi nicht finden (Delphi5 u. Delphi7). Du fragst nach den Konvertierungsfunktionen von DateUtils. Habe ich nicht lange und gruedlich genug gesucht? Konnte jedenfalls nichts derartiges finden. Und du fragst nach dem 'Warum'. Es gibt eine Menge an Formeln, nach denen man den Julianwert berechnen kann. Die mathematische Literatur ist voll davon. Aber sie unterscheiden sich manchmal, sind kompliziert aufgebaut und oft mangels Erlaeuterungen nicht nachzuvollziehen. Es wundert mich, dass in diese in der Astronomie gebraeuchliche Groesse von Borland ausser Acht gelassen wird. Muss ich denn eine eigene Fuktion schreiben? Oder sind meine Delphi-Versionen veraltet? Solltest Du mehr finden, lass es mich bitte wissen.
Meine Frage war die nach einer solchen Funktion in Delphi.

[lbccaleb]

Zitat:

Zitat von hesubat

Hi Sirius,
danke fuer deine Antwort. Du hast es richtig getroffen: DatetimetoJulian. Eine ebensolche Funktion kann ich in Delphi nicht finden (Delphi5 u. Delphi7). Du fragst nach den Konvertierungsfunktionen von DateUtils. Habe ich nicht lange und gruedlich genug gesucht? Konnte jedenfalls nichts derartiges finden. Und du fragst nach dem 'Warum'. Es gibt eine Menge an Formeln, nach denen man den Julianwert berechnen kann. Die mathematische Literatur ist voll davon. Aber sie unterscheiden sich manchmal, sind kompliziert aufgebaut und oft mangels Erlaeuterungen nicht nachzuvollziehen. Es wundert mich, dass in diese in der Astronomie gebraeuchliche Groesse von Borland ausser Acht gelassen wird. Muss ich denn eine eigene Fuktion schreiben? Oder sind meine Delphi-Versionen veraltet? Solltest Du mehr finden, lass es mich bitte wissen.
Meine Frage war die nach einer solchen Funktion in Delphi.

Zitat:

Zitat von hesubat

Oder sind meine Delphi-Versionen veraltet?

also, als erstemal, ich denke nicht das die delphiversionen 5 und 7 veraltet sind (obwohl das streithema ist, und hier wieder zur ner ot disskussion wird)! ich selber benutze delphi 7 enterprise, und will im mom auch noch nicht wirklich was anderes haben^^

Zitat:

Zitat von hesubat

Habe ich nicht lange und gruedlich genug gesucht?

zu der unit DateUtils! diese kannst du einfügen, wenn du sie in der uses clausel hinnzufügst, also:

Delphi-Quellcode:

uses
  windows,
  sysutils,
  ...
  DateUtils, // hier einfach einfügen, stelle ist egal..
  forms;

du kannst dir aus der datetimeutils zur not auch eine eigene funktion zurechtbasteln!!!

dazu hilft das hier vllt bei der berechnung:

Julianisches Datum

[hesubat]

Hi lbccaleb,
danke fuer Deine Ausfuehrungen. Delphi5 kennt zwar die entsprechende .dcu nicht aber mit Delphi7
funzt es. Ich hab's doch gewusst: In diesem Forum findet sich immer ein Wissender, der helfen kann. Habe damit den Wirrwarr an Formeln rausnehmen koennen. Habe auch den Link zu Wikipedia aufgesucht und den Text gespeichert, und ich werde bei Gelegenheit die Formeln ueberdenken. Mit den Erlaeuterungen dort muesste man die Formeln verstehen koennen. Danke nochmals. Problem geloest.

[lbccaleb]

noch ne anmerkung am rande, wenn du in delphi die "strg-taste" drückst, und mit der maus auf "dateutils" oder "forms" oder was auch immer klickst, werden die units automatisch geöffnet, ausser er kann sie nicht finden ;-)

[hesubat]

Hi Martin,

ein Super-Tip, das mit der CTRL-Taste und dem Mausklick. Hab gleich ein wenig gewuehlt und kleine Einblicke gewonnen. Danke.

Heinz :hello: