/[mldonkey]/mldonkey/src/utils/lib/date.ml
ViewVC logotype

Diff of /mldonkey/src/utils/lib/date.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by spiralvoice, Mon Aug 15 20:22:50 2005 UTC revision 1.7 by spiralvoice, Fri Aug 26 21:10:43 2005 UTC
# Line 69  let mail_string date = Line 69  let mail_string date =
69  let hour_in_secs = 3600  let hour_in_secs = 3600
70  let day_in_secs = 24 * hour_in_secs  let day_in_secs = 24 * hour_in_secs
71  let year_in_secs = 365 * day_in_secs  let year_in_secs = 365 * day_in_secs
72    
73    let time_to_string_short time =
74      Printf.sprintf "%02d:%02d:%02d"
75        time.Unix.tm_hour
76        time.Unix.tm_min
77        time.Unix.tm_sec
78    
79    let time_to_string_long time =
80      let days = time / 60 / 60 / 24 in
81      let rest = time - days * 60 * 60 * 24 in
82      let hours = rest / 60 / 60 in
83      let rest = rest - hours * 60 * 60 in
84      let minutes = rest / 60 in
85      let seconds = rest - minutes * 60 in
86        if days > 0
87        then Printf.sprintf " %dd " days
88        else if hours > 0
89        then Printf.sprintf " %d:%02d:%02d " hours minutes seconds
90        else Printf.sprintf " %d:%02d " minutes seconds

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26