Data update
This commit is contained in:
parent
81fd053722
commit
52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
13
Task/Date-format/OCaml/date-format-1.ml
Normal file
13
Task/Date-format/OCaml/date-format-1.ml
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
# #load "unix.cma";;
|
||||
# open Unix;;
|
||||
|
||||
# let t = time() ;;
|
||||
val t : float = 1219997516.
|
||||
|
||||
# let gmt = gmtime t ;;
|
||||
val gmt : Unix.tm =
|
||||
{tm_sec = 56; tm_min = 11; tm_hour = 8; tm_mday = 29; tm_mon = 7;
|
||||
tm_year = 108; tm_wday = 5; tm_yday = 241; tm_isdst = false}
|
||||
|
||||
# Printf.sprintf "%d-%02d-%02d" (1900 + gmt.tm_year) (1 + gmt.tm_mon) gmt.tm_mday ;;
|
||||
- : string = "2008-08-29"
|
||||
Loading…
Add table
Add a link
Reference in a new issue