preciso percorrer entre duas datas

[Rogério Roque 0]

Tenho um sistema que precisa contar quantos dias são Fim de semana e quantos são dias de semana entre duas datas. Exemplo:data1 := 15/02/2007;data2 := 18/02/2007;o sistema deve mostrar que há 2 dias de semana e 2 dias de fim de semana

[marcio.theis 3]

Teste se funciona:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	data1, data2: string;	x, dias, diaSemana, diaFinalSemana: integer;begindiaSemana:=0;diaFinalSemana:=0;data1:='15/02/2007';data2:='18/02/2007';dias:=Round(StrToDate(data2) - StrToDate(data1));for x:=0 to dias do	begin	if (DayOfTheWeek(StrToDate(data1) + x) in [6,7]) then		Inc(diaFinalSemana)	else		Inc(diaSemana);	end;Memo1.Lines.Add('Final de Semana: ' + IntToStr(diaFinalSemana));Memo1.Lines.Add('Dia de Semana: ' + IntToStr(diaSemana));end;

[Rogério Roque 0]

Teste se funciona:

procedure TForm1.BitBtn1Click(Sender: TObject);var	data1, data2: string;	x, dias, diaSemana, diaFinalSemana: integer;begindiaSemana:=0;diaFinalSemana:=0;data1:='15/02/2007';data2:='18/02/2007';dias:=Round(StrToDate(data2) - StrToDate(data1));for x:=0 to dias do	begin	if (DayOfTheWeek(StrToDate(data1) + x) in [6,7]) then		Inc(diaFinalSemana)	else		Inc(diaSemana);	end;Memo1.Lines.Add('Final de Semana: ' + IntToStr(diaFinalSemana));Memo1.Lines.Add('Dia de Semana: ' + IntToStr(diaSemana));end;

Po cara valeu mesmo, foi uma mão na rodaValeu!

[marcio.theis 3]

tranquilo, :D