ULTIMO DIA DO MES

Question

COMO FA�O PARA PEGAR O ULTIMO DIA DE CASA MES....????BJOMILA...

Anonymous · Answer

:oops: N�o � exatamente o q. vc pediu mas acho q. da pr� aprender e aprimorar um rotina...

{ Esta fun��o retorna true se a data passada como par�metro � fim de m�s. Retorna false caso contr�rio. }

function tbFimDoMes(const Data: TDateTime): boolean;
var
Ano, Mes, Dia: Word;
begin
DecodeDate(Data +1, Ano, Mes, Dia);
Result := Dia = 1;
end;

Anonymous · Answer

faz uma function que recebe mes e ano e retorna o ultimo dia...

function ultimo_dia(mes: integer; ano:integer): integer;
begin
if (mes = 4) or (mes = 6) or (mes = 9) or (mes = 11) then
Result := 30
else if (mes = 2) and ((ano / 4) = int(ano / 4)) then
Result := 29
else if mes = 2 then
Result := 28
else
Result := 31;
end;

Anonymous · Answer

Baseando-se na data que vc est� trabalhando fa�a o seginte:

var
dia, mes, ano : word;
tmp : tdatetime;

begin
dia := 1;
mes := //recebe o m�s da sua data + 1;
ano := //recebe o ano que vc est� manipulando.

encodedate(tmp, ano, mes, dia);

tmp := tmp-1; //aqui o delphi pegar� a data (dia 1 do mes seguinte) e subtrair� 1, resultado no �ltimo dia do mes anterior.

end;

O usual � encapsular esta rotina numa fun��o passando para ela a data em que se est� manipulando.

Durvalcastro · Answer

8) Utilize esta fun��o:function DiasNoMes(AYear, AMonth: Integer): Integer;const DaysInMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);begin  //Retorna quantos dias tem um m�s espec�fico  Result := DaysInMonth[AMonth];  if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result);end;...

Anonymous · Answer

Desenvolvi essa fun��o[zinha], espero q lhe ajude.

function UltimoDiaMes(iMes: integer): integer;
var
aUltimoDia: array[1..12] of integer;
iCont, iAno: integer;
begin
if (iMes>=1) and (iMes<=12) then
begin
iAno := StrToInt(FormatDateTime(�yyyy�, Date));
for iCont := 1 to 12 do
begin
if iCont in [1,3,5,7,8,10,12] then
aUltimoDia[iCont] := 31
else
if iCont in [4,6,9,11] then
aUltimoDia[iCont] := 30
else
begin
if (iAno mod 2)=0 then {Teste de ano bissexto}
aUltimoDia[iCont] := 29
else
aUltimoDia[iCont] := 28
end;
end;
end;
Result := aUltimoDia[iMes];
end;

Anonymous · Answer

[quote:68f62258a2=�durvalcastro�]8) Utilize esta fun��o:function DiasNoMes(AYear, AMonth: Integer): Integer;const DaysInMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);begin  //Retorna quantos dias tem um m�s espec�fico  Result := DaysInMonth[AMonth];  if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result);end;[/quote:68f62258a2]Complementando[code:1:68f62258a2]function IsLeapYear(AYear: Integer): Boolean;begin  Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0));end;[/code:1:68f62258a2]...

F�rum ULTIMO DIA DO MES #140849