目次

概要

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

ソース

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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2010-10-29 (金) 16:10:08 (4987d)