Check if date is 1st of the month

[ali32uk]

Hi All

I m hoping this is simple one.. I just want to check if the date entered is 1st of the month, if not display a msgbox for user to correct?

Appreciate your help

thank you

Ali

 

[SkipVought]

HI,

Give the user a year and month to select.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[Andrzejek]

Here is one way you can check it, and if the date is NOT 1st of the month, you can [blue]make it [/blue]to be the 1st of the month:

Dim datDate As Date

datDate = Date

If Day(datDate) = 1 Then
    MsgBox "Bingo!"
Else
    MsgBox "It is NOT a 1st of the month"[blue]
    MsgBox "Date entered will be 1/" & Month(datDate) & "/" & Year(datDate)[/blue]
End If

But I would go with Skip's suggestion.

Have fun.

---- Andy

There is a great need for a sarcasm font.

 

[ali32uk]

Thank you will give it a try

 

[ali32uk]

I ve tried the code, unfortunately it does nt work, even if I select 1st of month its still picks up the else function

Ali

 

[SkipVought]

The problem is [highlight #FCE94F]HERE[/highlight]

Dim datDate As Date

[highlight #FCE94F]datDate = Date[/highlight]

If Day(datDate) = 1 Then
    MsgBox "Bingo!"
Else
    MsgBox "It is NOT a 1st of the month"
    MsgBox "Date entered will be 1/" & Month(datDate) & "/" & Year(datDate)
End If

[highlight #FCE94F]Date[/highlight] is today's date!

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[strongm]

Andrzejek's code is an example of detecting if a wrong date is entered, and illustrates how to build the correct date in the Else statement (effectively implementing Skip's solution). It is not, hoever, a code complete solution for your post. He's hoping that, having pointed you in the right direction, you might be able to take the remaining steps yourself.

 

[ali32uk]

OK thanks i understand

 

[SkipVought]

Why give the user a chance to fail? Give the user the options that cannot fail.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[Andrzejek]

Right on, strongm

Have fun.

---- Andy

There is a great need for a sarcasm font.