用matlab或者fortran怎麽將秒數換算成日期？

參考：/code_gen-75-1.html

integer :: mysec !// 秒數

call Date2UnixTime( 2000 , 1 , 1 , 0 , 0 , 0 , i ) !// 開始計時的時間戳

i = i + mysec !// 加上2000以後的的秒數

call UnixTime2Date( i , year , mon , day , hour , min , sec ) !// 轉成日期時間

write(*,*) 'Date:' , year , mon , day , hour , min , sec