Printing a fixed date next year

[Robin Chapple]

I need to print membership cards which show

"Valid to June (Next Year)" always.

I have adapted some earlier advice to build both of these options
which work but seem clumsy.

="Valid to June " & DatePart("yyyy",Date()+365)

="Valid to June " &
Year(Date())+(Date()<DateSerial(Year(Date()),7,2))+1

Is there an easier piece of code?

Thanks,

Robin Chapple

 

[Ken Snell [MVP]]

Easier? I leave that to you as a conclusion:


="Valid to June " & Year(Date()) - (Date() > DateSerial(Year(Date(), 7, 0))

or

="Valid to June " & Year(Date()) - (Month(Date()) > 6)

 

[Tom Lake]

I need to print membership cards which show

"Valid to June (Next Year)" always.

I have adapted some earlier advice to build both of these options
which work but seem clumsy.

="Valid to June " & DatePart("yyyy",Date()+365)

="Valid to June " &
Year(Date())+(Date()<DateSerial(Year(Date()),7,2))+1

Is there an easier piece of code?

Does this do it for you?

= "Valid to June " & Year(Date()) + 1

Tom Lake