is there a way to verify that a date is in the right format?

[Rick Pritchett]

here is what i have so far.  I am wanting to add input checking so that the equations dont tank the messages if given junk input.

proc Age_Calc {} {

Topic

[Rick Pritchett]

i may have found my own solution but would welcome input.

[James Cobane]

Rickey,

Along with your “string is digit” check, you could incorporate a valid date check with the “catch” and “clock scan” command to determine if you have a real date; i.e.

if {[catch {clock scan  $DOB_n}]} {

   echo “If I’m here, the date had an error”

}

Since “catch” is successful (return code 1) when it encounters an error, this would indicate that the “clock scan” command couldn’t determine a date.  You can also use the “clock scan” command to normalize the date to a clock value for easier calculation along with the “getclock” command.

Hope this helps.

Jim Cobane

Henry Ford Health

[Rick Pritchett]

thanks for your advice i was able to use the commands you suggested to come up with a better way i believe this should do what i want:

proc Age_Calc {} {

[Author]

Replies