benong
09-15-2010, 09:10 PM
hi,
i want to validate the date in correct format:
- the date is numeric
- the date is 8 digits in length
- the date is not empty.
But i have problems with the logic below:
Do
rDate = InputBox("Input date (yyyymmdd)")
Loop While rDate <> "" And Len(rDate) <> 8 And IsNumeric(rDate)
Pls advise, thanks.
i want to validate the date in correct format:
- the date is numeric
- the date is 8 digits in length
- the date is not empty.
But i have problems with the logic below:
Do
rDate = InputBox("Input date (yyyymmdd)")
Loop While rDate <> "" And Len(rDate) <> 8 And IsNumeric(rDate)
Pls advise, thanks.