本日の日付を一年の何日目かを表示
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
目次~
#contents
**概要 [#g0cbc5d3]
本日の日付が一年の何日目(3桁)に当たるかを表示するスクリ...
パスワードなどに使います。~
**ソース [#n837ff18]
Option Explicit
Dim fDay, tranceDay
fDay = DateValue("1/1")
tranceDay = DateDiff("y", fDay, Date)+1 'DateDiff関数で...
MsgBox "本日の日付:" & Date & vbCrLf & vbCrLf & _
"変換値 : " & tranceDay
終了行:
目次~
#contents
**概要 [#g0cbc5d3]
本日の日付が一年の何日目(3桁)に当たるかを表示するスクリ...
パスワードなどに使います。~
**ソース [#n837ff18]
Option Explicit
Dim fDay, tranceDay
fDay = DateValue("1/1")
tranceDay = DateDiff("y", fDay, Date)+1 'DateDiff関数で...
MsgBox "本日の日付:" & Date & vbCrLf & vbCrLf & _
"変換値 : " & tranceDay
ページ名: