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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  como incluir mais 10 minutos na hora atrual
jongle
CAPANEMA
PA - BRASIL
ENUNCIADA !
Postada em 01/07/2011 14:02 hs            
boa tarde pessoal, tempo que incluir mais 10 ou 15 minutos na hora atua:
como fazer isso:
ex: é 15:12:10 ficaria com mais 10 minutos assim: 15:22:10

desde ja agradeço

jongle
   
Alfterra
Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/07/2011 15:23 hs            
Private Sub Command_Click()
Dim hora_atual, nova_hora As String
hora_atual = Time
   nova_hora = DateAdd("N", 10, hora_atual)
       MsgBox "HORA ATUAL " & hora_atual & " MAIS 10 MINUTOS " & nova_hora
End Sub
   
Almir
não registrado
ENUNCIADA !
Postada em 01/07/2011 15:38 hs   
Private Sub Command1_Click()
Text1.Text = "15:12:10"
Text2.Text = "00:10:00"
Label1.Caption = SOMAHORAS(Text1, Text2)
End Sub
Function SOMAHORAS(HORA1 As Date, HORA2 As Date) As Date
Dim HORATEMP1, HORATEMP2, XHORA1, XHORA2, XHORAS, XMIN1, XMIN2, XMINS, XSEG1, XSEG2, XSEGS As String
HORATEMP1 = "00:00:00"
HORATEMP2 = "00:00:00"
XHORA1 = Mid(HORA1, 1, 2)
XHORA2 = Mid(HORA2, 1, 2)
XHORAS = Val(XHORA1) + Val(XHORA2)
'Label1.Caption = DateAdd("h", XHORAS, HORA2)
XMIN1 = Mid(HORA1, 4, 2)
XMIN2 = Mid(HORA2, 4, 2)
XMINS = Val(XMIN1) + Val(XMIN2)
XSEG1 = Mid(HORA1, 7, 2)
XSEG2 = Mid(HORA2, 7, 2)
XSEGS = Val(XSEG1) + Val(XSEG2)
HORATEMP2 = DateAdd("h", XHORAS, HORATEMP1)
HORATEMP1 = HORATEMP2
HORATEMP2 = DateAdd("n", XMINS, HORATEMP1)
HORATEMP1 = HORATEMP2
HORATEMP2 = DateAdd("s", XSEGS, HORATEMP1)
HORATEMP1 = HORATEMP2
SOMAHORAS = Format(HORATEMP1, "hh:nn:ss")
End Function
Comendador enviou este.
   
Treze
não registrado
ENUNCIADA !
Postada em 01/07/2011 16:05 hs   
jongle se vc pretende alterar a hora do sistema aumentando 10 minutos seria assim
 
Time = DateAdd("n",15,Time)
 
 
   
jongle
CAPANEMA
PA - BRASIL
ENUNCIADA !
Postada em 01/07/2011 18:40 hs            
obrigado pessoal, pois deu certo...

ate mais
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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