VBS vacaciones cuenta atrás (3 / 5 paso)

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

Artículos Relacionados

Temporizador de cuenta atrás de la lavadora - Arduino

Temporizador de cuenta atrás de la lavadora - Arduino

Hola y Bienvenidos a mi instructable para un temporizador de cuenta atrás de la lavadora. El temporizador funciona con el popular microcontrolador Arduino. Vea aquí para más información. Página de inicio de ArduinoObjetivoEl objetivo de este proyecto
Cuenta atrás de Navidad de Santa Claus!

Cuenta atrás de Navidad de Santa Claus!

Se trata de un divertido arte de la Navidad para un niño o niña. Todos los días su hijo se recibe una caja de Santa o un elfo con un pedazo de caramelo o simplemente tratar un poco! Junto con esto su hijo recibirá un resbalón de papel contando cuánto
Cuenta atrás para Navidad

Cuenta atrás para Navidad

Cuenta regresiva de los últimos 25 días antes de Navidad con este ornamento. Gire el trineo Claus de Santa para hacer girar el sistema de engranaje planetario, a su vez hace girar los copos de nieve.Este ornamento está destinado a ser impreso en una
Calendario de cuenta atrás

Calendario de cuenta atrás

este es un proyecto fácil que se puede ajustar para hacer cuenta regresiva para cumpleaños, vacaciones, exámenes o lo que nunca.Te hace falta:Una placaPintura en aerosol (utilicé frambuesa brillante Krylon y verde esmeralda)Tiza tablero pintura (yo u
¿Calendario de cuenta atrás de bloque

¿Calendario de cuenta atrás de bloque

cansado de comprar nuevos calendarios cada año? ¿Le gusta tener que recordar establecer su calendario cada día para que usted pueda recordar qué día es? Si es así entonces le encantará tener un calendario de bloque. Menos función de un calendario rea
Cómo hacer una película cuenta atrás animación usando Lego

Cómo hacer una película cuenta atrás animación usando Lego

estaba haciendo un lego video y quise hacer una cuenta regresiva como en viejas películas, así que decidí hacer uno usando lego así que aquí es cómo le puede hacer con animación stop-motion.Paso 1: Hacer el número tres Here's how to get started:Monta
Bloques de cuenta atrás de Navidad madera lindos

Bloques de cuenta atrás de Navidad madera lindos

Estos bloques son fáciles de hacer, proyecto madera gran principiante que va a ser un gran recuerdo para usted y su familia. Hace grande presenta barato para tus amigos o tus profesores de los niños en la escuela.Aquí está lo que usted necesita:poste
Temporizador de cuenta atrás

Temporizador de cuenta atrás

Conectar el Arduino como visto anteriormente.Paso 1: Cargar códigoAñadir el siguiente código con la aplicación de Arduino.
VBS fecha especial Tracker

VBS fecha especial Tracker

IntroducciónCada mes hay de cumpleaños, aniversarios y fechas especiales para personas especiales o eventos en tu vida.  A veces es difícil hacer un seguimiento de los todos de año en año.  Puede almacenarlos en una nota archivo baraja (es decir, Rol
Cuenta regresiva MUSICAL mágica Navidad máquina

Cuenta regresiva MUSICAL mágica Navidad máquina

Todo esto empezado cuando mi nieto más joven preguntó ¿cuánto es hasta Navidad?Comencé a pensar de cierta manera para un de tres años entender lo que significa ¿cuánto?Como la relación entre días, horas, minutos y segundos.Sabía lo que era "Hoy"
Construir su propia caja de Regatta cuenta regresiva

Construir su propia caja de Regatta cuenta regresiva

Una cuenta regresiva de "caja" es una caja con los cuernos. Cuando una regata inicia el cuadro de sonidos los cuernos a intervalos predeterminados: 5 minutos antes del comienzo, 4 minutos antes de empezar, 1 minuto antes del comienzo y en el mom
Temporizador de cuenta regresiva de Arduino sencillo 7 segmentos

Temporizador de cuenta regresiva de Arduino sencillo 7 segmentos

En esta guía de Instructables te mostrará cómo hacer un simple temporizador de cuenta atrás - dos dígitos - mediante el uso de la placa de Arduino uno y displays de 7 segmentos.Podremos ajustar el temporizador en el sketch del programa cambiando el v
Tarjeta de cuenta y los tamaños de apuesta que van

Tarjeta de cuenta y los tamaños de apuesta que van

Blackjack es batible si no barajan cartas cada mano. Dependiendo de las cartas restantes, puede hacer pivotar la ventaja al jugador. Esto significa que podrás mantener el control de las tarjetas que ya han sido tratadas y luego determinan si las cart
Calendario de Adviento (Navidad cuenta regresiva)

Calendario de Adviento (Navidad cuenta regresiva)

Ya hemos empezado nuestra cuenta atrás de Navidad con este calendario de Adviento que he creado. Es un proyecto rápido, simple y barato que cualquiera puede hacer.Revisa mi video tutorial para ver cómo hice nuestro calendario de Adviento.