Script qui vous donne le jour correspondant à une date donnée

Vous trouvez ci-dessous un script qui vous demande d'entrer une date quelconque:

Ensuite,  ce script vous donne le jour de la semaine correspondant à cette date:

Si l'utilisateur entre une date erronée, le script lui demande qu'il devrait la valeur entrée n'est pas une date.

CODE SCRIPT:

'script qui vous donne le jour correspondant à la date entrée
mydate = InputBox("Please enter a date!")
if isDate(mydate) then
MsgBox mydate & " : corespond un " & WeekdayName(Weekday(mydate))
else
MsgBox "Vous n'avez pas saisie une date!"
end if