JUSTIFICAR TEXTO

NILTON.VIANNA 14/02/2010 12:06:14
#334380

JUSTIFICAR TEXTO

QUANDO COLOCO A DATA NO FORMATO DIA MÊS E ANO
TEM COMO FORMATAR O TEXTO
De : PARA : domingo, 14 de fevereiro de 2010
PARA : Domingo, 14 de fevereiro de 2010

t+
DANIKULL 14/02/2010 13:47:14
#334386 Resposta escolhida
NILTON_VIANNA, boa tarde.

Não se lhe dizer se seria a melhor maneira, mais segue:

Coloquei em um Form, um botão e um Label para o teste:

Private Sub Command1_Click()
Dim dLng As String
Dim Dia As String
Dim mes As String
Dim ano As String

dLng = Format(Date, [Ô]dddd[Ô])
Dia = Format(Date, [Ô]dd[Ô])
mes = Format(Date, [Ô]mmmm[Ô])
ano = Format(Date, [Ô]yyyy[Ô])

Label1.Caption = StrConv(dLng, vbProperCase) & [Ô], [Ô] & Dia & [Ô] de [Ô] & mes & [Ô] de [Ô] & ano
End Sub


Até mais....
MICROSCHEME 14/02/2010 14:25:53
#334387

Tenta assim:

Label001.Caption = StrConv(Format(Date, [Ô]dddd[Ô] & [Ô]dd[Ô]), vbProperCase)

. . .
NLSOLUCOES 14/02/2010 15:51:01
#334390

msgbox Format(Now, [Ô]long date[Ô])

[ô] Domingo, 14 de Fevereiro de 2010

[ ]'s
NILTON.VIANNA 14/02/2010 16:45:11
#334393
Valeu Pessoal
Tópico encerrado , respostas não são mais permitidas
Voltar