本日の日付を一年の何日目かを表示

概要
ソース

概要†

本日の日付が一年の何日目（3桁）に当たるかを表示するスクリプト。
パスワードなどに使います。

ソース†

Option Explicit
Dim fDay, tranceDay
fDay = DateValue("1/1")
tranceDay = DateDiff("y", fDay, Date)+1 'DateDiff関数で年齢を計算
MsgBox "本日の日付：" & Date & vbCrLf & vbCrLf & _
"変換値　：　" & tranceDay