Validating Date Entry

[ivartyn]

Hi Guys,
Below is a code I've written asking for a user to enter name, address, date of birth, Date Joined.
The date of birth should be validated in the format [dd:mm:yy] and the Date Joined should be validated using format[dd:mm:yyyy]. As you might notice I've tried validating the name and city entry.
Help needed.

SUB adduser
DIM invalidflag AS INTEGER
DIM position AS INTEGER
LET invalidflag = 0
LET position = 0
DO
CLS
CALL heading
OPEN "d:\Project\contact" FOR RANDOM AS #1 LEN = LEN(wdc)
LET totrcno = LOF(1) / LEN(wdc)
LET rcno = totrcno + 1
COLOR 7
PRINT "Member Number : ", rcno
INPUT "Title:(Mr/Mrs/Miss/Prof): ", wdc.title
frst:
LET wdc.frstnme = UCASE$(wdc.frstnme)
COLOR 7: INPUT "First Name : ", wdc.frstnme
IF ASC(wdc.frstnme) < 65 OR ASC(wdc.frstnme) > 90 THEN
COLOR 9: PRINT "Invalid"
PRINT "Must Start with a letter"
LET invalidflag = 1
GOTO frst
END IF
'if asc(mid$(wdc.frstnme,position,1))
COLOR 7
surn:
COLOR 7: INPUT "Last Name : ", wdc.surnme
LET wdc.surnme = UCASE$(wdc.surnme)
IF ASC(wdc.surnme) < 65 OR ASC(wdc.surnme) > 90 THEN
COLOR 9: PRINT "Invalid"
PRINT "Must Start with a letter"
LET invalidflag = 1
GOTO surn
END IF
strt:
INPUT "Street : ", wdc.street
town:
INPUT "City : ", wdc.city
FOR position = 1 TO LEN(wdc.city)
IF ASC(RTRIM$(MID$(wdc.city, position, 1))) < 65 OR ASC(RTRIM$(MID$(wdc.city, position, 1))) > 90 THEN
IF invalidflag = 1 THEN

PRINT "Invalid "
PRINT "Illegal Character at position "; position
ELSE
PRINT "Invalid"
PRINT "Illegal Character at position "; position
LET invalidflag = 1
END IF
END IF
NEXT position
INPUT "Postcode : ", wdc.pcode
INPUT "Date Of Birth[dd:mm:yy] : ", wdc.dob
INPUT "Date Joined[dd:mm:yyyy] : ", wdc.jdate
INPUT "Fees Paid : ", wdc.fees
INPUT "E-mail : ", wdc.email
PRINT : PRINT
PUT #1, rcno, wdc
CLOSE #1
INPUT "Enter Another Member(Y/N): ", reply
LOOP WHILE UCASE$(reply) = "Y"
SLEEP 1
CALL menu

END SUB

[Mikrondel]

Firstly...

IF invalidflag = 1 THEN
PRINT "Invalid "
PRINT "Illegal Character at position "; position
ELSE
PRINT "Invalid"
PRINT "Illegal Character at position "; position
LET invalidflag = 1
END IF

could be:

PRINT "Invalid "
PRINT "Illegal Character at position "; position
IF invalidflag = 0 THEN
LET invalidflag = 1
END IF

and even simpler:

PRINT "Invalid "
PRINT "Illegal Character at position "; position
LET invalidflag = 1


Now I suppose your main question is validating Dates...

How valid do you want them?

Obviously you can use MID$ to check dd mm yy are all numbers and that in between are :

To go further you could use VAL to get the value of those numbers and see if the date is valid.

E.g.
Day = VAL(LEFT$(wdc.dob, 2))

and then do whatever checks you require.....

[ivartyn]

Thanks for the help so far.
The level of validation I want is that dates entered are in the right format e.g
- February has 28 days
- Days cannot exceed 31 for the relevant months and 30 for the relevant months.
- The month field cannot hold any value that exceeds 12
- When its a leap year February takes 29 days.
- That birthday is earlier that date joined.

Will appreciate if I get an answer today.
Thanks a million.

[Ildûrest]

Oh come on, you have all the information you need...

With
Day = VAL(LEFT$(wdc.dob, 2))

And
Month = ... you figure it out

And
Year = ... come on it's easy

you can use some IF/THEN or SELECT CASE to find which month has a maximum of how many days (obviously 01 is always the minimum day). MOD helps in finding leap years.

See what you can come up with.

[ivartyn]

I'm kindly asking that this once you spoon feed me since I've got a complete brain lock at this moment.
I know with month you just change from day to month and the same for year. The IF THEN or SELECT CASE bit is what I can't come up with.
Please be sweet to a lady.
Thanks

[Mikrondel]

Fine, fine. Your loss.

IF Month < 1 THEN <invalid date>
IF Month > 12 THEN <invalid date>

IF Day < 1 THEN <invalid date>

SELECT CASE Month
CASE 9, 4, 6, 11 '30 days hath September, April, June, and November

IF Day > 30 THEN <invalid date>

CASE 2 'February

IF (Year MOD 4) = 0 THEN 'it's a leap year (ignoring the centuries rule)
IF Day > 29 THEN <invalid date>
ELSE
IF Day > 28 THEN <invalid date>
END IF

CASE ELSE 'All the rest have 31

IF Day > 31 THEN <invalid date>

END SELECT



<invalid date> would either set some variable to 1, or GOTO somewhere... but that's up to you.

In terms of birthday less than joining date, it works kind of like this:
If year of birth is earlier, everything is fine.

If year of birth is later, everything is invalid.

If year of birth is the same, then you need to check whether the month is earlier/later/the same.

And if the month is the same you have to check whether days are later/earlier/the same.

[ivartyn]

Thanks to you all for being so sweet.

[exawxigdagowo]

Cialis Coupon <a href="http://mewkid.net/who-is-redistina/">Generic Cialis</a> new.viiz.qbasic.proboards.com.rqo.px mewkid.net/who-is-redistina/

[acuzuvaarov]

Cialis 20mg <a href="http://mewkid.net/who-is-redistina/">Cialis 20 Mg Price</a> yot.btrf.qbasic.proboards.com.ogs.kh mewkid.net/who-is-redistina/