Dim s1, s2 As String
   s1 = control.TextBox2.Value
   s2 = control.TextBox3.Value
   pDate = CDate(s1)
   pDateE = CDate(s2)

Private Sub Text1_Validate(Cancel As Boolean)
If Not IsDate(Text1) Then
    MsgBox "Please type date in correct format: " & Date, vbCritical, "error"
    Cancel = True
End If
End Sub

on error goto err_exit
Dim s1, s2 As String
s1 = control.TextBox2.Value
s2 = control.TextBox3.Value
pDate = CDate(s1)
pDateE = CDate(s2)
exit sub
err_exit:
MsgBox err.number & vbcrlf & err.description, vbCritical, "error"
exit sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы