Data

[EderDias 0]

Ola..pessoal

 

tenho que montar uma rotino onde eu coloco o ano num edit e ai em varios label´s mostre a quantidade de dias uteis por mes

exemplo:

 

EditAno=2007jan=20 dias uteisfev=18 dias uteismarco=22 dias uteise assim por diante

Alguem teria uma ideia?

 

Grato

[Hugo Slepicka 0]

procedure TForm1.Button1Click(Sender: TObject);var Ano : Integer;  I, J: Integer;  Dias_no_mes : integer;  inuteis : integer;begin  Ano  := StrToInt(Edit1.Text);  for I := 1 to 12 do  Begin	Dias_no_mes := DaysInAMonth(Ano,i);	inuteis := 0;	for j := 1 to Dias_no_mes do	Begin	  case DayOfWeek(StrToDate(IntToStr(j)+'/'+IntToStr(i)+'/'+IntToStr(Ano))) of		1: Inuteis := Inuteis + 1;		7: Inuteis := Inuteis + 1;	  end;	end;	Showmessage('Existem: ' + IntToStr(Dias_no_mes) + 'dias -  Inuteis: '+ IntToStr(inuteis) + ' dias no Mês: ' + IntToStr(i));  end;end;

Para conferência fiz o Showmessage... basta você ver se está certo e colocar Dias_no_mes - Inuteis...

[EderDias 0]

Hugo..valeu carinha...mas tem um probleminha..meu delphi é 4 e não tem a DateUtils :unsure: e então da erro:

[Error] Unit1.pas(50): Undeclared identifier: 'DaysInAMonth'

 

Ferrou!!!