Hat jemand eine Idee oder einen Code wie ich das Julianische Datum berechnen kann ???
Announcement
Collapse
No announcement yet.
Julianisches Datum
Collapse
X
-
Hallo,<p>
haste schon die Lösung? Wenn nicht, versuchs hiermit:<p>
<PRE>
//---------------------------------------------------------------------------
// Tag, Monat, Jahr nach julianischer Tagesnummer
int TForm1::fsti_datjul(int tag,int monat,int jahr)
{
int c,ya,julday;
// int check_d,check_m,check_y,mm,yy;
if (monat > 2)
monat -= 3;
else
{
monat += 9;
jahr--;
}
c = jahr/100;
ya = jahr - 100 * c;
julday = (146097L * c)/4 + (1461 * ya)/4 + (153 * monat+2)/5 + tag+1721119L;
return julday;
}
//---------------------------------------------------------------------------
// Julianische Tagesnummer nach Tag, Monat, Jahr
int TForm1::fsti_juldat(int julian,int *tag,int *monat,int *jahr)
{ int rc;
int t,m,j;
rc=0;
if (julian < 2299161L)
{
rc = 1;
}
else {
julian -= 1721119L;
j = (4 * julian - 1) / 146097L;
t = (julian = 4 * julian - 1 - 146097L * j) / 4;
t = 4 * t + 3 - 1461 * (julian = (4 * t + 3) / 1461);
t = (t + 4) / 4;
m = (5 * t - 3) / 153;
t = 5 * t - 3 - 153 * m;
t = (t + 5) / 5;
j = 100 * j + julian;
if (m < 10)
m += 3;
else
{
m -= 9;
j += 1;
}
*tag = (int)t;
*monat = (int)m;
*jahr = (int)j;
}
return rc;
}
</pre>
Comment
Comment