Buscar por:

Obtendo o extenso do mês passado por parâmetro

Código

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;