Mathematiker - Sa 13.04.13 12:06
Hallo Fiete,
schönes Programm und für Star-Trek-Fans ein Muss.
Ich hatte auch schon einmal aus unserem Datum die Sternzeit ermittelt, mit
Delphi-Quelltext
1:
| sternzeit:=floattostr(2.73790926490113*(juldat(jahr,monat,tag)+(1.0*hour+min/60+sec/3600)/24-juldat(2323,1,1)))); |
wobei juldat das Julianische Datum über
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| function juldat(const jahr,mon,tag:integer):real;
var y,m,k:integer;
a,b:real;
begin
k:=10000*jahr+100*mon+tag;
b:=-63.5;
y:=jahr+4712;
m:=mon+1;
if mon<=2 then
begin
dec(y);
inc(m,12);
end;
if k>=15821015 then
begin
A:=int((y+88)/100);
b:=b+38-A+int(0.25*A);
end;
juldat:=int(365.25*y)+int(30.6001*m)+tag+b;
end; |
berechnet.
Mein Problem ist nun, dass meine Routine für jetzt die Sternzeit -309716,394 ausgibt. Die Abweichung nach dem Komma ergibt sich aus der Uhrzeit, aber die 3 Tage?
Ich werde darüber nachdenken.
Beste Grüße
Mathematiker
Nachtrag: Nach
http://www.hillschmidt.de/gbr/sternenzeit.htm ist Dein Ergebnis richtig, meins falsch. :cry:
Nachtrag 2:
http://www.stevepugh.net/fleet/stardate.html gilt für heute -310280.82 an. Jetzt wird es verwirrend.
Und noch ein Nachtrag: Nach
http://www.newstrekker.com/archiv/stardate.htm gibt es verschiedene Berechnungsmethoden. Es ist also vieles richtig. :mrgreen:
Wenn ich es richtig sehe, rechnest Du mit der mittleren gregorianischen Kalenderlänge, ich dagegen mit der mittleren tropischen Jahreslänge.