Datumsdifferenz berechnen?

[ThaiSon96]

Hallo,
ich soll ein Programm schreiben, dass die Tage bis zu den nächsten Ferien berechnen soll.
Dabei sollen Verbundtypen zwingend benutzt werden. Zudem ist der Funktionskopf vorgegeben. Bis jetzt sieht mein Programm so aus:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tDatum = record
    Tag: 1..31;
    Monat: 1..12;
    Jahr: 2014..maxint;
  end; // of record

function tagebisferien (datumheute, datumferienbeginn: tDatum): integer;
begin
  result := (datumferienbeginn.Monat - datumheute.monat) * 31 + (datumferienbeginn.tag -  datumheute.Tag);
end;


var
  heute, ferien: tDatum;
  anzahl: integer;

begin
  writeln('[= Heutiges Datum =]');
  write('Tag: '); readln(heute.Tag);
  write('Monat: '); readln(heute.Monat);
  write('Jahr: '); readln(heute.Jahr);

  writeln('[= Feriendatum =]');
  write('Tag: '); readln(ferien.Tag);
  write('Monat: '); readln(ferien.Monat);
  write('Jahr: '); readln(ferien.Jahr);

  Anzahl := tagebisferien(heute, ferien);

  writeln('Es ist/sind noch ',abs(anzahl),' Tag/Tage bis zu den naechsten Ferien');
  readln;
end.

Ich bin mir nicht sicher ob das richtig ist. Dass nicht jeder Monat 31 Tage hat, ist mir dabei bewusst! ;)
Auf jede Antwort würde ich mich freuen,
Gruß

[haentschman]

Moin... 8-)
Das einfachste dürfte http://docwiki.embarcadero.com/Libra...ls.DaysBetween sein.
PS: Was sind Verbundtypen?

[Sir Rufo]

Mit Verbundtyp ist das

Delphi-Quellcode:

tDatum

gemeint (ungewöhnlicher Name)

[haentschman]

Ach der Record... :roll: Für ein Datum eh ein ungewöhnliches Format. Wer gibt solche Vorgaben? Ein Lehrer?

[Sir Rufo]

Zitat:

Zitat von haentschman (Beitrag 1244351)

Ach der Record... :roll: Für ein Datum eh ein ungewöhnliches Format. Wer gibt solche Vorgaben? Ein Lehrer?

Und? Damit erzwingt man eine andere Lösung als das Verwenden von DateUtils.
Hängt davon ab, was man gerade vermitteln möchte.

Pauschales Lehrer-Bashing, weil die ja nicht nachdenken, ohne Vor- und Nachdenken :roll:

[Furtbichler]

Eben, es ist nämlich nicht so leicht, das zu berechnen. Vor allen Dingen lernt man, zu programmieren, da die Lösung des Problems andere Datenstrukturen, Formeln, bedingte Verzweigungen, Schleifen und im günstigsten Fall den Aufruf anderer Funktionen beinhaltet.

Vielleicht sollte der Fragesteller einfach mal erklären, wie er das mit Papier und Bleistift ausrechnen würde. Denn da nicht alle Monate 31 Tage haben, ist der bisherige Code zwar ein Anfang, aber noch nicht die Lösung.

Also: Erst in Deutsch formulieren, wie man das machen würde, dann schauen wir weiter.

[arnof]

Tage=Ferienbeginn -now;

Ferienbeginn muss einfach ein TDate sein!

Ich verstehe das Problem garnicht:?::?:

Das funktioniert

[Furtbichler]

Zitat:

Zitat von arnof (Beitrag 1244423)

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.

[arnof]

Zitat:

Zitat von Furtbichler (Beitrag 1244427)

Zitat:

Zitat von arnof (Beitrag 1244423)

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.