Msbox cuando caiga fin de mes en dia inhabil

01/09/2008 - 19:11 por Sago | Informe spam
Buenas tardes, alguien me podria ayudar por favor ya que necesito ponerle a
un archivo cuando lo abra el viernes un Msbox para que me recuerde que es fin
de mes y que cae en dia inhabil (sabados y domingos), ademas considerar los
feriados en mexico, ejemplo este fin de semana pasado que cayo 30 de agosto
en sabado y 31 de agosto en domingo.

Otro ejemplo es el mes de noviembre cae el 28 en viernes, el 29 en sabado,
el 30 en domingo.

Espero que me puedan ayudar por favor.

Saludos.
 

Leer las respuestas

#1 Héctor Miguel
01/09/2008 - 22:07 | Informe spam
hola, !

__ 1 __
... necesito ponerle a un archivo cuando lo abra el viernes un Msbox
para que me recuerde que es fin de mes y que cae en dia inhabil (sabados y domingos)



1) como podria ser que el dia viernes sea inhabil por sabado y domingo ???

__ 2 __
ademas considerar los feriados en mexico
ejemplo este fin de semana pasado que cayo 30 de agosto en sabado y 31 de agosto en domingo.
Otro ejemplo es el mes de noviembre cae el 28 en viernes, el 29 en sabado, el 30 en domingo...



2) consulta la ayuda en linea por las funciones dia.lab(... y dias.lab(...
donde puedes incluir dias "feriados" ademas de fines de semana (p.e. en algun rango ?)

si quieres mostrar un msgbox cuando al abrir el libro se trate del ultimo dia del mes (pendiente si es inhabil o no)...
copia/pega (o escribe) lo siguiente en el modulo de codigo de tu libro (ThisWorkbook)

Private Sub Workbook_Open()
If Month(Date + 1) > Month(Date) Then MsgBox "Hoy es el ultimo dia del mes !!!"
End Sub

si cualquier duda (o informacion adicional, mas... "clara")... comentas ?
saludos,
hector.

Preguntas similares