String zerlegen

[Sir Rufo]

@Horst_

Ob EndDatum oder Dauer ist völlig egal, da sich das EndDatum oder die Dauer immer aus dem StartDatum berechnen lässt (je nachdem, was man hat).

Die Dauer zu speichern hat allerdings den Vorteil, dass bei einer Verschiebung nur das StartDatum geändert werden muss, und bei einer Änderung der Dauer eben halt nur dieser eine Wert

Das reine iterieren über die Tage ist allerdings auch suboptimal. Ich würde immer über das Datum iterieren

[Horst_]

Hallo,


etwa in dieser Art.

Delphi-Quellcode:

uses
  sysutils,DateUtils{DaysinMonth};

var
 MonatsErster,
 MonatsLetzer,
 Urlaubsbeginn,
 Urlaubsende : TDateTime;
 i: LongInt;
 wJahr,wMonat,wTag,
 TageImMonat,suchMonat,Spalte : word;

begin
// welches Jahr haben wir.
  DecodeDate(Date(),wJahr,wMonat,wTag);
  suchMonat := 2;//StrToInt(cbmonat.Text);
  MonatsErster := EncodeDate(wJahr,suchMonat,1);
  TageImMonat := DaysInMonth(MonatsErster);
  MonatsLetzer :=  EncodeDate(wJahr,suchMonat,TageImMonat);

  i := 0;
  while i> 10 {not qbefehl.eof} do begin
//   Urlaubsbeginn := qbefehl.Fields.Fields[1].AsDate;
//   Urlaubsende := Urlaubsbeginn+qbefehl.fields.fields[2].asinteger;//+Dauer
    Urlaubsbeginn := random(2*TageImMonat)-TageImMonat + MonatsErster;
    Urlaubsende   := Urlaubsbeginn + random(21);
    Writeln('Urlaubsbeginn',FormatDateTime(' dd.mm.yyyy HH:NN:SS.ZZZ',Urlaubsbeginn));
    Writeln('Urlaubsende  ',FormatDateTime(' dd.mm.yyyy HH:NN:SS.ZZZ',Urlaubsende));

    if (Urlaubsbeginn <= MonatsLetzer) AND (Urlaubsende >= MonatsErster) then begin
      IF Urlaubsbeginn < MonatsErster then
        Urlaubsbeginn := MonatsErster;
      IF Urlaubsende > MonatsLetzer then
        Urlaubsende := MonatsLetzer;
//     Spalte :=qbefehl.fields.fields[0].asinteger;// passende Spalte
      DecodeDate(Urlaubsbeginn,wJahr,wMonat,wTag);
      repeat // Mindestens 1 Tag
        //sg.Cells[wTag,Spalte]:='XXXXXXXX';
        //inc(wtag);
         Writeln('Urlaub ',FormatDateTime('dd.mm.yyyy HH:NN:SS.ZZZ',Urlaubsbeginn));

         Urlaubsbeginn := Urlaubsbeginn+1;
      until Urlaubsbeginn > Urlaubsende;
      inc(i);
    end;
//   qbefehl.next;
     writeln;

  end;
end.

Gruß Horst