Data comparision in Tcl/Tk

[Guest_imported]

Hi,

I would like to know if anyone has tcl/tk script for date comparision (e.g. Start date cannot be greater than end date and also needs to take care of date for each month etc) which can be included within xml code.

Thanks in advance,
Mehul.

 

[ulis]

I don't know what is needed inside xml code.
In pure Tcl you can write:

set start 01/01/02
set end 13/01/02 ;# buggy date
catch {
  if {[catch { set vstart [clock scan $start] } emsg]}   { error "end: $emsg" }
  if {[catch { set vend [clock scan $end] } smsg]}   { error "start: $smsg" }
  if {$vend < $vstart}   { error &quot;end < start&quot; }
} msg
if {$msg != &quot;&quot;} { puts $msg }

The last

if

fires in case of error.
I used

catch

inside

catch

to have only one final test.
The real job is done by the

clock scan

command.

ulis

 

[Guest_imported]

ulis,

Thanks for the reply. It worked for me.
Thanks,
Mehul.