Converting a Date Question

[Guest]

How can I convert a date to the beginning of the nearest odd numbered year
that is equal to or before the selected year?

Example: 6/15/05 would convert to 1/01/05
4/15/06 would also convert to 1/01/05
5/20/04 would convert to 1/1/03
8/12/03 would also convert to 1/1/03
Thank you,
Charles

 

[Graham R Seach]

Charles,

MyDate = DateSerial(Year(dte) + (Year(dte) Mod 2 = 0), 1, 1)

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

 

[Guest]

Great, Thank you much!

Charles,

MyDate = DateSerial(Year(dte) + (Year(dte) Mod 2 = 0), 1, 1)

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html