VB2008 日付表示

質問

コンボボックス内に日付を「08/06/12(木)」のような形式で表示させたいのですが、うまく行きません。

Dim cnt As Integer
For cnt = 0 To 20
Me.CmbDate.Items.Add(Format(DateAdd("d", cnt, Today), "yy/mm/dd(aaa)"))
Next

と書いてみたんですが、「08/00/12(aaa)」・・・という表示になってしまいます。日付表示の仕方をご存知の方、教えていただけないでしょうか？

回答No.2

nmktksk

Format(Today, "yy/MM/dd(ddd)")

お礼

ありがとうございます。解決できました。m(__)m

回答No.1

himajin100000

Option Explicit On
Option Strict On
Option Compare Binary
Option Infer Off

'日本語環境前提でコード書いてます
'http://msdn.microsoft.com/en-us/library/wb216dct(VS.80).aspx
'http://bbs.wankuma.com/index.cgi?mode=al2&namber=4115&KLOG=13

'日本語ロケールを指定した時にどのような文字列が返るのかを見つけることが出来なかったため、不完全です。

'ポイントとしてはMSDNの資料にあるとおりwやwwではなくdddであるということ。
'それから月はmやmmではなくMやMMであるということ。

'なお、私はMicrosoft.VisualBasic名前空間があまり好きではないので
'VB6由来のToday関数やDateAdd関数を使っていません。

'フォームデザイナが嫌いで，リストボックス使うのが面倒くさいのでコンソールに出力

'おまけ。俺個人はISO 8601形式の日付表示が好み

Class Q4096404A
Shared Sub Main()
For cnt As Integer = 0 to 20
System.Console.WriteLine(System.DateTime.Today().AddDays(cnt).ToString("yy/MM/dd(ddd)"))

Next
System.Console.ReadKey(True)
End Sub

End Class

お礼

ありがとうございます。おかげで解決出来ました。
ＩＳＯの日付表示の規格があることまで教えていただいて、参考になりました。
今後ともよろしくお願いします。m(__)m