Fórum Para nildo #141142

Eu uso essa talvez sirva pra vc :

Function MesExtenso (xMes : Variant) : string;
Var
Dia, Mes, Ano : Word;
begin
Mes := 0;
Case VarType (xMes) of
VarDate : DecodeDate (xMes, Ano, Mes, Dia);
VarString :
Try
Mes := StrToInt (xMes);
Except
End;
else
Try
Mes := Round (xMes);
Except
End;
end;
case Mes of
1: Result := ´Janeiro´;
2: Result := ´Fevereiro´;
3: Result := ´Março´;
4: Result := ´Abril´;
5: Result := ´Maio´;
6: Result := ´Junho´;
7: Result := ´Julho´;
8: Result := ´Agosto´;
9: Result := ´Setembro´;
10: Result := ´Outubro´;
11: Result := ´Novembro´;
12: Result := ´Dezembro´;
else
Result := ´´;
end;
end;

espero ter ajudado.

para mostrar o mes por exrtenso vc pode fazer assim:


showMessage(FormatDateTime(´mmmm´,Now)); ou


showMessage(FormatDateTime(´mmmm´,StrToDate(´11/12/99´)));



Leandro.
ICQ 128124370

é isso ae !! foi mal. num tava no forum