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

• 追加された行はこの色です。
• 削除された行はこの色です。
• 本日の日付を一年の何日目かを表示 へ行く。
• 本日の日付を一年の何日目かを表示 の差分を削除

目次~
#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