Witaj !!!,
Jak napisać funkcję która w zakresie odejmowania jednej daty od drugiej brała by pod uwagę soboty i niedziele i odejmowała je dodatkowo od dni wyliczonych przez tą funkcję.
Bardzo proszę o jakąś podpowiedź, może jakiś przykład !!!
Pozdr. Szubens
do uses dodaj DateUtils
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
d1,jedna,druga : TDate ;
begin
I:=0;
ShortDateFormat:='DD-MM-YYYY' ;
jedna := StrToDate('01-01-2002') ;
druga := StrToDate('31-12-2002') ;
d1 := jedna ;
while d1