Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
23. Aug 2009
Zur Ergänzung biete ich noch eine plattformunabhängige Variante, die ich aus fölgendem Link übersetzt habe:
http://mathforum.org/library/drmath/view/62338.html
Fehlerhafte Übergabewerte müßt Ihr dann je nach Programmiersprache selbst abfangen.
Gruß
Wolfgang
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
2. Aug 2009
Habe die Funktion GregorToStr noch einmal vereinfacht.
Sie heißt jetzt GregorToDate und gibt jetzt statt einem String einen Datumswert zurück.
//Wolfgang Mix - Delphi-Praxis
//Returns date of a Gregorian day number; 1 = 1582-10-15; 152385 = 2000-1-1
function GregorToDate(n:longint):TDate;
begin
if (n >= 1) and (n <= 3074324) then
Result := n - 115859
else
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
18. Jul 2009
Danke Satty67,
kann mich nach längerem Hinsehen mit deiner Ergänzung anfreunden.
Die If-Abfrage wirkt positiver, und mit der Parameteränderung hast du natürlich recht.
Die Ergebnisse sind natürlich identisch.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
18. Jul 2009
Die häufigsten Kalenderfunktionen kommen mit dem gregorianischen Kalenderbereich aus.
Ich habe daher den 15.10.1582 als den gregorianischen Tag 1 definiert (ab 0 Uhr);
Gregor liefert die Tageszahl zu einem Datum, GregorToStr zu einer Tagesnummer
das Gregorianische Datum;
Ich freue mich wieder auf konstruktive Ergänzungen.
Aktualisierte Fassung hier
function...