Reloj en formulario VBA 🕑

แชร์
ฝัง
  • เผยแพร่เมื่อ 20 ก.ย. 2024
  • En este video vamos a mostrar la hora actual del sistema en un formulario, específicamente en una etiqueta (Label). Para ello trabajaremos con eventos (Activate) y con un ciclo Do While Loop mostraremos la hora con la función Time.
    También emplearemos DoEvents para que Windows tenga el control mientras se ejecuta el ciclo Do While.
    Contacto: djgagarcia@gmail.com
    #excel #vba#microsoft #SQL #tips #programacion

ความคิดเห็น • 42

  • @Angel_Alvarez_Concepcion57
    @Angel_Alvarez_Concepcion57 11 หลายเดือนก่อน +1

    Excelente trabajo ingeniero gracias por la información y abrazos desde Puerto Rico 🇵🇷

    • @EcoDev-Solutions
      @EcoDev-Solutions  8 หลายเดือนก่อน

      Gracias a ti desde Caracas, Venezuela.

  • @albertoramonrangerarbsoftw6499
    @albertoramonrangerarbsoftw6499 3 ปีที่แล้ว +2

    Siempre sorprendiendo con sus clases y eventos Master !! Felicitaciones y saludos.

  • @john958Bits
    @john958Bits 2 ปีที่แล้ว +1

    Excelente David, como siempre puro lomito del VBA

    • @EcoDev-Solutions
      @EcoDev-Solutions  2 ปีที่แล้ว

      Gracias por comentar y por el apoyo mi amigo!

  • @mostaphabouta6787
    @mostaphabouta6787 3 ปีที่แล้ว

    Muy interesante. Gracias maestro y un gran "Me gusta".

    • @EcoDev-Solutions
      @EcoDev-Solutions  3 ปีที่แล้ว

      Igual para ti un like!
      Muchas gracias por tu apoyo al canal.

  • @jneyra21
    @jneyra21 3 ปีที่แล้ว

    Excelente !!! profesor usted siempre enseñando sus conocimientos avanzados de BVA, de verdad me sirve mucho y creo que al resto de personas también.
    ● Ojalá sea posible nos enseñe como cerrar un libro de Excel a una determinada hora y no se vuelva abrir hasta una hora programada salvo con una autorización del usuario espero me entienda. Saludos desde Perú

    • @EcoDev-Solutions
      @EcoDev-Solutions  3 ปีที่แล้ว +1

      Hola
      Interesante tu pregunta. Esto es posible de hacer con el programador de tareas de Windows. En un video de mi amigo Sergio hay un ejemplo sencillo el cual se pueda adaptar.
      Te dejo el link del video : th-cam.com/video/X5dN7nKUF18/w-d-xo.html&ab_channel=SergioAlejandroCampos-EXCELeINFO

    • @jneyra21
      @jneyra21 3 ปีที่แล้ว

      @@EcoDev-Solutions gracias lo buscaré

  • @josearieltorrezchambi184
    @josearieltorrezchambi184 2 ปีที่แล้ว +2

    me funciono, capo!!

  • @joseantoniosanchezlopez7215
    @joseantoniosanchezlopez7215 3 ปีที่แล้ว

    David, Evidentemente esto se puede poner en cualquier hoja, es un formulario, solo habria que ponerlo en el evento activate de la hoja que corresponda, pero donde realmente quedaría muy bien es en el formulario de menú que haces en tus proyectos, con otro Label con la fecha actual.
    Gracias por tu tiempo y aportes.
    Un abrazo virtual desde España

    • @EcoDev-Solutions
      @EcoDev-Solutions  3 ปีที่แล้ว +1

      Lo recomiendo mas en un form pero igual se puede adaptar. Todo dependerá de las necesidades.

    • @joseantoniosanchezlopez7215
      @joseantoniosanchezlopez7215 3 ปีที่แล้ว

      @@EcoDev-Solutions si, eso apuntaba, en una hoja pero que al abrir la hoja ya arranque el formulario directamente.

  • @jonathansologaistoa2417
    @jonathansologaistoa2417 3 ปีที่แล้ว

    Gracias por el ejemplo esta increible, me gustaria poder adaptarlo para el cobro de un cafe internet, para 10 maquinas

    • @EcoDev-Solutions
      @EcoDev-Solutions  3 ปีที่แล้ว

      Que bueno que te guste.
      Saludos cordiales.

  • @miguelortiza769
    @miguelortiza769 2 ปีที่แล้ว

    Excelente video!! Llevaba tiempo buscando algo parecido, pero me gustaría que el reloj sirviera como un cronometro, verá tengo un formulario para el registro de la hora de inicio y la hora de termino de ciertas tareas y estas se envíen a una base de datos, esto funcionaria con un botón "iniciar " y "terminar ", la cuestión aquí es como hago esta función para que se capture la hora de inicio y termino. Espero que se haya entendido y pueda ayudarme .
    Gracias de antemano
    Saludos!!

    • @EcoDev-Solutions
      @EcoDev-Solutions  ปีที่แล้ว +1

      Puedes crear tres variables de tipo date.
      La primera captura la hora en que inició la ejecución del código.
      La segunda captura el final de la ejecución del código
      La tercera capturaría la diferencia entre las dos restando el final vs el inicio.
      A todas estas luego le incluyes el formato de tipo hora (Format(Tiempo,"HH:MM:SS")

  • @KYBARIDER
    @KYBARIDER ปีที่แล้ว

    Si funciona solo unos detalles si utilizo el label y hago funcionar el formulario y doy click sobre la hora se abre el cuadro de herramientas de vba XDD aun ejecutando fuera del codigo osea aun sin darle play lo solucione cambiando el label por un cuadro de texto y para que se viera mas real descargue una fuente digital asi con fondo negro y fuente en verde luce mas como un reloj no se a que se deba que brinca el cuadro de herramientas con el label...

    • @EcoDev-Solutions
      @EcoDev-Solutions  ปีที่แล้ว

      Hola
      Te felicito por ver y hacer los ajustes a tu medida. De seguro que lograrás hacer mejores cosas en la programación y mas.
      Ya has visto en mi canal las animaciones y juegos con VBA?

  • @alonsoconstantine8080
    @alonsoconstantine8080 3 ปีที่แล้ว

    Es necesario el QueryClose?
    al cerrarlo normalmente se detiene o es que se ejecuta en segundo plano? 🤔🤔

    • @EcoDev-Solutions
      @EcoDev-Solutions  3 ปีที่แล้ว

      Eso lo puedes comprobar sin cerrar con el botón que se programó para detener "End" o cuando se cierra con el botón por defecto X en la esquina superior derecha.
      Puedes hacer las pruebas con F8 (Paso a paso) desde el editor de código VBA.

  • @williamalbertogonzalezgonz5396
    @williamalbertogonzalezgonz5396 2 ปีที่แล้ว

    Buenas noches , excelente ejemplo , estaba buscando la forma de realizar esa rutina y no lo he podido ligrsr, me pidrias facilitar el codigo de la macri psra adactarlo en mi oriyrcto , graciss de antemano

    • @EcoDev-Solutions
      @EcoDev-Solutions  2 ปีที่แล้ว

      Hola
      Disculpa pero no lo tengo a la mano. Puedes ver poco a poco el video e ir haciendo lo mismo para que así puedas hacer las pruebas del funcionamiento.

  • @camilapenuela4750
    @camilapenuela4750 2 ปีที่แล้ว

    Excelente, pero porfe, la macro no se me detiene, que puedo hacer? Hice el QueriClose pero ahi sigue, solo la puedo detener con el boton de vba del cuadrado

    • @EcoDev-Solutions
      @EcoDev-Solutions  2 ปีที่แล้ว

      Hola
      El evento es QueryClose y lo encuentras cuando busques los distintos eventos de tu form.
      En el video se muestra como se utiliza.
      Saludos cordiales.

    • @camilapenuela4750
      @camilapenuela4750 2 ปีที่แล้ว

      @@EcoDev-Solutions gracias profe ya lo pude solucionar, muy buen video

  • @Efren_Lopez
    @Efren_Lopez 2 ปีที่แล้ว

    Asesóreme maestro, como puedo pasar el Label de la hora a un textbox con un boton de comando, yo le pongo como código LblTiempo=TextBox1 en el boton de comando y no pasa, o como le puedo hacer, lo que quiero es copiar la hora del label a un textbox con un clic de boton de comando

    • @Efren_Lopez
      @Efren_Lopez 2 ปีที่แล้ว +1

      Ya no, ya le halle jeje, gracias de todas maneras, saludos cordiales...

    • @EcoDev-Solutions
      @EcoDev-Solutions  2 ปีที่แล้ว

      @@Efren_Lopez me imagino que empleaste la propiedad caption

  • @luisenriquecodarluporeateg9850
    @luisenriquecodarluporeateg9850 ปีที่แล้ว

    por que sale option explicit ?

    • @EcoDev-Solutions
      @EcoDev-Solutions  ปีที่แล้ว

      Para obligar que se declaren las variables. Es opcional.
      Si no lo colocas, VBA asigna a las variables no declaradas el tipo Variant.

  • @luissantander5642
    @luissantander5642 2 ปีที่แล้ว

    Hola ecoExcel le comento que la hora no muestra con am/pm en el label y solo la hora muestra

  • @evladi16
    @evladi16 ปีที่แล้ว

    Buenas.. Seria posible que no mostrara los segundos.. Gracias

    • @EcoDev-Solutions
      @EcoDev-Solutions  ปีที่แล้ว

      Claro.
      Solo incluye una funcion para dar formato.
      Ejemplo : Format(Time, "hh:mm am/PM")