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!
lo felicito sus ejemplos son muy practico, pero tengo una duda , hay forma de llenar un combox con los dias del mes?, muchas gracias.
Claro! solo tendrás que rellenar el combobox con el resultado devuelto.
Aquí tienes un ejemplo de como añadir a un combobox
http://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!
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
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!