Not that I'm aware of. I'd use a function. Here's one out of a program I wrote for a university, just to give you an example.
Code:
Public Function SchoolYearStart(TestDate As Date) As Date
If TestDate < DateSerial(Year(TestDate), 7, 1) Then
SchoolYearStart = DateSerial(Year(TestDate) - 1, 7, 1)
Else
SchoolYearStart = DateSerial(Year(TestDate), 7, 1)
End If
End Function