Solved Calculate the last date of each current year (1 Viewer)

[gstylianou]

Good Evening,

I'm trying to figure out how to automatically calculate the last date of each current year. For example if we are in 2023 I should find the result 31/12/2023 or if we are in 2024 the result 31/12/2024 (the same result coincides)
Any idea?

 

[The_Doc_Man]

dtLastDate = CDate( "#31/12/" & DatePart( "yyyy", Now() ) & "#" )

 

[ebs17]

dtLastDate = DateSerial(Year(Date(), 12, 31)

 

[arnelgp]

(the same result coincides)

always. and will always start on january 1.

 

[gstylianou]

dtLastDate = DateSerial(Year(Date(), 12, 31)

Hi and thnaks for your help but,

im getting error when o run the code as following

Dim dtLastDate As Date
dtLastDate = DateSerial(Year(Date, 12, 31))
MsgBox dtLastDate

 

[gstylianou]

dtLastDate = CDate( "#31/12/" & DatePart( "yyyy", Now() ) & "#" )

Hi, thanks,

Maybe i made something wrong ?

Dim dtLastDate As Date
dtLastDate = CDate("#31/12/" & DatePart("yyyy", Now()) & "#")
MsgBox dtLastDate

 

[arnelgp]

im getting error when o run the code as following

pay attention to the "bracket". you can copy and paste it.

 

[ebs17]

getting error when o run the code as following

Clear. You should copy correctly. You can then check your own creations separately.

As for the Doc's suggestion: CDate can only convert certain string formats to a date. The string formats that can be used depend on your own language and country settings. The ISO format should always work:

? CDate("2023-12-31")
31.12.2023

 

[KitaYama]

As for the Doc's suggestion: CDate can only convert certain string formats to a date. The string formats that can be used depend on your own language and country settings. The ISO format should always work:

Access converts the date to local format. In case of Doc's suggestion, when using CDate, no need to use #
The following returns the correct result.

?CDate("31/12/" & DatePart("yyyy", Now()))
2023/12/31

 

[gstylianou]

pay attention to the "bracket". you can copy and paste it.

i did the copied correct..!! Stil having the same error

 

[gstylianou]

Access converts the date to local format. In case of Doc's suggestion, when using CDate, no need to use #
The following returns the correct result.

?CDate("31/12/" & DatePart("yyyy", Now()))
2023/12/31

1000 thanks..!!!

 

[ebs17]

i did the copied correct..!!

Faith does not have to have anything to do with reality.

DateSerial(Year(Date(), 12, 31) <> DateSerial(Year(Date, 12, 31))

The brackets in Date are not necessary in VBA, but not when used directly in SQL.

 

[Pat Hartman]

When you don't need the time, DO NOT USE Now()!!!!!!!! Use Date()

It isn't going to matter for this example since you are just pulling the Year out of Now() but you'll look at this example later and in a different situation, you will mess up your calcalculation by using Now() when you only need Date().

 

[ebs17]

Access converts the date to local format.

That is not correct. A date is a number (days since 1899-12-30). It is displayed in country format. But: value <> display. The display is like a label on a bottle of wine, legible for the local population.
Conversely, CDate uses regional formats.
With my German settings, the formats used above do not work, but this one does:

? CDate("31.12.2023")

Now let's see if your own application could or even should be used internationally.

 

[KitaYama]

That is not correct.

We were talking about format. Not value.

CDate can only convert certain string formats to a date.

Access converts the date to local format.

And I showed that even if I use
CDate("31/12/".....
The returned result is in the same as my settings in control panel. Not the format I've passed it.
2023/12/31

 

[ebs17]

If the term data type is known to the talker: CDate is a type conversion function, not a formatting function. So if you use it, think about it and describe why you use it.

 

[KitaYama]

If the term data type is known to the talker: CDate is a type conversion function, not a formatting function. So if you use it, think about it and describe why you use it.

Whatever.
I'm not gonna put my time on an argumentat that goes nowhere.

My apologies if you found my reply to your post agresive or incorrect.