Code:
Sub mYdate
Simply put
Dim mydate as Date
Dim entDate as string
Dim dateLim as Integer
Input dateLim
entDate = InputBox ("Enter your date me birth")
if Day(entDate) < dateLim then
msgBox"You were not born yesterday", vbOkOnly+vbInformation,"Error Input"
EndIf
End Sub
Leave a comment: