ник: час
блин чё такое с датами
Dim DATA_STR1 As String
Dim DATA_STR2 As String
Dim DATA_S1 As Date
Dim DATA_S2 As Date
DATA_STR1 = Format(CStr(Me!Calendar1), "dd.mm.yyyy")
DATA_STR2 = Format(CStr(Me!Calendar2), "dd.mm.yyyy")
DATA_S1 = CDate(DATA_STR1) несоответствие типов данных
DATA_S2 = CDate(DATA_STR2) несоответствие типов данных