ник: bel
еще я попробовала написать программно и повесить на свойство "Открытие" формы вот это
Private Function SetTime_3() As Date
SetTime_3 = Int(CDate([Variant4]) * 24) & ":" & Format(CDate([Variant4]) - Int(CDate([Variant4])), "nn")
End Function
Но тогда в самом отчете появляется слово "Ошибка"