Hora en un textBox

Resuelto
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. 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
    1. en tu caso
      UsfNew2.TextBox10.Value = formato(Feuil12.Range("C96").Value,"hh:mm:ss AMPM")
      Daranc
      0
      1. 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. Debería haberlo pensado: D ... En cualquier caso, gracias blux, me eres de gran ayuda para mí que soy principiante ; ).
          0
          1. 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
            1. No puedo transponer la hora en el TextBox. ¿Debo declarar las funciones HORA, MINUTO y SEGUNDO antes de usarlas? ¿Cómo?
              0
              1. 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. 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