Ver Mensaje Individual
  #4 (permalink)  
Antiguo 25/05/2005, 11:13
Avatar de Beakdan
Beakdan
 
Fecha de Ingreso: diciembre-2001
Ubicación: Monterrey, Nuevo León
Mensajes: 433
Antigüedad: 22 años, 4 meses
Puntos: 7
Tienes dos opciones:
Considerando que las fechas son tratadas como números de tipo Double, puedes simplemente sumarle el intervalo adecuado a la fecha. O utilizar la función DateAdd lo cual es más lento. Pero en VB eso suele no interesarle a nadie.
Código:
Dim tmpTime As Date
Dim i As Long

	tmpTime = #1:00:00 AM#
	
	While tmpTime < #11:00:00 AM# 'hora final
		Debug.Print tmpTime
		tmpTime = tmpTime + (1 / 96) '96 = 24Hr * 4 = cuartos de hora en un día
	Wend
	
	tmpTime = #1:00:00 AM#
	While tmpTime < #11:00:00 AM# 'hora final
		Debug.Print tmpTime
		tmpTime = DateAdd("n", 15, tmpTime)
	Wend

Última edición por Beakdan; 25/05/2005 a las 11:21