(************************************************************
   current_date_string.ml	Created      : Sun Aug 17 08:46:24 2003
  			Last modified: Sun Aug 17 08:51:35 2003
  Compile: ocamlc unix.cma current_date_string.ml -o current_date_string #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)
let current_date_string () =
  let epoch = Unix.time () in
  let tm = Unix.localtime epoch in
  Printf.sprintf "%04d/%02d/%02d %02d:%02d:%02d" 
    (tm.Unix.tm_year + 1900) (tm.Unix.tm_mon+1) tm.Unix.tm_mday 
    tm.Unix.tm_hour tm.Unix.tm_min tm.Unix.tm_sec

let _ =
  print_endline (current_date_string ())