Programación General > Visual Basic 6.0 e inferiores

 Sumar Dos Variables De Tipo Date

(1/3) > >>

solcito:
Hola gente! Mi duda es la siguiente:

estoy haciendo esto

Time + 10  

y me devuelve: 09/01/1900 17:55:58

yo lo que necesito es a la hora (17:55:58)  sumarle 10 minutos, ya pobré varias cosas y no se como hacerlo

Si alguien sabe como ...........

 :comp:

Roll:
usa la funcion DateAdd

mira el MSDN para mas info

suerte  :)

eliza_marti:
Hola solcito!.. :hola: ..mira ...no se si habrá una función que simplifique esto...pero se me ocurrió hacer esto y funcionó...es para sumar 10 minutos..pero si quieres le cambias la variable para que funcione con otros minutos.. ;) ..espero que te sirva... :P ..bye!.. :hola: ..nos vemos... :ph34r:  :comp:


--- Código: Text ---Private Sub Form_Load()    minutos_sumados = 10    Text1.Text = Time    hola = Time    hora = Hour(Time)    minutos = Minute(Time)    segundos = Second(Time)    tiempo_totales = (hora * 3600) + (minutos * 60) + segundos +(minutos_sumados * 60)    hora_nueva = tiempo_totales \ 3600    minutos_nuevos = (tiempo_totales Mod 3600) \ 60    segundos_nuevos = (tiempo_totales Mod 3600) Mod 60    Text2.Text = Str(hora_nueva) + ":" + Str(minutos_nuevos) + ":" + Str(segundos_nuevos)End Sub 

piyey:
Hola solcito...

Estube probando como resolver tu problema, y por analogía se me ocurrió esta idea:



--- Código: Text ---Private Sub Form_Load()    Dim a As Date    Dim b As String    a = Time    b = CStr(a)    Mid(b, 4, 2) = Mid(b, 4, 2) + 10End Sub 
el resultado te lo da en String, pero funciona. Solo habría que hacerle algunas modificaciones por lo de:


--- Código: Text ---10:54:21 'Hora actual10:64:21 'La hora que daría como resultado 
Solo evalualo y haces las respectivas operaciones para corregirlo...

See you!!!  :hola:
Piyey.

eliza_marti:
Pero...piyey.... :huh: ...si tomas los caracteres correspondientes solo a los minutos puede ser que se sobrepasen los 60 m....y....date cuenta que hay un error ..por ejemplo en el ejemplo que pones..no existen las 10 con 64  :huh:  ..
Bueno bye :hola:  :comp:  :ph34r:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente