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...
Das einfachste dürfte http://docwiki.embarcadero.com/Libra...ls.DaysBetween sein.
PS: Was sind Verbundtypen?

[Sir Rufo]

Mit Verbundtyp ist das tDatum gemeint (ungewöhnlicher Name)

[haentschman]

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

[Sir Rufo]

Zitat von haentschman:

Ach der Record... 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

[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.

[ThaiSon96]

Habe das Programm inzwischen geschafft

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tMonat = array [1..12] of integer;
  tDatum = record
    Tag: 1..31;
    Monat: 1..12;
    Jahr: 2014..maxint;
  end; // of record

var
  heute, ferien: tDatum;
  monate : tmonat = (31,29,31,30,31,30,31,31,30,31,30,31);
  tage: integer;

function tagebisferien (datumheute, datumferienbeginn: tDatum): integer;
var
  verbleibendetage: integer;
begin
  verbleibendetage := 0;
  if datumheute.monat <> datumferienbeginn.Monat then
  begin
    verbleibendetage := verbleibendetage + (monate[datumheute.monat] - datumheute.Tag);
    datumheute.monat :=datumheute.monat +1;
    while (datumheute.Monat <> datumferienbeginn.monat) do
    begin
      verbleibendetage := verbleibendetage + (monate[datumheute.Monat]);
      datumheute.monat := datumheute.monat +1;
    end;
    verbleibendetage := verbleibendetage + datumferienbeginn.tag;
  end
  else verbleibendetage := datumferienbeginn.tag  - datumheute.tag;
  result := verbleibendetage;
end;




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);

  if (heute.Tag > ferien.Tag) AND (heute.Monat > ferien.Monat) AND (heute.Jahr = ferien.Jahr) then
    writeln('Ungueltige Angaben!')
  else
  begin
    tage := tagebisferien(heute, ferien);
    writeln('Es ist/sind noch ',abs(tage),' Tag/Tage bis zu den naechsten Ferien');
  end;

  readln;
end.

[Furtbichler]

Sehr gut!
Aber was ist, wenn das Jahr kein Schaltjahr ist?