String zerlegen

[frankistreich]

Danke für die vielen Hilfen, Hab es jetzt etwas anders, aber einfacher gelöst und es geht endlich... trotzdem DANKE!

Delphi-Quellcode:

procedure Tfmuanzeigen.darstellen;
  var x1,x2,y1,t:integer;
      s,s1,s2,s3:string;
begin
qbefehl.Close;
  qbefehl.SQL.Clear;
  qbefehl.SQL.Add('select ma.mid,urlaub.beginn,rtrim(urlaub.dauer),urlaub.unr from ma '+
                  'inner join urlaub on ma.mid = urlaub.mid '+
                  'where ma.aid = '+quotedstr(dbcbabteilung.KeyValue)+' order by ma.mid asc');
qbefehl.Open;

qanzahl.Close;
  qanzahl.SQL.Clear;
  qanzahl.SQL.Add('select count(Urlaub.UNr) as anzahl from Urlaub '+
                  'inner join ma on Urlaub.MId = ma.MId '+
                  'where AId = '+quotedstr(dbcbabteilung.KeyValue));
qanzahl.Open;
qbefehl.first;

while not qbefehl.eof do
begin

  S:=qbefehl.Fields.Fields[1].AsString; //Datum
  t:=qbefehl.fields.fields[2].asinteger;//Dauer

s1 := Copy(s, 0, 2);
s2 := Copy(s, 4, 2);
s3 := Copy(s, 7, 4);

 x1:=strtoint(s1);
 x2:=strtoint(s1);

 if s2 = cbmonat.Text then begin
  for x1:=strtoint(s1)  to x1+t-1 do begin
     y1:=qbefehl.fields.fields[0].asinteger;
     sg.Cells[x2,y1]:='XXXXXXXX';
     inc(x2);
   end;
  end;
  qbefehl.next;
 end;
end;

[RWarnecke]

Das ist schonmal nicht schlecht, aber ich würde die folgenden Teile so machen : (ungetestet)

Delphi-Quellcode:

  qbefehl.Close;
  qbefehl.SQL.Clear;
  qbefehl.SQL.Add('select ma.mid,urlaub.beginn,rtrim(urlaub.dauer),urlaub.unr from ma '+
                  'inner join urlaub on ma.mid = urlaub.mid '+
                  'where ma.aid = :maaid order by ma.mid asc');
  qbefehl.parambyname('maaid').AsString := dbcbabteilung.KeyValue;
  qbefehl.Open;

  qanzahl.Close;
  qanzahl.SQL.Clear;
  qanzahl.SQL.Add('select count(Urlaub.UNr) as anzahl from Urlaub '+
                  'inner join ma on Urlaub.MId = ma.MId '+
                  'where AId = :aid');
  qbefehl.parambyname('aid').AsString := dbcbabteilung.KeyValue;
  qanzahl.Open;
  qbefehl.first;

DecodeDate(StrToDateTime(qbefehl.Fields.Fields[1].AsString), s3, s2, s1); Diese Zeile ersetzt die drei Copy-Befehle.

[Horst_]

Hallo,

DecodeDate(StrToDateTime(qbefehl.Fields.Fields[1].AsString), s3, s2, s1); Macht wenig Sinn, da s1,s2,s3 Strings sind, aber dass lässt sich ja ändern.

Muss man dann aber nicht aufpassen, ob dass richtige Format StrtoDateTime bei ...AsString herauskommt.
Wenn Fields[1] vom Typ ein Datum ist, kann man es sicher direkt mit AsDate
umformen.Zudem muss man vielleicht noch beachten, das der Urlaub auch über das Monatsende/Jahr hinausgehen kann.
Was macht man, wenn der Urlaub/Elternzeit im Vormonat/ Vorjahr beginnt?? Vielleicht wäre es angebrachter, statt der Dauer das Enddatum zu speichern.

Delphi-Quellcode:

suchMonat := StrToInt(cbmonat.Text);

while not qbefehl.eof do
begin
  StartDatum :=  qbefehl.Fields.Fields[1].AsDate;// TDateTime;
  DecodeDate(StartDatum, wJahr, wMonat,wTag);
  if wMonat = suchMonat then begin
    y1:=qbefehl.fields.fields[0].asinteger;// passende Spalte
    t :=qbefehl.fields.fields[2].asinteger;// Dauer in Tagen
    t := t+wTag;
    IF t >  DaysInMonth(StartDatum) then
      t :=  DaysInMonth(StartDatum);
    DaysInMonth(Now)    
    for i:= wTag to t do
       sg.Cells[i,y1]:='XXXXXXXX';
   end;
  qbefehl.next;
end;

[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