Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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
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