Date-valueのソースを表示

{{NewLISP}}
; 構文 :
: (date-value int-year int-month int-day [int-hour int-min int-sec])
: (date-value)


; 機能
: 第一構文では、date-value は、1970-1-1 00:00:00 から引数で与えられた日付と時刻までの秒数を返す。
: 時間は、協定標準時（UTC）を想定し、現タイム・ゾーンには合わせてはいない。
: 第二構文では、date-value は、（訳注：1970-1-1 00:00:00 から）現時刻までの秒数を返します。 


; 引数
:* int-year ： 年
:* int-month ： 月
:* int-day ： 日
:* int-hour ： 時
:* int-min ： 分
:* int-sec： 秒


; 戻り値
: 協定標準時（UTC）からの秒数の値

;例
<pre class="brush:autolisp;">
(date-value 2002 2 28)       → 1014854400
(date-value 1970 1 1 0 0 0)  → 0
                                 
(date (apply date-value (now)))  → "Thu Jul 14 14:38:11 2011"
(date (date-value))              → "Thu Jul 14 14:38:11 2011"
(date)                           → "Thu Jul 14 14:38:11 2011"
</pre>

[[Category:NewLISP]]