Simple Sand Samples |
Tcl > 基準日からの連続した日付を得る
dateseq.tcl
set base [clock scan {2013-01-30} -gmt true] for { set i 0} {$i < 10} {incr i} { puts [clock format $base -format {%Y-%m-%d %A}] set base [expr $base + 60 * 60 * 24] }
$ tclsh dateseq.tcl
2013-01-30 Wednesday
2013-01-31 Thursday
2013-02-01 Friday
2013-02-02 Saturday
2013-02-03 Sunday
2013-02-04 Monday
2013-02-05 Tuesday
2013-02-06 Wednesday
2013-02-07 Thursday
2013-02-08 Friday
$
2013-01-30 Wednesday
2013-01-31 Thursday
2013-02-01 Friday
2013-02-02 Saturday
2013-02-03 Sunday
2013-02-04 Monday
2013-02-05 Tuesday
2013-02-06 Wednesday
2013-02-07 Thursday
2013-02-08 Friday
$