Incremental de Horas...

[Karolineta]

Hola gente del foro:
Esta vez les vengo a hacer una solicitud muy especial. Cualquier programador sabio que tenga una sencilla aplicación de cómo hacer para cargar un combo con algo como esto:
"01:00:00"
"01:15:00"
"01:30:00"
"01:45:00"
"02:00:00"
"02:15:00"
"02:30:00"
"02:45:00"
"03:00:00"
"03:15:00"
"03:30:00"
"03:45:00"
"04:00:00"
"04:15:00"
"04:30:00"
.
.
.
Le ruego por favor me lo haga llegar, he programado una aplicación secillita, pero como "Morfy" siempre anda rondando, como cosa rara no me funciona como debe hacerlo. Estoy casi que contrareloj. Por favor denme una manito.
Hoy por ti mañana por mi.. así reza el dicho.

Muchas gracias a quien me de la mano.

[David]

Se supone que debiera ser con AddItem, qué diferencia hay entre los Strings normales?

O lo que quieres es incrementar 15 min.?

[David]

bueno, creo que hay una funcion en vb que incrementa horarios, pero ahora mismo no puedo probar ya que estoy trabajando en una máquina sin vb.

Pero si no lo hay, puedes crear tu propio, te aseguro que no es tan difícil.
Puedes sumar a los minutos 15, con If comprobar si es mayor que 59 y sumarlo a la hora, agregarlo al combo y ya está

[Beakdan]

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

[GeoAvila]

en faq's hay un ejemplo para sumar fechas y horas, en las cuales le podes poner los 15 minutos que existen entre cada hora y hacer tu combo o tu list box desde alli

nos vemos..