Berechnungen mit Arbeitstagen

[hoika]

Hallo,

würde ich selber schreiben.

Delphi-Quellcode:

iMaxDays:= 10;
iDays:= 0;


tdtStartDate:= '22.09.2009';
tdtCurDate:= tdtStartDate+1.0;

repeat 
  tdtCurDate:= tdtCurDate-1.0;
  if DayOfWeek(tdtCurDate)<>So and <>Sa then
  begin
    Inc(iDays);
    if iDays=iMaxDays then break;
  end;
until False;

Heiko