DouKaku?beta

Comment detail

ミリ秒まで含んだ時刻文字列 (Nested Flatten)
Gauche (Scheme) で SRFI-19 を使って書いてみました。 
1
2
3
4
5
6
(use srfi-19)
(define get-date-string (lambda ()
    (let ((date (current-date)))
        (string-append
            (date->string date "~Y~m~d~H~M~S") "."
            (format #f "~3,'0d" (quotient (date-nanosecond date) (expt 10 6)))))))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]