Fórum Função para retornar o último dia do mês. #259734

function UltimoDiaDoMes( MesAno: string ): string;
var
sMes: string;
sAno: string;
begin
sMes := Copy( MesAno, 1, 2 );
sAno := Copy( MesAno, 4, 2 );
if Pos( sMes, ´01 02 03 04 05 06 07 08 09 10 11 12´ ) > 0 then
UltimoDiaDoMes := "31"
else if sMes <> ´02´ then
UltimoDiaDoMes := ´30´
else if ( StrToInt( sAno ) mod 4 ) = 0 then
UltimoDiaDoMes := ´29´
else
UltimoDiaDoMes := ´28´;
end;