assigning a value to a date variable

[demills]

Hi All

This is probably a simple question.
I'm having a problem assigning a value to a date variable. What i'm looking for is something like this -

Dim RptYear As Integer
Dim RptDate As Date

If month(Now()) < 6 Then
RptYear = Year(Now()) - 2
Else
RptYear = Year(Now()) - 1
End If
RptDate = #06/30/#+RptYear

It doesn't like the last statement.

 

[SkipVought]

Hi,

RptDate = DateSerial(rptyear,06,30)

Skip,
[sub]
[red][/red]
[/sub]

 

[demills]

Excellent worked perfectly. I knew it was something simple.

Thanks