윤년을 어떻게 작동합니까?

Question

TCL에 두 날짜 사이의 시간을 측정하는 코드가 있습니다.

첫 번째 두 작품이지만 마지막 작품은 보이지 않습니다. 1 년에 12 개월 밖에 안 될 수 있기 때문에 완전히 잘못 계산됩니다.하지만 이보다 더 많은 것이 있습니다.

어쨌든 윤년이 문제라고 생각하지만 확실하지 않습니다. 도울 수 있니?

proc isTimeAgo {t1} { 

    set t2 "1387524660" 
    #set t2 [clock seconds] 
    set cnt [expr {(($t2 - $t1)/31536000)}] 

    set cur [clock add $t1 $cnt years] 

    set res {} 

    foreach unit {years months weeks days hours minutes seconds} { 
    while {$cur <= $t2} { 
     set cur [clock add $cur 1 $unit] 
     incr cnt 
    } 

    set cur [clock add $cur -1 $unit] 
    incr cnt -1 

    if {$cnt} { 
     lappend res $cnt $unit 
    } 

    set cnt 0 
    } 

    return $res 
} 

puts "1: [isTimeAgo "1355988659"]" 
puts "2: [isTimeAgo "1355988660"]" 
puts "3: [isTimeAgo "1355988661"]" 

proc days_per_month year { 
    set leap [expr {($year%4)==0 && (!($year%400) || ($year%100))}] 
    set days [list 31 [expr {$leap ? 29 : 28}] 31 30 31 30 31 31 30 31 30 31] 
    return $days 
} 

이것의 결과는 다음과 같습니다

1: 1 years 1 seconds <- Correct 
2: 1 years <- Correct 
3: 11 months 4 weeks 1 days 23 hours 59 minutes 59 seconds <- Wrong 

Answer 1

날짜 및 시간 산술 어떤 사람들이 의미하는 것은 너무 철저 불확실 바로 때문에 얻을 놀라 울 정도로 어렵다. 시간 간격을 추가 할 때는 DST 변경으로 인해 달 이전의 연도 (윤년 때문에), 일 전의 달 (월 길이가 다르기 때문에) 및 시간 전 요일을 추가해야합니다). 복잡성을 처리하는 명령이 있다는 것은 충분히 까다 롭습니다 : clock add (Tcl 8.5 이상 필요). 반대 방향으로 가고 있니? 당신이 오버 슛 할 때까지 각 유닛을 시험해 보는 것입니다.

proc getInterval {from to} { 
    set result {} 
    foreach unit {year month week day hour minute second} { 
     set n 0 
     while 1 { 
      set new [clock add $from 1 $unit] 
      if {$new > $to} break 
      set from $new 
      incr n 
     } 
     lappend result $n $unit 
    } 
    return $result 
} 

은의 그 밖으로 시도하자

% getInterval 1355988659 [clock seconds] 
1 year 4 month 0 week 6 day 6 hour 52 minute 39 second 

을 우리가 from가 to 앞에 0이있는 항목을 생략 보장에 추가 할 수도있을 것 같군요. 나는 그것들을 운동으로 남겨 둘 것이다.

clock add 로케일과 시간대를 변경해야 예상 답변을 얻을 수 있습니다 (각각 -locale 및 -timezone 옵션 사용). 이것이 영향을 줄 수있는 것과 정확히 몇 가지 예를 보려면 the documentation을 참조하십시오.