Fórum Data por extenso. #243409
15/07/2004
0
Como faço para escreve-la por extenso??
Luis Fernando
Curtir tópico
+ 0Posts
15/07/2004
Lbcosta
É so usar o seguinte código
label1.caption := FormatDateTime(´dddddd´, StrToDate(DBEdit1.Text));
isso ira colocar no label1 o seguinte ´quinta-feira, 15 de julho de 2004´
[]s
Gostei + 0
16/07/2004
Eniorm
É so usar o seguinte código
label1.caption := FormatDateTime(´dddddd´, StrToDate(DBEdit1.Text));
isso ira colocar no label1 o seguinte ´quinta-feira, 15 de julho de 2004´
[]s[/quote:c0df9c3e0b]
Td bem, mas como escrever tudo por extenso, ex: 16/07/2004
´dezesseis de julho de dois mil e quatro´
O mês por extenso é fácil mas o dia e o ano é complicado,
uma vez que aquela função pra escrever por extenso é bugada,
pois numeros tipo 2004, 2005, ficam ´dois mil quatro, dois mil cinco´
T+
Gostei + 0
16/07/2004
Paulo_amorim
É so usar o seguinte código
label1.caption := FormatDateTime(´dddddd´, StrToDate(DBEdit1.Text));
isso ira colocar no label1 o seguinte ´quinta-feira, 15 de julho de 2004´
[]s[/quote:1d425a8e0f]
Td bem, mas como escrever tudo por extenso, ex: 16/07/2004
´dezesseis de julho de dois mil e quatro´[/quote:1d425a8e0f]
Olá
Acho que vc não testou o que ele passou :roll:
Setando o formato para SEIS ´d´ ele mostra a data completa por extenso:
Label1.Caption := FormatDateTime(´dddddd´ ,Date); //Label1 contém ´sexta feira, 16 de julho de 2004´
Até+
Gostei + 0
16/07/2004
Eniorm
Label1.Caption := FormatDateTime(´dddddd´ ,Date); //Label1 contém ´sexta feira, 16 de julho de 2004´
Paulo, não só testei como sempre usei dessa forma, acontece
que vc não entendeu corretamente o q eu quiz dizer.
Uma forma de transformar a data, ex: [color=red:fed39c00ce]16/07/2004[/color:fed39c00ce]
para
[color=red:fed39c00ce]´dezesseis de julho de dois mil e quatro´[/color:fed39c00ce]
Por favor leia novamente o meu post anterior.
T+
Gostei + 0
16/07/2004
Paulo_amorim
para
[color=red:dbbce07022]´dezesseis de julho de dois mil e quatro´[/color:dbbce07022]
Por favor leia novamente o meu post anterior.
T+[/quote:dbbce07022]
Olá
Me desculpe...eu juro que não tinha visto que não tinha a parte do dia da semana... :oops: :oops:
Pode-se fazer, então, o seguinte:
s := FormatDateTime( ´dddddd´, Date);
Delete(s, 1, pos( ´,´ , s) + 1 );
Espero que ajude
Até+
Gostei + 0
16/07/2004
Eniorm
Me desculpe...eu juro que não tinha visto que não tinha a parte do dia da semana... :oops: :oops:
Pode-se fazer, então, o seguinte:
s := FormatDateTime( ´dddddd´, Date);
Delete(s, 1, pos( ´,´ , s) + 1 );
Espero que ajude
Até+
Ainda não Paulo... :roll: para exibir a data por extenso sem o
dia da semana é simples:
label1.Caption := FormatDateTime(´dd "de" mmmm "de" yyyy",Date);
A dúvida crucial, escrever o [color=red:31dd14925b]DIA [/color:31dd14925b]e [color=red:31dd14925b]ANO [/color:31dd14925b]por extenso.
T+ :wink:
Gostei + 0
16/07/2004
Lbcosta
http://www.delphibr.com.br/mostradica.php?id=¬20621
[]s
Gostei + 0