como incluir mais 10 minutos na hora atrual


	Fórum
	Visual Basic

Responder

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

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