Datumsdifferenz berechnen?

[arnof]

Tage=Ferienbeginn -now;

Ferienbeginn muss einfach ein TDate sein!

Ich verstehe das Problem garnicht

Das funktioniert

[Furtbichler]

Zitat von arnof:

Tage=Ferienbeginn -now;
Ferienbeginn muss einfach ein TDate sein!
Ich verstehe das Problem garnicht
Das funktioniert

Es geht darum, die auf der ersten Seite im ersten Post gemachten Vorgaben eben *nicht* zu ignorieren. Ich postuliere, das dies zu massivem Punktabzug führt. Stichwort: Schüler, Schule, Lehrer, Aufgabe, Vorgabe. Das ist eine Programmieraufgabe, die das Programmieren schulen soll.

[sx2008]

Du bräuchtest eine Funktion, die dir sagt ob ein bestimmtes Jahr ein Schaltjahr ist.

Delphi-Quellcode:

function IstSchaltJahr(jahr:Integer):Boolean;
begin
   ...

Falls nur die Ferien im aktuellen Jahr berücksichtigt werden, kann man das Schaltjahrthema natürlich ignorieren.

Dann braucht du ein Array (oder eine Funktion) die für jeden Monat (1..12) die Anzahl der Tage liefert.

Die Dinge, die ich hier angesprochen habe sind auch etwas versteckt in der VCL/RTL von Delphi zu finden, aber ich würde es selbst programmieren.

[Jumpy]

Zitat von sx2008:

Falls nur die Ferien im aktuellen Jahr berücksichtigt werden, kann man das Schaltjahrthema natürlich ignorieren.

Nee, denke das bleibt schon ein Thema. Wenn man am 5.1. wissen will wie lange es noch bis zu den Osterferien am 12.3. ist, wäre die Info Schaltjahr oder nicht schon wichtig.

[Sheila Mertens]

Ich hatte heute Morgen nicht viel Zeit, also jetzt ein Vorbild zur Berechnung Julianischer Datum.

Die Procedure JulianDate braucht als Input: Jahr, Monat und Tag. Der Tag muss aber dezimal eingegeben werden, dazu dient die Function DHMStoDReal. Naturlich kann mann die Berechnung auch zuruckarbeiten, dazu dient die Procedure DateFromJD, die den Tag wieder in Dezimal abliefert. Um dies wieder um zu setzen in Tag, Stunden, Minuten und Sekunden bracht mann DRealToDHMS.

(Code entfernt)

[baumina]

Zitat von Sheila Mertens:

Ich hatte heute Morgen nicht viel Zeit, also jetzt ein Vorbild zur Berechnung Julianischer Datum.

Oder man schaut sich die Sourcen in DateUtils.pas an. Z.B.:

Delphi-Quellcode:

function DateTimeToJulianDate(const AValue: TDateTime): Double;
var
  LYear, LMonth, LDay: Word;
begin
  DecodeDate(AValue, LYear, LMonth, LDay);
  Result := (1461 * (LYear + 4800 + (LMonth - 14) div 12)) div 4 +
            (367 * (LMonth - 2 - 12 * ((LMonth - 14) div 12))) div 12 -
            (3 * ((LYear + 4900 + (LMonth - 14) div 12) div 100)) div 4 +
            LDay - 32075.5 + Abs(Frac(AValue));
end;

[Mikkey]

Zitat von baumina:

Zitat von Sheila Mertens:

Ich hatte heute Morgen nicht viel Zeit, also jetzt ein Vorbild zur Berechnung Julianischer Datum.

Oder man schaut sich die Sourcen in DateUtils.pas an. Z.B.:

... oder man strengt eine Minute lang seine kleinen grauen Zellen an, um dabei nicht die Aufgabenstellung aus den Augen zu verlieren:

Es geht hier ums Selbermachen!

@Sheila: Nichts für ungut, aber dieser "Algorithmus ist overkill für die gestellte Aufgabe (Er soll in die Zukunft rechnen, nicht zurück ins 16. Jahrhundert), außerdem strotzt er von Antipatterns. Zu gebrauchen ist er somit allenfalls als schlechtes Beispiel.

[arnof]

Zitat von Furtbichler:

Zitat von arnof:

Tage=Ferienbeginn -now;
Ferienbeginn muss einfach ein TDate sein!
Ich verstehe das Problem garnicht
Das funktioniert

Es geht darum, die auf der ersten Seite im ersten Post gemachten Vorgaben eben *nicht* zu ignorieren. Ich postuliere, das dies zu massivem Punktabzug führt. Stichwort: Schüler, Schule, Lehrer, Aufgabe, Vorgabe. Das ist eine Programmieraufgabe, die das Programmieren schulen soll.

Ok wenn man es manuell rechnen muss, dann mag das anders sein. Mein Beispiel macht das richtig inclusive. Schaltjahr usw. Ich müsste in meinen Code Anfang der 1990 er schauen, da musste ich das auch noch ausrechnen. Seit Delphi 1 geht das wie ich es beschrieben habe.

[Sheila Mertens]

Eine methode um die Tage zwischen zwei verschiedene Datums zu berechnen ist, die zwei Datums zuerst um zu setzen in Julianischer Datum. Dazu sind auf dem Internet verschiedene Algoritmen zu finden.

[himitsu]

Zitat von Sheila Mertens:

Eine methode um die Tage zwischen zwei verschiedene Datums zu berechnen ist, die zwei Datums zuerst um zu setzen in Julianischer Datum. Dazu sind auf dem Internet verschiedene Algoritmen zu finden.

Anders ausgedrückt, man braucht einen Datums-Typ, welcher die Zeit in nur einer Einheit (Tage, Stunden oder Sekunden) in Relation zu einem festen Datum liefert.

Ob es nun ein Julian-Date ist, oder ein TDateTime oder ein Unit-Timestamp, ist dabei egal.
Das Ergbnis sind zwei einzelne Zahlen, mit denen man direkt rechnen kann. Und zum Schluß muß man das Ergebnis eventuell nur noch in eine Zeiteinheit umrechnen, welche man benötigt.
Für viele Datums-Zeitformate gibt es im Delphi schon fertige Umrechnungsfunktionen.



Man kann das natürlich auch manuell direkt über die drei Werte Jahr/Monat/Tag berechnen, aber muß da natürlich die Anzahl der Tage pro Monat und die Schaltjahre entsprechend berücksichtigen.