Смотрите пример получения текущей даты:
<tvrsh> $$ return [clock format [clock seconds] -format %d.%m.%Y]
<@bionic> Return: 23.12.2012 - 0.116 ms.
Тут мы [clock seconds] переводим в формат %d.%m.%Y, то есть в вид 23.12.2012. Описание всех возможных параметров формата смотрите тут: http://www.tcl.tk/man/tcl8.5/TclCmd/clock.htm#M26
А что делать, если необходимо получить дату на несколько дней вперед?
В данном случае необходим clock scan:
<tvrsh> $$ return [clock format [clock scan "1 day" -base [clock seconds]] -format %d.%m.%Y]
<@bionic> Return: 24.12.2012 - 0.426 ms.
Тут мы переводим в формат дату [clock scan "1 day" -base [clock seconds]]
То есть к "базе" [clock seconds] прибавлен 1 день. Подробнее о параметрах читайте тут: http://www.tcl.tk/man/tcl8.5/TclCmd/clock.htm#M80
Вот такое коротенькое описание работы clock.
