Funcion de días de la semana Visual Basic (vb6)

Bienvenidos a VerTutoriales.com, siguiendo con visual basic y buscando las funciones de fecha que necesitamos para nuestra aplicación, en este caso vamos a resolver cómo saber en que cae un día determinado, pasandole como parámetro una fecha en formato numérico como 22/12/2011 para que nos devuelva 5 (jueves) teniendo en cuenta que el 1 es Sunday o Domingo 🙂

Así que sin más demora, vamos allá:

Lo primero sacar la fecha:

MsgBox Weekday(DateSerial(2011, 12, 22))

En este ejemplo anterior, conseguiremos que visual basic nos devuelva un 5 que corresponde al jueves.

Debemos de tener en cuenta que comenzamos a contar desde el domingo que es 1.

Tambien se puede usar esta funcion para trabajar con el idioma configurado en Windows: WeekdayName()

MsgBox WeekdayName(Weekday(DateSerial(2012, 12, 22)), False, vbSunday)

Esta última función es interesante para hacer comprobaciones o simplemente para mostrar la fecha en formato más extenso, aunque para eso hay otras funciones más prácticas que explicaremos otro día.

Nota: La fecha está introducida en formato inglés, por lo que el formato es: año, mes y día.

Espero que os haya servido!

Si teneis cualquier duda, ya sabeis que podeis comentar o escribir a nuestro tutor.

Un saludo!

Comments (4)

  • frank 11 mayo, 2016

    lo felicito sus ejemplos son muy practico, pero tengo una duda , hay forma de llenar un combox con los dias del mes?, muchas gracias.

    Reply
    • Carlos Dk 13 mayo, 2016

      Claro! solo tendrás que rellenar el combobox con el resultado devuelto.

      Aquí tienes un ejemplo de como añadir a un combobox
      https://vertutoriales.com/anadir-informacion-a-un-combobox-de-una-tabla-de-access-desde-visual-basic-con-videotutorial/

      Es atacando a una base de datos Access, pero en esencia es el bucle que rellena el combobox:
      while Rs.EOF = false

      ‘Esta es la línea que añade al combobox, en vez de Rs!almacen, deberás de poner un numérico con el contador de los días del mes 🙂
      cbComboBox.AddItem Rs!almacen

      Rs.MoveNext

      wend

      Por cierto… Gracias por la felicitación!

      Reply
  • yordin 23 noviembre, 2019

    Buen día una consulta como hago ara obtener por separado cuantos domingo, cuantos sábados, y cuantos feriados están entre fecha inicio y fecha final en vb6

    Reply
    • Carlos Dk 25 noviembre, 2019

      Buen día

      Se me ocurre una manera fácil, para ello tendrás que realizar un bucle para ir viendo los días 1 a 1 y confirmar si es sabado o domingo, pero los feriados no lo sabe VB6, eso lo tienes que tener registrado en algún lugar aparte y validarlo en ese bucle.

      Se podría optimizar, tomando un primer sábado y domingo y dividir entre 7 para sacar las veces que hay sábados y domingos.

      Espero darte idea 😉

      Salud!

      Reply

Leave a comment

Sign in to post your comment or sine up if you dont have any account.

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Tu software de gestión


Últimas preguntas:

Logo Dkreativo
Vertutoriales