Paso 3: El código
1) abrir la aplicación Bloc de notas:
Haga clic en Inicio = > haga clic en programas = > accesorios , haga clic en = > haga clic en Bloc de notas
O
Haga clic en Inicio = > haga clic en Ejecutar = > tipo Bloc de notas en el cuadro Ejecutar y haga clic en Aceptar.
2) copiar el código debajo de la línea de apóstrofo y asterisco y luego péguelo en Bloc de notas.
' *********************************************
Dim aviso
Aviso = "Vacaciones restantes de este año" & Year(Date)
Si Month(date) = 1 y fecha < DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) entonces
Vacaciones = 1
ElseIf Month(date) = fecha y 1 > DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) entonces
Vacaciones = 2
ElseIf Month(date) = 2 y fecha < DateSerial(Year(Date),2,14) entonces
Vacaciones = 2
ElseIf Month(date) = 2 y fecha < DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 entonces
Vacaciones = 3
ElseIf mes (fecha) = 2 entonces
Vacaciones = 4
ElseIf mes (fecha) = 3 entonces
Vacaciones = 4
ElseIf mes (fecha) = 4 entonces
Vacaciones = 4
ElseIf mes (fecha) = 5 y fecha < DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) entonces
Vacaciones = 4
ElseIf mes (fecha) = 5 y fecha > DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) entonces
Vacaciones = 5
ElseIf mes (fecha) = 6 then
Vacaciones = 5
ElseIf mes (fecha) = 7 y fecha < DateSerial(Year(Date),7,4) entonces
Vacaciones = 5
ElseIf mes (fecha) = 7 y fecha > DateSerial(Year(Date),7,4) entonces
Vacaciones = 6
ElseIf mes (fecha) = 8 entonces
Vacaciones = 6
ElseIf mes (fecha) = 9 y fecha < DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) entonces
Vacaciones = 6
ElseIf mes (fecha) = 9 y fecha > DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) entonces
Vacaciones = 7
ElseIf mes (fecha) = 10 y fecha < DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) entonces
Vacaciones = 7
ElseIf mes (fecha) = 10 y la fecha > DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) entonces
Vacaciones = 8
ElseIf mes (fecha) = 11 y fecha < DateSerial(Year(Date),11,11) entonces
Vacaciones = 8
ElseIf mes (fecha) = 11 y fecha < DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) entonces
Vacaciones = 9
ElseIf mes (fecha) = 11 y fecha > DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) entonces
Vacaciones = 10
ElseIf mes (fecha) = 12 y fecha < DateSerial(Year(Date),12,25) entonces
Vacaciones = 10
Otra cosa
Vacaciones = 11
Terminar si
Dim Hol(10)
' Enero
Hol(0) = DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) & "-" & "Día de Martin Luther King es" & DateDiff("d",date,DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3)) & "días".
' Febrero
Hol(1) = DateSerial(Year(Date),2,14) & "-" & "Día de San Valentín es en" & DateDiff("d",date,DateSerial(Year(Date),2,14)) & "días".
Hol(2) = DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 & "-" & "Día del Presidente está en" & DateDiff ("d", fecha, DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7) & "días."
' Puede
Hol(3) = DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) & "-" & "Día de los caídos es" & DateDiff("d",date,DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3)) & "días".
' Julio
Hol(4) = DateSerial(Year(Date),7,4) & "-" & "4 de julio es" & DateDiff("d",date,DateSerial(Year(Date),7,4)) & "días".
' Septiembre
Hol(5) = DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3) & "-" & "Día del trabajo es" & DateDiff("d",date,DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3)) & "días".
' Octubre
Hol(6) = DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) & "-" & "Día de la raza está en" & DateDiff ("d", fecha DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3)) & "días".
' Noviembre
Hol(7) = DateSerial(Year(Date),11,11) & "-" & "Día de los veteranos es en" & DateDiff("d",date,DateSerial(Year(Date),11,11)) & "días".
Hol(8) = DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) & "-" & "Día de acción de gracias es" & DateDiff("d",date,(DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6))) & "días".
' Diciembre
Hol(9) = DateSerial(Year(Date),12,25) & "-" & "El día de Navidad es" & DateDiff("d",date,DateSerial(Year(Date),12,25)) & "días".
Hol(10) = DateSerial (año (fecha), 12, 31) & "-" & "Eve Day del año nuevo es en" & DateDiff("d",date,DateSerial(Year(Date),12,31)) & "días." & vbCrLf & "" & DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1) & "-" & "Día de año nuevo es" & DateDiff("d",date,DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1)) & "días."
Seleccione caso vacaciones
Caso 1 Run(1)
Caso 2 Run(2)
Caso 3 Run(3)
Caso 4 Run(4)
Caso 5 Run(5)
Caso 6 Run(6)
Caso 7 Run(7)
Caso 8 Run(8)
Caso 9 Run(9)
Caso 10 Run(10)
Caso 11 Run(11)
FINAL SELECCIONE
' Declaraciones del caso para el resultado
Sub Run(var)
Set WS = CreateObject("WScript.shell")
Seleccione caso var
Caso 1 para i = 0 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 2 para i = 1 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 3 para i = 2 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 4 para i = 3 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 5 para i = 4 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 6 i = 5 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 7 For i = 6 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 8 para i = 7 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 9 para i = 8 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 10 para i = 9 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Caso 11 para i = 10 a 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Siguiente
MsgBox "Hoy es" & fecha & vbCrLf & vbCrLf & Msg, vbInformation, aviso
Final seleccione
End Sub
