Ultimo dia do mes

[AleVidaBoa 0]

Ola estou prescisando saber se a data e o ultimo dia do mes tipo se é :30,31,29 ou 28 alguem te alguma soluçao?

[marcio.theis 3]

Tente algo do tipo:

 

function TForm1.UltimoDiaMes(data: string): string;var	ret: string;	mes, ano: integer;beginmes:=StrToInt(copy(data,4,2));ano:=StrToInt(copy(data,7,4));if mes in [1,3,5,7,8,10,12] then	ret:='31'else	begin	if mes = 2 then		begin		ret:='28';		if (ano mod 4) = 0 then			ret:='29';		end	else		ret:='30';	end;UltimoDiaMes:=ret;end;

Passa uma data para a função, e ela lhe retorna a última data do mês.

[ricci ottadnot 4]

soh complementando a função do nosso amigo mat

function TForm1.UltimoDiaMes(data: string): string;var	ret: string;	mes, ano: integer;beginmes:=StrToInt(copy(data,4,2));ano:=StrToInt(copy(data,7,4));if mes in [1,3,5,7,8,10,12] then	ret:='31'else	begin	if mes = 2 then		begin		ret:='28';		if (ano mod 4 =0 and ((ano mod 100 <> 0) or (ano mod 400 = 0)) then			ret:='29';		end	else		ret:='30';	end;UltimoDiaMes:=ret;end;