MS Access VBA - Dates

[shiznaw]

I got another problem while working on this database for the Univ.

The Form.viewreports has several radial button options so that the user can
view a Report for several periods--like a day, a week, a month, etc. The frame is linked to a select case statement.

The user is also able to choose the radial button options: "fiscal year" and "fiscal year-to-date" reports. The fiscal year for the univ. starts on July 1st.

The Query that sends the data to the Report for a user to view has two parameters called "bgndate" and "enddate" which are both linked to fields on the Forms![viewreport] which I am currently working.

So, Forms![viewreports]![bgndate] and Forms![viewreports]![enddate] are available for the user to define.

Question: How in the heck, do I set the [bgndate] on the Form![viewreport]
to the beginning of the fiscal year -- July 1st (current year)

--shiznaw

[missinglinq]

If you're asking how to set add the current year to July1, then something like this should work:

bgndate = "07/01/" & datepart("yyyy",Date)

[shiznaw]

I think I got it: How to establish the Fiscal Year-to-Date Parameter in VBA

Dim fscldate as Variant
----------------------------------------------------------------------------------------
If Date < Format("08/01/" & Year(Now)) Then
fscldate = Format("08/01/" & Year(Now) - 1)
Else
fscldate = Format("08/01/" & Year(Now) - 1)
End If
----------------------------------------------------------------------------------------
[reprtform]![Beginning] = fscldate
[reprtform]![ending] = DateSerial(Year(Now()), Month(Now()), Day(Now()))
msgbox ("From Date: " & [Beginning] & " " & "To Date: " & [ending])

the above works. Please critique
thanxs
shiznaw, scripts village idiot

[FishVal]

I think I got it: How to establish the Fiscal Year-to-Date Parameter in VBA

Dim fscldate as Variant
----------------------------------------------------------------------------------------
If Date < Format("08/01/" & Year(Now)) Then
fscldate = Format("08/01/" & Year(Now) - 1)
Else
fscldate = Format("08/01/" & Year(Now) - 1)
End If
----------------------------------------------------------------------------------------
[reprtform]![Beginning] = fscldate
[reprtform]![ending] = DateSerial(Year(Now()), Month(Now()), Day(Now()))
msgbox ("From Date: " & [Beginning] & " " & "To Date: " & [ending])

the above works. Please critique
thanxs
shiznaw, scripts village idiot

Nice!
But of course not the only way.
Here is my solution.

=DateSerial(Year(DateAdd("m", -7, [YourDate])), 8, 1)

How do you like it?