como faço para usar esta função no delphi?
como faço para usar esta função?
Function ProximoDiaUtil(dData : TDateTime) : TDateTime;
//
// Retorna o próximo dia útil caso a data informada caia em um fim de semana
//
begin
if DayOfWeek(dData) = 7 then
begin
dData := dData + 2
end
else if DayOfWeek(dData) = 1 then
begin
dData := dData + 1;
end;
Result := dData;
end;
Function ProximoDiaUtil(dData : TDateTime) : TDateTime;
//
// Retorna o próximo dia útil caso a data informada caia em um fim de semana
//
begin
if DayOfWeek(dData) = 7 then
begin
dData := dData + 2
end
else if DayOfWeek(dData) = 1 then
begin
dData := dData + 1;
end;
Result := dData;
end;
Erivando
Curtidas 0
Respostas
C@rdoso
24/06/2003
Você pode retornar o valor da função em qualquer componente q aceite caracteres.
Caso o componente q vc usou para pegar o retorno não seja do tipo date, tranaforme o valor do retorno em string, vou dar um exemplo.
Edit1.Text := DatetoStr(ProximoDiaUtil(24/06/2003));
Date1.Date := ProximoDiaUtil(24/06/2003);
Caso o componente q vc usou para pegar o retorno não seja do tipo date, tranaforme o valor do retorno em string, vou dar um exemplo.
Edit1.Text := DatetoStr(ProximoDiaUtil(24/06/2003));
Date1.Date := ProximoDiaUtil(24/06/2003);
GOSTEI 0
Erivando
24/06/2003
V@leu!!!!
GOSTEI 0