Validate Date
Checks and makes sure that the user enters in a valid date. Make a text box on a form and call it txtDate
AI
Podsumowanie AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Kod źródłowy
sub validDate()
If txtDate.Text <> "" Then
If IsDate(txtDate) = False Then
MsgBox "You have entered an Invalid Date in Last Contacted please use MM/DD/YYYY", , "Invalid Entry"
txtDate.text= ""
Else
txtDate.Text = Format(txtDate.Text, "General Date")
End If
Else
txtDate.Text = Date
End If
end sub
Oryginalne komentarze (3)
Odzyskane z Wayback Machine