intervalo entre fechas

Iniciado por z_ane_666, 8 Noviembre 2011, 02:36 AM

0 Miembros y 1 Visitante están viendo este tema.

z_ane_666

hola foro, estuve buscando en internet la manera de hacer cierta cosa dentro de un intervalo de tiempo. por ejemplo:
en el evento load poner esto

si time está entre el intervalo de 12:40:20 pm y las 08:15:10 am hacer lo siguiente (aca codigo para hacer)

pero no logre encontrar nada, alguna idea?

saludos

raul338


BlackZeroX

Cita de: z_ane_666 en  8 Noviembre 2011, 02:36 AM

si time está entre el intervalo de 12:40:20 pm y las 08:15:10 am hacer lo siguiente (aca codigo para hacer)


ammm no te entiendo...
Intervalo = Sucesion de una serie desde A hasta B de N en N.

o que quieres es un Rango? es decir la diferencia?

Dulces Lunas!¡.
The Dark Shadow is my passion.

z_ane_666

#3
muchas gracias a los que respondieron, yo mismo ya hice el codigo, asi que lo cuelgo por si alguna persona lo necesite:

supongamos que quiera ver que la hora actual este contenida entre las 05:15:14 p.m. y las 09:16:11 a.m.(del dia sgte obviamente)
(creo que lo correcto seria llamarlo dentro del rango de..)

Código (vb) [Seleccionar]
Option Explicit
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Dim a As Date
Dim b As Date
a = CDate("08/01/2009" & " " & "05:15:14 p.m.")
b = CDate("08/01/2009" & " " & "09:16:11 a.m.")
Dim criterio As Date
criterio = CDate("08/01/2009" & " " & Time)
If DateDiff("s", a, b) < 0 Then
b = DateAdd("d", 1, b)
End If
If DateDiff("s", a, criterio) > 0 And DateDiff("s", b, criterio) < 0 Then
MsgBox "esta contenido"
End If
End Sub


saludos

79137913

HOLA!!!

Llego tarde pero aca tenes un tema con muchos ejemplos de fechas:
http://foro.elhacker.net/empty-t305069.0.html

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*