Autor Tema: Sumar Dos Variables De Tipo Date (Leído 4199 veces)

solcito · « **en:** Lunes 7 de Marzo de 2005, 21:57 »

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 ...........

Roll · « **Respuesta #1 en:** Lunes 7 de Marzo de 2005, 22:37 »

usa la funcion DateAdd

mira el MSDN para mas info

suerte

eliza_marti · « **Respuesta #2 en:** Lunes 7 de Marzo de 2005, 23:29 »

Hola solcito!..

..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...

..bye!..

..nos vemos...

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 &#092; 3600
    minutos_nuevos = (tiempo_totales Mod 3600) &#092; 60
    segundos_nuevos = (tiempo_totales Mod 3600) Mod 60
    Text2.Text = Str(hora_nueva) + &#34;:&#34; + Str(minutos_nuevos) + &#34;:&#34; + 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) + 10
End Sub
 

el resultado te lo da en String, pero funciona. Solo habría que hacerle algunas modificaciones por lo de:

Código: Text

54:21 'Hora actual
64:21 'La hora que daría como resultado
 

Solo evalualo y haces las respectivas operaciones para corregirlo...

See you!!!

Piyey.

eliza_marti

Pero...piyey....

...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

..
Bueno bye

none123

Buenas...

Hay una forma muy practica, facil, y rapida:
------------------------------------------------------------------------------------
var = Time() + #12:10:00 AM# (suma 10 minutos)

var = Time() + #12:00:10 AM# (suma 10 segundos)

var = Time() + #12:10:08 AM# (suma 10 minutos con 8 segundos)
------------------------------------------------------------------------------------
Eso es todo es bastante sencillo y funciona a la perfeccion; gral mente la solucion mas logica y sencilla es la correcta de entre varias.
Por si las dudas si a alguien le queda duda del funcionamiento lo q hace esto es lo siguiente: time() --> toma la hora actual (del sistema)
#12:00:00# --> esto va entre numeral para indicar de q es hora y para visual 12:00:00 es como para nosotros el cero osea representa el conjunto vacio si sumo solamente 12:00:00 a la hora actual no va a variar en nada; por eso cambiando los 00:00 de minutos y segundos ya empieza a sumar... thats all!!

Bueno espero q les sirva...

eliza_marti

Tienes mucha razón none123!..

lo probé y resulto muy bien..

...es más práctico que eso de estar multiplicando..
Gracias none123..

..nos vemos!...

elmango80

Hola solcito!

Esto te puede servir perfectamente,,, es un poco largo pero funciona.

Código: Text

 
 Function SumarHoras(ByVal Hora1 As String, ByVal Hora2 As String) As String
 
    Dim H_Hora1      As String
    Dim H_Hora2      As String
    Dim M_Hora1      As String
    Dim M_Hora2      As String
    Dim ST_Horas     As Long
    Dim ST_Minutos   As Long
    Dim Horas        As Long
    Dim Minutos      As Long
    Dim MinTemp      As Long
    Dim THoras       As String
    Dim TMinutos     As String
    Dim PosComa      As Integer
    Dim temp         As Double
    Dim SepDecimal   As String * 1
 
    '//Suma Horas
    H_Hora1 = Left&#036;(Hora1, (InStr(1, (Hora1), &#34;h&#34;)) - 1)
    H_Hora2 = Left&#036;(Hora2, (InStr(1, (Hora2), &#34;h&#34;)) - 1)
    ST_Horas = Val(H_Hora1) + Val(H_Hora2)
 
    '//Suma Minutos
    PosComa = Val(InStr(1, (Hora1), &#34;,&#34;)) + 1
 
    M_Hora1 = Val(Mid&#036;(Hora1, PosComa, Len(Hora1) - PosComa))
 
    PosComa = Val(InStr(1, (Hora2), &#34;,&#34;)) + 1
 
    M_Hora2 = Val(Mid&#036;(Hora2, PosComa, Len(Hora2) - PosComa))
 
    ST_Minutos = Val(M_Hora1) + Val(M_Hora2)
 
    MinTemp = (ST_Horas * 60) + ST_Minutos
 
    temp = (1 / 2)
 
    If InStr(1, temp, &#34;,&#34;) &#60;&#62; 0 Then
        SepDecimal = &#34;,&#34;
    End If
    If InStr(1, temp, &#34;.&#34;) &#60;&#62; 0 Then
        SepDecimal = &#34;.&#34;
    End If
 
    'Hora exacta (Si MinTemp es nº entero)
    If InStr(1, (MinTemp / 60), SepDecimal) = 0 Then
        Horas = (MinTemp / 60)
        Minutos = 0
 
    'Solo minutos (Si MinTemp &#60; 60)
    ElseIf MinTemp &#60; 60 Then
       Horas = 0
       Minutos = MinTemp
    Else
 
    'Hora con minutos
        Horas = Int(MinTemp / 60)
        Minutos = MinTemp - (Horas * 60)
    End If
 
 
    THoras = Horas
    If Len(THoras) = 1 Then
        THoras = &#34;0&#34; & Horas
    Else
        THoras = Horas
    End If
 
    TMinutos = Minutos
    If Len(TMinutos) = 1 Then
        TMinutos = &#34;0&#34; & Minutos
    Else
        TMinutos = Minutos
    End If
 
    SumarHoras = THoras & &#34;h, &#34; & TMinutos & &#34;m&#34;
 
End Function
 
 

eliza_marti

Solcito!..

..porcia..el mio tambien funciona!.. ..

..chauuuuuu...

solcito

Hola Gente agradezco mucho su ayuda,

la solucion perfecta era, como dijo Roll,

DateAdd("n", 10, <HoraActual>) como ejemplo.

funciona de maravillas y en una sola linea

Saludos

eliza_marti

Solcito!..

..me alegro que hayas podido solucionar ese problemita..

...y ahora hemos aprendido una nueva opción para el manejo de horas en pocas lineas de codigo!...

..Gracias Chicos!..

SoloCodigo

Autor Tema: Sumar Dos Variables De Tipo Date (Leído 4199 veces)

solcito

Sumar Dos Variables De Tipo Date

Roll

Re: Sumar Dos Variables De Tipo Date

eliza_marti

Re: Sumar Dos Variables De Tipo Date

piyey

Re: Sumar Dos Variables De Tipo Date

eliza_marti

Re: Sumar Dos Variables De Tipo Date

none123

Re: Sumar Dos Variables De Tipo Date

eliza_marti

Re: Sumar Dos Variables De Tipo Date

elmango80

Re: Sumar Dos Variables De Tipo Date

eliza_marti

Re: Sumar Dos Variables De Tipo Date

solcito

Re: Sumar Dos Variables De Tipo Date

eliza_marti

Re: Sumar Dos Variables De Tipo Date