Data por Extenso

Delphi

31/03/2008

Oi eu gostaria se alguém pode me ajudar. Eu preciso da data por extenso
Ex.: vinte e um(21) de fevereiro(02) de mil novecentos e sessenta e um(1961) Obrigado.


Tinho

Tinho

Curtidas 0

Respostas

Glecio

Glecio

31/03/2008

Function fFunct011(DatExt: TDateTime; DiaExt: Boolean): String; {Data por Extenso}
Var
NumDia, NumMes, NumAno: Word;
DesDia, DesMes, DesDat: String;
Begin
DeCodeDate(DatExt, NumAno, NumMes, NumDia);

DesDia := ´´;
Case NumDia Of
1: DesDia := ´Domingo´;
2: DesDia := ´Segunda´;
3: DesDia := ´Terça´;
4: DesDia := ´Quarta´;
5: DesDia := ´Quinta´;
6: DesDia := ´Sexta´;
7: DesDia := ´Sábado´;
End;

DesMes := ´´;
Case NumMes Of
01: DesMes := ´Janeiro´;
02: DesMes := ´Fevereiro´;
03: DesMes := ´Março´;
04: DesMes := ´Abril´;
05: DesMes := ´Maio´;
06: DesMes := ´Junho´;
07: DesMes := ´Julho´;
08: DesMes := ´Agosto´;
09: DesMes := ´Setembro´;
10: DesMes := ´Outubro´;
11: DesMes := ´Novembro´;
12: DesMes := ´Dezembro´;
End;

DesDat := ´´;
If DiaExt Then
DesDat := DesDia+´, ´;
DesDat := DesDat+IntToStr(NumDia)+´ de ´+DesMes+´ de ´+IntToStr(NumAno);
Result := DesDat;
End;


GOSTEI 0
POSTAR