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 - функция, преобразующая строку в дату