FORMATO DATA

IRENKO 25/05/2015 09:34:30
#446980
Pessoal, exiiste maneira de formatar uma dada conforma abaixo?
de
01/01/2015

Para
JANEIRO/2015

Grato
LUIZCOMINO 25/05/2015 10:43:04
#446981
Olhe esse link , explica muito bem como trabalhar com datas

http://www.macoratti.net/vb_datas.htm
F001E 25/05/2015 10:47:28
#446984 Resposta escolhida
sim....

Text1.Text = Format(Date, [Ô]MMMM/yyyy[Ô])
LUIZCOMINO 25/05/2015 10:52:52
#446986
segue uma função que fiz aqui


Function DataFormatada(Data As String)
 [ô]Luiz Comino
 Dim Mtz
 
 Mtz = Split(Data, [Ô]/[Ô])
 
 Select Case Val(Mtz(1))
    Case 1: DataFormatada = [Ô]JANEIRO/[Ô] & Mtz(2)
    Case 2: DataFormatada = [Ô]Fevereiro/[Ô] & Mtz(2)
    Case 3: DataFormatada = [Ô]Março/[Ô] & Mtz(2)
    Case 4: DataFormatada = [Ô]Abril/[Ô] & Mtz(2)
    Case 5: DataFormatada = [Ô]Maio/[Ô] & Mtz(2)
    Case 6: DataFormatada = [Ô]Junho/[Ô] & Mtz(2)
    Case 7: DataFormatada = [Ô]Julho/[Ô] & Mtz(2)
    Case 8: DataFormatada = [Ô]Agosto/[Ô] & Mtz(2)
    Case 9: DataFormatada = [Ô]Setembro/[Ô] & Mtz(2)
    Case 10: DataFormatada = [Ô]Outubro/[Ô] & Mtz(2)
    Case 11: DataFormatada = [Ô]Novembro/[Ô] & Mtz(2)
    Case 12: DataFormatada = [Ô]Dezembro/[Ô] & Mtz(2)
 End Select
 
 
End Function


para testar coloque no load do form

MsgBox DataFormatada([Ô]11/04/1989[Ô])
JCARLOS 26/05/2015 14:45:22
#447035
text1.text = UCase(MonthName(Month(Date))) & [Ô]/[Ô] & Year(Date)
IRENKO 26/05/2015 17:27:47
#447042
Obrigado à todos. Resolvido!
Tópico encerrado , respostas não são mais permitidas
Voltar