Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Redeemer,
28. Dez 2019
StrToDate sollte nicht mit Konstanten verwendet werden. Sonst stellt der Benutzer in den Regionseinstellungen irgendwas ein und dann läuft das Programm nicht mehr. 'Blablabla' ist kein gültiges Datum.
Daher ja MinDateTime als ersten Parameter nehmen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Redeemer,
27. Dez 2019
TTimeStamp.Date = DaysBetween(MinDateTime, irgendwas)? Oder noch +1?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Redeemer,
27. Dez 2019
Kann man auch kürzer schreiben:
function JD(dt: TDateTime): Double;
begin
JD := dt + 2415018.5;
end;
/Edit: für dt>=0, da TDateTime in Delphi dämlich definiert ist
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Redeemer,
27. Dez 2019
Ja gut, das geht ja einfach mit DIV und MOD. Dankbarerweise sind in der Geschichte keine ganzen Monate ausgefallen.
Aber soll das jetzt mit den Wochen sein?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Redeemer,
27. Dez 2019
Warum "muss"?
Die Aufgabe ist einfach dumm gestellt und ohne Angabe eine genauen Standortes unmöglich zu lösen, da (wenn wir mal julianische und gregorianische Kalender annehmen, und den neujulianischen rauslassen) abhängig vom Standort unterschiedliche und unterschiedlich viele Tage (mindestens 10) nicht definiert sind. Angenommen, du befändest dich im HRR, dann könntest du den 5.–14. Oktober...