Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: z_ane_666 en 8 Noviembre 2011, 02:36 am



Título: intervalo entre fechas
Publicado por: z_ane_666 en 8 Noviembre 2011, 02:36 am
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


Título: Re: intervalo entre fechas
Publicado por: raul338 en 8 Noviembre 2011, 02:42 am
Busca sobre la funcion DateDiff (http://www.programandoenvb6.com.ar/2009/09/datediff.html)


Título: Re: intervalo entre fechas
Publicado por: BlackZeroX en 8 Noviembre 2011, 03:45 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!ˇ.


Título: Re: intervalo entre fechas
Publicado por: z_ane_666 en 8 Noviembre 2011, 12:33 pm
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
  1. Option Explicit
  2. Private Declare Function GetTickCount& Lib "kernel32" ()
  3. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  4. Private Sub Form_Load()
  5. Dim a As Date
  6. Dim b As Date
  7. a = CDate("08/01/2009" & " " & "05:15:14 p.m.")
  8. b = CDate("08/01/2009" & " " & "09:16:11 a.m.")
  9. Dim criterio As Date
  10. criterio = CDate("08/01/2009" & " " & Time)
  11. If DateDiff("s", a, b) < 0 Then
  12. b = DateAdd("d", 1, b)
  13. End If
  14. If DateDiff("s", a, criterio) > 0 And DateDiff("s", b, criterio) < 0 Then
  15. MsgBox "esta contenido"
  16. End If
  17. End Sub
  18.  

saludos


Título: Re: intervalo entre fechas
Publicado por: 79137913 en 8 Noviembre 2011, 13:34 pm
HOLA!!!

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

GRACIAS POR LEER!!!