현재 시각 알아내기 for F#

프로그래밍/F# 2010. 7. 13. 18:48

현재 시각을 컨솔에 보여주는 간단한 F# 언어 소스 코드이다.
UTC란 1970년 1월 1일 0시 0분 0초를 기준으로 하여 경과된 초 단위의 총 시간을 의미한다.
* UTC(Universal Time Coordinated, 협정세계시, 協定世界時)

(*
* Filename: TestCTimeApp.fs
*
* Compile: fsc --codepage:949 TestCTimeApp.fs
*
* Execute: TestCTimeApp
*)
// namespace MyTestApp1
open System
let weekNames = [| "일"; "월"; "화"; "수"; "목"; "금"; "토" |]
let now = System.DateTime.Now
let startOfEpoch = new DateTime ( 1970, 1, 1 )
// 1970년 1월 1일 0시 0분 0초부터 시작하여 현재까지의 초
printfn "UTC: %O" ((int64 (DateTime.UtcNow - startOfEpoch).TotalMilliseconds) / 1000L)
// 현재 시각 표시: 20xx년 xx월 xx일 (x요일) xx시 xx분 xx초
printf "%O년 " (now.Year)
printf "%O월 " (now.Month) // Not 1 + now.Month !!
printf "%O일 " (now.Day)
printf "(%O요일) " (weekNames.[int (now.DayOfWeek)])
printf "%O시 " (now.Hour)
printf "%O분 " (now.Minute)
printfn "%O초" (now.Second)
// 1월 1일은 1, 1월 2일은 2
printf "올해 몇 번째 날: %O, " (now.DayOfYear)
// True 이면 서머타임 있음
let str = if not (now.IsDaylightSavingTime()) then "안함" else "함"
printfn "서머타임 적용 여부: %O" str

컴파일> fsc TestCTimeApp.fs

실행> TestCTimeApp
UTC: 1279016975
2010년 7월 13일 (화요일) 19시 29분 35초
올해 몇 번째 날: 194, 서머타임 적용 여부: 안함