VBS fecha aplicación calculadora (6 / 8 paso)

Paso 6: El código

2) Ccopiar el código debajo del apóstrofo y asterisco luego línea Paste en Bloc de notas.

' *********************************************

Dim aviso
Dim mensaje
Message1 DIM
Dim Message2

' Control de errores
Error volver siguiente

' Inputbox estándar
Aviso = "Mi contador de fecha"
Mensaje = "¿qué desea hacer?" & vbcr & vbcr & _
"1 - la fecha de hoy por el número de los días" & vbcr & _
"2 - número de días a la fecha de futuro" & vbcr & _
"3 - el número de días entre 2 fechas" & vbcr & vbcr & _
"Introduzca el número de su elección."

' InputBox resultados
Pregunta = InputBox(message,Notice)
' Comprobar Null o vacía inputbox luego cancela
IF IsEmpty(Question) entonces
WScript.quit()

ELSEIF Len(Question) = 0 THEN
WScript.quit()

Pregunta de ELSEIF = 0 entonces
WScript.quit()

OTRA COSA
Seleccione pregunta de caso
Caso 1 Run(1)
Caso 2 Run(2)
Caso 3 Run(3)
FINAL SELECCIONE

END IF

' Declaraciones del caso para el resultado de Inputbox
Sub Run(var)
Set WS = CreateObject("WScript.shell")
Seleccione caso var
Caso 1 mensaje = inputbox ("¿Cuántos días ¿quieres contar?" & vbCrLf & vbCrLf & "positivo o negativo número.", "Escriba el número de días")
Message2 = weekdayname (día de la semana (DateAdd ("d", mensaje, fecha))) & "," & DateAdd ("d", mensaje, fecha)
Mensaje = mensaje & "días a partir de hoy será" & vbCrLf & "" & Message2

Caso 2 Message1 = inputbox ("¿Cuántos días hasta?" & vbCrLf & vbCrLf & "Indique la fecha como d/m/AA o dd/mm/aaaa", "Enter futuro fecha")
Message2 = DateDiff ("d", fecha, Message1)
Mensaje = "Hay" & Message2 "días hasta" & vbCrLf & "" & Message1

Caso 3 Message1 = inputbox ("Fecha de inicio?" & vbCrLf & vbCrLf & "Indique la fecha como d/m/AA o dd/mm/aaaa", "Fecha desde")
¿Mensaje = inputbox ("fecha de finalización?  "& vbCrLf & vbCrLf &"Introduzca la fecha como d/m/AA o dd/mm/aaaa","fecha a")
Message2 = DateDiff ("d", Message1, mensaje)
Mensaje = "Hay" & Message2 & "Días" & vbCrLf & "De" Message1 & vbCrLf & "A" & mensaje

FINAL SELECCIONE
End Sub

' Mensaje de control de errores
IF Err.Number <> 0 entonces
MsgBox "has introducido algo incorrecto.  Vuelve a intentarlo.  ", 0 + 16," Ooopps... "
WScript.quit()
END IF

«Resultados finales
MsgBox mensaje, vbInformation, aviso