Obtener Hora y Minutos por separado
Publicado por XcUiDi (30 intervenciones) el 30/12/2002 08:54:39
Bien, quizá para algunos sea fácil, lo he intentado de la siguiente manera:
HSal = Format(Textos(1).Text, "hh") 'Este si funciona
MSal = Format(Textos(1).Text, "mm") 'Este no
HEnt = Format(Textos(0).Text, "hh") ' Este si funciona
MEnt = Format(Textos(0).Text, "mm") 'Este no
el caso es que.. si por ejemplo, tengo una cadena en Textos(0).Text = "15:30" y en Textos(1).Text = "7:30", al obtener el código anterior, si me obtiene HSal = 7 y HEnt = 15, pero con los minutos no pasa lo mismo, sino unicamente lo interpreta como si fuesen meses, por ejemplo, me obtiene MSal = 12 y MEnt = 12 (o sea, el número máximo para los meses).
Espero poder conseguir obtener los minutos, ya que deseo hacer esto:
Horas = HSal - HEnt (para calcular las horas) y
Minutos = MSal - MEnt (para calcular los minutos) y despues
total = Horas + (Minutos/60) para calcular el total de horas y minutos entre HEnt y HSal :D
Espero me puedan ayudar :D Les estoy eternamente agradecido.
HSal = Format(Textos(1).Text, "hh") 'Este si funciona
MSal = Format(Textos(1).Text, "mm") 'Este no
HEnt = Format(Textos(0).Text, "hh") ' Este si funciona
MEnt = Format(Textos(0).Text, "mm") 'Este no
el caso es que.. si por ejemplo, tengo una cadena en Textos(0).Text = "15:30" y en Textos(1).Text = "7:30", al obtener el código anterior, si me obtiene HSal = 7 y HEnt = 15, pero con los minutos no pasa lo mismo, sino unicamente lo interpreta como si fuesen meses, por ejemplo, me obtiene MSal = 12 y MEnt = 12 (o sea, el número máximo para los meses).
Espero poder conseguir obtener los minutos, ya que deseo hacer esto:
Horas = HSal - HEnt (para calcular las horas) y
Minutos = MSal - MEnt (para calcular los minutos) y despues
total = Horas + (Minutos/60) para calcular el total de horas y minutos entre HEnt y HSal :D
Espero me puedan ayudar :D Les estoy eternamente agradecido.
Valora esta pregunta


0