USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página