今日の日付を取得

Top　＞　役立つ！？パーツ集　＞　今日の日付を取得

Dim sYear
Dim sMonth
Dim sDate

GetTime()
sYear  = G_TIME_YY
sMonth = G_TIME_MM
sDate  = G_TIME_DD

Ifb sMonth < 10
	Then sMonth = "0" + sMonth
Endif
Ifb sDate  < 10
	Then sDate  = "0" + sDate
Endif

GetTime関数で取得した値をそのまま結合すると、月日が１桁の場合「2008-1-1」などとなってしまいます。
これを「2008-01-01」と修正するためのパーツです。
ログファイル等で使いやすい形式となるでしょう。

b-click

かゆいところに手が届くUWSCプログラミング　2006
当サイトの内容を広めていただくのは結構ですが、丸パクリやうみうみ屋さんにご迷惑をおかけするような使い方を禁止します。