GetCurrentDate = FormatDateTime("10.05.05", 1 )
      MsgBox GetCurrentDate

Accepted=false
Do Until Accepted
MyShortDate = InputBox("В формате DD.MM.YY","Введите дату",Date -  1 )
If VarType(MyShortDate)= 0  Then WScript.Quit 'проверка на пустоту
If not IsDate(MyShortDate) Then					'проверка дата ли
response = MsgBox("Внимательнее смотрите, что вводите", 20 ,"DD.MM.YY")
	If response= 7  Then WScript.Quit
Else
Accepted=true

End If
loop

MyMonth = Month(MyShortDate)   ' MyDate contains the current system date.
MyYear = Year(MyShortDate)		'год номер
If MyMonth= 1  Then Mymon="январь"
If MyMonth= 2  Then Mymon="февраль"
If MyMonth= 3  Then Mymon="Март"
If MyMonth= 4  Then Mymon="апрель"
If MyMonth= 5  Then Mymon="май"
If MyMonth= 6  Then Mymon="июнь"
If MyMonth= 7  Then Mymon="июль"
If MyMonth= 8  Then Mymon="август"
If MyMonth= 9  Then Mymon="сентябрь"
If MyMonth= 10  Then Mymon="октябрь"
If MyMonth= 11  Then Mymon="ноябрь"
If MyMonth= 12  Then Mymon="декабрь"

Wscript.Echo Mymon