• Viernes 15 de Noviembre de 2024, 10:17

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - vriko

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: Calcular Horas
« en: Jueves 25 de Marzo de 2004, 19:04 »
Me contesto a mí mismo pidiendo perdón por no haber leído bien la pregunta inicial...

De todos modos, siguiendo en esa línea, y si no he entendido mal la pregunta (es que me despistó lo de los "dos datos"), puedes pasar un String strFecha a Date dtFecha, y luego aplicarle a la variable tipo fecha las funciones Hour(), Minute() y Second().

Me explico:

  Dim strFecha As String
  Dim dtFecha As Date
  Dim intHoras As Integer
  Dim intMinutos As Integer
  Dim intSegundos As Integer

  strFecha = "01:08"
  dtFecha = Cdate(strFecha)

  intHoras = Hour(dtFecha)
  intMinutos = Minute(dtFecha)
  intSegundos = Second(dtFecha)


Esto te funcionará tanto con cadenas "hh:mm" como "hh:mm:ss"

Espero que sea esto...

2
Visual Basic 6.0 e inferiores / Re: Calcular Horas
« en: Jueves 25 de Marzo de 2004, 18:37 »
Cita de: "roxiii"
hola, esta vez deseo saber si alguien conoce alguna funcion o componente que calcule las horas, minutos y segundos en base a dos datos en cualquier formato de time, es decir hh:mm:ss o hh:mm solamente... gracias :hola:
Hola:

  Verás, si tienes los dos datos digamos en dos cadenas (String) strHoraIni y strHoraFin, puedes hacer lo siguiente:

  dblDiferenciaHoras = 24 * (CDate(strHoraFin) - CDate(strHoraIni))

El caso es que dos variables de tipo Date las puedes restar, de manera que el resultado es un número real (Double) que expresa la diferencia en días, por lo que, si quieres obtener la diferencia en horas, sólo tienes que multiplicarlo por 24.

Lo único que tienes que tener en cuenta es que las variables iniciales de tipo String han de contener valores que se puedan transformar al tipo Date, porque sino te fallará la llamada a la función CDate().

Espero haberte sido de ayuda...

Páginas: [1]