вычисление количества дней между 2 днями tcl

Я вычисляю количество дней между двумя датами (2 даты в секундах ). Следующее дает мне правильный результат, но дает отрицательное значение.

Например -7.0. Я не уверен, почему..

Также я могу удалить десятичную точку и отобразить?

        set interval [expr { $start_date - $get_date }]
        set days [expr { floor($interval / (60*60*24)) }]
        puts "Start Date: $start_date <br>"
        puts "Stop Date: $get_date <br>"
        puts "Total number of dates betwen 2 days: $days"