enter a valid date

No one seemed to help me out with my other question :sad: so was wondering if you can help me with this one. I want to validate a date so that the user is only allowed to enter a correct date. I have no idea how I could do it and would appreciate if someone showed me some coding of how I can do it. I want the date to be in this format:

write(' Date Out (dd/mm/yyyy format)....');
readln(rr.date_out);
writeln;
write(' Date In (dd/mm/yyyy format)....');
readln(rr.date_in);

thanks :eek:

exotic_ang

Newbie Poster

20 posts since Jan 2007

Reputation Points: 10

Solved Threads: 0

5 Years Ago

0

I'm not a pascal prpgrammer so I can't write the program for you, but it will be the same in any language.

First create three string objects called month, day and year then use substring (or something similar) that will extract the appropriate digits from the original string into each of the three objects. Next convert each of the three sub strings into integers. Finally check that the month is between 1 and 12, the day is between 1 and last day of the month.

Ancient Dragon

Retired & Loving It

Team Colleague

30,050 posts since Aug 2005

Reputation Points: 5,662

Solved Threads: 2,343

5 Years Ago

0

thanks for the help but I kind of figured that out already! The probelm im finding is in coding it. thanks just the same

exotic_ang

Newbie Poster

20 posts since Jan 2007

Reputation Points: 10

Solved Threads: 0

5 Years Ago

0

thanks for the help but I kind of figured that out already! The probelm im finding is in coding it. thanks just the same

you must post your code -- no one can help you if you do not.

Ancient Dragon

Retired & Loving It

Team Colleague

30,050 posts since Aug 2005

Reputation Points: 5,662

Solved Threads: 2,343

5 Years Ago

0

what do I NEED TO POST? i THINK THERES NOTHING I CAN PASTE SINCE I CANT GET TO IT THE ONOLY THINK I MANAGED TO WRITE IS THE BIT I PASTED IN THE FIRST MESSAGE

exotic_ang

Newbie Poster

20 posts since Jan 2007

Reputation Points: 10

Solved Threads: 0

5 Years Ago

0

>>what do I NEED TO POST?
well, what have you tried? you already said you figured out what you need to do -- thats a good start. Now try putting that down on paper, schetch out on paper what you need to accomplish. Not code at this point, but just ideas. Don't get overwhelmed with the assignment -- take it one small step at a time.

Ancient Dragon

Retired & Loving It

Team Colleague

30,050 posts since Aug 2005

Reputation Points: 5,662

Solved Threads: 2,343

5 Years Ago

0

ok i managed to arrive here...I modified everything and made the date automatically. Now when the date is stored, it is only stroed in numbers example instead of Monday, 11/7/2007 it stroes as 11172007 . How can I make it store the date as it is dispayed? here is the code i did :

GetDate(year,month,day,dayofweek);
writeln(' Date Out.....', days[dayofweek],', ',month:0, '/', day:0, '/', year:0);
rr.date_out := WORDTOSTR(dayofweek)+WORDTOSTR(month)+WORDTOSTR(day)+WORDTOSTR(year);

by the way, WORTOSTR is a procedure I made to convert from word to string.