Delphi-Quellcode:
function Arbeitstage(
const startDate: TDate): Integer;
var
I: Integer;
begin
Result := DaysBetween(Trunc(startDate), Trunc(Date)) + 1;
For I := 0
to Result - 1
do
If DayOfTheWeek(startDate + i) >= 6
then Dec(Result);
end;
Sollte auch gehen
(Bin gerade in Bastel-Laune ^^)
Edit #1:
Ähm, es muss doch +1 und nicht +2 heißen?!
Edit #2:
Mir fiel gerade wieder ein, dass DaysBetween ja nicht ganz so arbeitet, wie man es erwartet. Darum sollte man für diesen Anwendungsfall die beiden Parameter vorher mit Trunc bearbeiten (sozusagen die Tageszeit ausradieren).