Zitat von
bogomip:
H
Jetzt muss ich:
- abfragen, ob das erste Datum vom Zeitpunkt her früher war, als das zweit-ausgewählte.
if Datum1.date < Datum2.Date then ...
Wobei Datum1 und Datum2 vom Typ TDateTimePicker sind.
Zitat:
- die Dateioperationen integrieren
- Jeweils das Datum und den Zufallswert (Ober und Untergrenze sollen im Programm festgelegt werden) in die Liste schreiben
[delph]
var
...
tf: TextFile;
Datum: string;
anz: integer;
j,m,t: Word;
--
AssignFile( tf, 'datei.txt');
Reset( tf);
Decodedate( datum1, j, m, t);
anz := Trunc(Datum2-Datum1); // Anzahl Tage
for i := 0 to anz -1 do
begin
rnd := Random( b-a)+a; // a: Untergrenze b: Obergrenze;
datum := DateToStr(EncodeDate( j, m, t+i));
WriteLn( datum, rnd);
inc( t);
if( t > ... // Hier überprüfung auf Monatsende, dann Monat(m) erhöhen usw.
..
end;
...
[/delphi]