Zitat:
Oder in Stunden ausgedrückt (1h = 15°) sind das 1,4524074 Stunden. Kann das hinkommen?
Noch nicht so ganz: So müsste es laut Referenz sein:
2015-01-01 08:41:19
Das kommt von einer Perl Lib.
Aber so ist es laut Astro
Unit
2015-01-01 08:59:10
Es sind also fast 20 Minuten zu viel.
Aber wir nähern uns.
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
SunRise,SunSet,DT:TDateTime;
YY, MM, DD, H, M, S, MS:Word;
I1,I2, DM:integer;
D:TDate;
begin
InitLocale; // Muss das gemacht werden? Ändert jedenfalls nichts.
for I1:=1 to 12 do begin
DM:=DaysInAMonth(2015,I1);
for I2:=1 to DM do begin
D:=EncodeDate(2015,I1,i2);
SunRise:=Sun_Rise(D,+53.143889,+21.786111,ctZivil); // 8.213889
Memo1.Lines.Add(DateTimeToStr(SunRise));
end;
end;
end;