Ver originales (Francés)

Hora en un textBox

Resuelto
Noodlesnood -  
Hola,

Aquí está mi problema: me gustaría transponer en un textBox mi número de horas que proviene de la celda C96, pero me da un número con decimales con esta parte del código:

UsfNew2.TextBox10.Value = Feuil12.Range("C96").Value

¿Debo hacer una conversión a cadena de caracteres? ¿De qué manera?

Nood
Configuración: Windows XP Firefox 2.0.0.1

8 respuestas

  1.  blux Moderador
    Hola,

    es normal, EXCEL guarda las horas como múltiplos de días:

    12:00 ->0,5
    01:00 ->0,041666667
    24:00 ->1

    Por lo tanto, necesitas utilizar las funciones que devuelven la hora, los minutos y los segundos a partir de un número de serie: 
    UsfNew2.TextBox10.Value = HORA(Feuil12.Range("C96").Value) & ":" & MINUTO(Feuil12.Range("C96").Value) & ":" & SEGUNDO(Feuil12.Range("C96").Value)

    ¿Te parece bien así?

    --
    A+ Blux 
     "Los tontos se atreven a todo. Es incluso así como los reconocemos"
    0
    1. Noodlesnood Autor
      Hola blux,

      He intentado tu método y tengo un mensaje de error 'Sub o Función no definida' (cursor sobre HORA). Gracias por tu ayuda ; )

      Nood
      0
      1. Noodlesnood Autor
        No puedo transponer la hora en el TextBox. ¿Debo declarar las funciones HORA, MINUTO y SEGUNDO antes de usarlas? ¿Cómo?
        0
        1. blux Moderador
          Lo siento, no había prestado atención a que era VBA...

          Así que está en inglés: hour, minute, second...

          --
          A+ Blux 
           "Los tontos se atreven a todo. Es incluso por eso que los reconocemos"
          0
          2. Noodlesnood Autor
            Debería haberlo pensado: D ... En cualquier caso, gracias blux, me eres de gran ayuda para mí que soy principiante ; ).
            0
            1. Daranc
              La instrucción siguiente:
              TextBox1.Value = Format(Range("a1").Value, "hh:mm:ss AMPM")
              devuelve el valor de la celda A1 en formato hora minuto segundo PM o AM
              Daranc
              0
              1. Daranc
                en tu caso
                UsfNew2.TextBox10.Value = formato(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
                Daranc
                0
                1. Lorenzozo
                  Hola,

                  Estoy intentando usar los códigos a continuación, pero ¿dónde debo colocar esta secuencia de código? ¿En el procedimiento principal que utiliza esta caja de texto o en el procedimiento que maneja la apertura del cuadro de diálogo donde se encuentra la caja de texto? ¡Ayuda, por favor!

                  Gracias de antemano

                  Lorenzozo
                  0