MS VBA | Дата (Date)

IsDate - функция проверки на дату

 

Пример:

 

Sub OrderReady()

Dim orderdate

orderdate = InputBox("Введите дату заказа")

If IsDate(orderdate) Then

   orderdate = CDate(orderdate)

   MsgBox "ваш заказ будет готов " & orderdate + 10

Else

   MsgBox "Вы вводите нечто не похожее на дату..."

End If

End Sub

 

CDate - функция, преобразующая строку в дату

 



© 2018 | Анна Петросян | pashelp@yandex.ru