data por extenso para preencher promiss

[Rodrigo 3R 0]

Olá pessoal, preciso criar um sistema onde emita nota promissória, sendo assim preciso preencher por extenso a data, já tentei adaptar o extenso de cheque e não fui muito feliz... desde já agradeço... abraços.

[Dennys Lopes 0]

Tente assim:

 

Dim data As DateDim strData as Stringdata = DatestrData = Format$(data, "dd \d\e mmmm \d\e yyyy")MsgBox strData

[Rodrigo 3R 0]

Valeu pela tentativa, quando falo data por extenso, é ela completa por extenso, por exemplo a data 01/10/2006 ela terá que aparecer da forma : dia primeiro do mes dez de dois mil e seis, pois é para uma nota promissória e não apenas a visualização de data.Abraços.

[Luizgrs 0]

Para evitar fazer comparação um por um, você terá que montar dois vetores. Um para as dezenas (décimo,vigésimo,trigésimo) e outro para as unidades. Daí depois é só você separa os dígitos do dia e usá-los como índice:

dezenas = array("","décimo","vigésimo","trigésimo")dia = format(day(date),"99") 'ou 00 não lembro  ao certomsgbox dezena(left(dia,1))

Faz da mesma maneira para o outro caractere de dia.

[preda 0]

Está correto o algoritmo, só o 99 que esta errado, é 00 mesmo.

 

dezenas = array("","décimo","vigésimo","trigésimo")dia = format(day(date),"00") msgbox dezenas(left(dia,1))

Agora com essa ideia do Luizgrs, bole com para o ano. lembrando que voce não vai viver até o ano 21xx !

( desculpa brincadeira )

=D