|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Visual Basic 6 ,Hora, Data Tudo Separado em Labels
|
 |
|
|
|
Postada em 1/3/2007 por Edinei
neisjb@hotmail.com
'Coloque um Timer com interval de 1000 e 6 Labels não renomeie eles
Private Sub Timer1_Timer()
Hora = Trim(Str(Hour(Time)))
Min = Trim(Str(Minute(Time)))
Seg = Trim(Str(Second(Time)))
Label1 = Hora
Label2 = Min
Label3 = Seg
Mês = Trim(Str(Month(Date)))
Label4 = Mês
Ano = Trim(Str(Year(Date)))
Label5 = Ano
Dia = Trim(Str(Day(Date)))
Label6 = Dia
|
|
|
|
|
