Printing a fixed date next year

  • Thread starter Thread starter Robin Chapple
  • Start date Start date
R

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
 
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)
 
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?
Click to expand...

Does this do it for you?

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

Tom Lake
 
Back
Top