Como pegar primeiro dia util do mes seguinte

Question

Ola pessoal,como fa�o para pegar o primeiro dia util do proximo mes?? ex.:   data atual - 18/03/2005          preciso da data do primeiro dia util proximo mes - 01/04/2005obrigadoate +...

R�mulo Barros · Answer

[color=darkblue:34e632b23d][b:34e632b23d]O m�todo a seguir captura a data do primeiro dia �til do m�s atual. Basta vc adpatar para o m�s seguinte.[/b:34e632b23d][/color:34e632b23d]

Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime;
var
Ano, Mes, Dia : word;
DiaDaSemana : Integer;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
if lSabDom Then
begin
DiaDaSemana := DayOfWeek (Data);
if DiaDaSemana = 1 Then
Dia := 2
else
if DiaDaSemana = 7 Then
Dia := 3;
end;
FirstDayOfMonth := EncodeDate (Ano, Mes, Dia);
end;

_____________________________________________
[b:34e632b23d][color=blue:34e632b23d]Utilize a Ferramenta de Pesquisa do F�rum[/color:34e632b23d][/b:34e632b23d]

Pesquisar pelos termos
_____________________________________________
[b:34e632b23d]Veja como[url=http://forum.clubedelphi.net/viewtopic.php?t=16976] OBTER RESPOSTAR R�PIDAS[/url][/b:34e632b23d]
[b:34e632b23d]Veja as novas [url=http://forum.clubedelphi.net/viewtopic.php?t=59817]MUDAN�AS NA ESTRUTURA[/url] do site[/b:34e632b23d]
[b:34e632b23d]Leia sempre as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]REGRAS DE CONDUTA[/url][/b:34e632b23d]

F�rum Como pegar primeiro dia util do mes seguinte #273036