COMO RETIRAR SEPARAR DIA, MES E ANO DE UMA DATA?

USUARIO.EXCLUIDOS 01/04/2005 15:02:53
#76213

Dim sDias as Date
Dim sMes as Date
Dim sAno as Date

sDia = Format(Now,"d")
sMes = Format(Now,"mm")
sAno = Format(Now, "yyyy")

Vale lembrar que os formato mês pode ser "mmm" e o formato ano pode ser "yy"

USUARIO.EXCLUIDOS 01/04/2005 15:03:00
#76214

é SO VC COLOCAR NO FORMAT O QUE VC QUER... SE VC QUISER SÓ“ O DIA COLOCA SÓ“ "DD", SÓ“ MES "MM" E ASSIM VAI...

USUARIO.EXCLUIDOS 01/04/2005 15:13:51
#76220

Vou tentar ser mais especifico....

Tenho um Form, e no Form tem duas MaskEdBox....

Preciso de um código prá colocar no LostFocus da 1Âê MaskEdBox.

- O código funciona assim:
Eu vou digitar a data no 1º MaskEdBox.
Se a data do 1º MaskEdBox estiver entre o dia 01 e 10 de um determinado mes e ano, quando ele perde o foco, no 2º MaskEdBox vai aparecer dia 22/(com o mes e ano do 1º MaskEdBox)...


Obrigado.

USUARIO.EXCLUIDOS 01/04/2005 15:23:19
#76222 Resposta escolhida

No evento LOSTFOCUS da MASKEDITBOX...
[/c]
if Cint(Day(Mask1.Text)) < = 10 Then
Mask2.Text = "22/" & Month(Mask1.Text) & "/" & Year(Mask1.Text)
else
End if
[/c]
Funções

Day(Date) 'Retorna somente o dia de uma data
Month(Date) 'Retorna somente o mes
Year(Date) 'Retorna somente o ano..

USUARIO.EXCLUIDOS 01/04/2005 15:32:59
#76225

GERMANIR.... perfeito!

Funcionou...

Obrigado