Hitung hari antara 2 tanggal (minus tgl merah)

procedure TForm1.Button1Click(Sender: TObject);
var
tglmerah,sabtu, minggu,jml:integer;
jumlah:variant;
tgl1,tgl2:tdatetime;
begin
tglmerah:=3;
tgl1:=encodedate(2010,04,01);
tgl2:=encodedate(2010,04,30);
jml:=0;

while tgl1<=tgl2 do
begin
if (formatdatetime('dddd',tgl1) ='Sabtu') or (formatdatetime('dddd',tgl1) ='Minggu') then
jml:=jml+1
else
jml:=jml+0;

tgl1:=tgl1+1;
end;

tgl1:=encodedate(2010,04,01);
jumlah:= tgl2-tgl1;
jumlah:=jumlah-jml -tglmerah;
showmessage(inttostr(jumlah));
end;

Author : loliktry

Share this

Related Posts