Date-Unit: Datumsberechnungen

[moritz]

Servus Leute,

ich schreibe gerade eine Date-Unit, die mir einige Berechnungen mit Daten durchführen kann. Heute habe ich sei fertiggestellt und auch mehrfach positiv getestet. Da auf dieser Basis allerdings ein neues Programm von mir entsteht, muss ich sicher sein, dass kein Fehler drin ist. Deswegen meine Bitte an euch: Die angehängt Anwendung zeigt euch zu einem Geburtsdatum einige Daten wie Alter, letzter Geburtstag, nächste Geburtstag und Sternzeichen an. Könntet ihr jeweils euer Geburtsdatum und schauen, ob alle Angaben stimmt? Wäre super!

Die Unit soll später Open-Source werden.

Vielen Dank, Moritz

Edit1: Erste Fehler ausgebessert.
Edit2: Schaltjahrprobleme verbessert.
Edit3: Einige kleine Problemverbesserungen

[RonnyKIEL]

Hallo,
auch bewi mir kappt es einwandfrei.
Gruß, Ronny

[engine]

Hallo moritz,

um es gleich vorweg zu nehmen, ich bin nicht am 29.02.2004 geboren.
Wenn doch, wäre dein Programm der Meinung ich sei 0 Jahre alt.
Jetzt stellt sich mir die Frage, wie Geburtstage an einem 29.02 definiert werden.


Gruß ... engine

[moritz]

Moin!

Tjoa, das mit dem verdammten 29.2 ist so ne Sache. Ich habe mich bei der Zählmethode dazu entschieden, den nächsten existierenden Tag als nächsten Geburtstag zu definieren. Und am 29.2. ist das natürlich nur alle 4 Jahre.
Aber da werde ich vermutlich noch was ändern müssen, damit die armen davon nicht benachteiligt werden.

Gruß

[engine]

Hallo Moritz,

Die Tage vom aktuellen Datum bis zum letzten Schaltjahr kannst du ja ausrechnen.
Nun noch die Jahre bis zum letzten Schaltjahr.

Delphi-Quellcode:

function JahreNachSchaltjahr(TageNachSchaltjahr : integer) : integer;
begin
  if TageNachSchaltjahr < 365 then
  begin
    Result := 0;
    Exit;
  end;
  if TageNachSchaltjahr > 1460 then //mehr wie vier Jahre
  begin
    Result := -1;
    Exit;
  end;
  Result := Round((TageNachSchaltjahr / 365) -0.5);
end;

Das addierst du mit den Jahren zwischen dem Geburtstag und dem letzten Schaltjahr.

engine

[alzaimar]

Soweit ich weiss, feiern die armen Würstchen, die an einem 29.2 Geburtstag haben, von Amts wegen am 1.3 ihren Geburtstag.

[ManuMF]

Zitat von moritz:

Die Unit soll später Open-Source werden.

Wieviel später?

Oder anders ausgedrückt: Wird die Unit noch weiterentwickelt? Wird es sie als Freeware geben?

[moritz]

Moin!

Hm...das ist jetzt natürlich blöd. Also, die Unit gehört zu einem Programm von mir, für das ich die letzten 2 Jahre immer weniger Zeit hatte und die nächsten zwei Jahre sicher keine Zeit haben werde - aus diesem Grund habe ich es vor einigen Wochen an eine Firma weitergegeben.

Etz gestaltet die Sache sich da natürlich komplizierter, weil die Firma den Quellcode (und damit auch die Unit) zwar weiterentwickelt, und zwar auch als Freeware, allerdings nicht OpenSource. Was hältst du davon: Sobald die neue Version erscheint, frage ich mal nach, ob da ne Möglichkeit besteht?

Müsstest mich halt evtl nochmal erinnern *g*

lg, mo

[ManuMF]

Das mit der Zeit kann ich verstehen...

Zitat von moritz:

Sobald die neue Version erscheint, frage ich mal nach, ob da ne Möglichkeit besteht?

Ja, das wäre nett.