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ß