表紙へ

VB6

日付を文字列に変換する

 

以下の例ではすべてシステム日付(=Now)を変換している。

実際に使用する際にはNowの代わりに任意の日付型の値を指定することができる。

 

1."2004/08/05" のように変換する例


Text1.Text = Format(Now, "YYYY/MM/DD")
 

 

2."2004/8/5" のように変換する例


Text1.Text = Format(Now, "YYYY/M/D")
 

 

3."2004年08月05日" のように変換する例


Text1.Text = Format(Now, "YYYY年MM月DD日")
 

 

4."04/08/05" のように変換する例


Text1.Text = Format(Now, "YY/MM/DD")
 

 

."20040805" のように変換する例


Text1.Text = Format(Now, "YYYYMMDD")
 

 

."H16/08/05" のように変換する例


Text1.Text = Format(Now, "GEE/MM/DD")
 

メモ:明治元年(1868年10月23日)より前の日付は正確に変換できません。

 

."平16年8月5日" のように変換する例


Text1.Text = Format(Now, "GGE年M月D日")
 

メモ:明治元年(1868年10月23日)より前の日付は正確に変換できません。

 

8."平成16年8月5日" のように変換する例


Text1.Text = Format(Now, "GGGE年M月D日")
 

メモ:明治元年(1868年10月23日)より前の日付は正確に変換できません。

 

9."08.05.2004" のように変換する例


Text1.Text = Format(Now, "MM.DD.YYYY")
 

 

10."200408" のように変換する例


Text1.Text = Format(Now, "YYYYMM")
 

 

11.コントロールパネルの「地域と言語のオプション」の「短い形式」に変換する例


Text1.Text = CStr(Now)
 

メモ:この例の変換結果は「短い形式」の設定内容によって異なります。