(floor (+ (/ (* 1461 (+ (year date) 4800 (/ (- (month date) 14) 12))) 4)
            (/ (* 367 (- (month date) 2 (* 12 (/ (- (month date) 14) 12)))) 12)
            (- (/ (* 3 (/ (+ (year date) 4900 (/ (- (month date) 14) 12)) 100)) 4))
            (day date)
            (- 32075))))