顯示給定的開始和結束日期，所有日期

Question

我下面的代碼獲取2個日期

foreach records $get_times { 
     lassign $records start_date stop_date 
     puts [clock format [clock scan $start_date] \ 
      -format {%d %b}] 
     puts [clock format [clock scan $stop_date] \ 
      -format {%d %b}] 
} 

有沒有一種方法，我可以顯示所有start_tdate和stop_date之間的日期。 喜歡的東西：

puts "<tr><td>the $start_date</td>the next Date</td><td>....</td><td>the $stop_date</td>" 

Answer 1

你可以用用‘英語’的時間表，讓你在找什麼clock scan的能力。例如：

set start_ts [clock scan $start_date] 
set end_ts [clock scan $stop_date] 
for {set current $start_ts} {$current < $end_ts} {set current [clock scan "+1 day" -base $current} { 
    puts [clock format $current -format {%d %b}] 
} 

Answer 2

假設你的意思是你要打印起始日期和stop_date之間的每一天，我會用時鐘在while循環添加。

set start_date [clock scan {2012-04-20 00:00:00} -format {%Y-%m-%d %H:%M:%S}] 
set stop_date [clock scan {2012-04-24 00:00:00} -format {%Y-%m-%d %H:%M:%S}] 
while {$start_date<$stop_date} { 
    set start_date [clock add $start_date 1 day] 
    puts $start_date 
}