カレンダコントロールについて

質問

vb6.0について質問です。
カレンダコントロールから日付を取得する際に、
2006年1月1日を選択した場合
monthは1、dayは1を取得してきます。
これを二桁で表示したいので（01）

month = Format(Calendar1.month, "00")
day = Format(Calendar1.day, "00")

上記のようにフォーマット文によって処理したのですが
うまくいきません。。。
なにがいけないのでしょうか？

回答No.2

noname#22222 · ベストアンサー

カレンダーコントロールが9.0であれば、一旦、テキストボックスに日付を代入してから変数に取り込まねば上手くいかなかったような気がします。カレンダーコントロールが10.0では、そのような不具合（？）も解消されたので...
次に示すコードのテレコが原因でしょうか？

Private Sub Command1_Click()
　　Dim Day As String

　　Day = Format(Calendar1.Day, "00")
　　MsgBox Day
End Sub

Private Sub Command2_Click()
　　Dim Day As Integer

　　Day = Calendar1.Day
　　MsgBox Format(Day, "00")
End Sub

回答No.1

Hayashi_Trek

monthやdayがString型になっていないからでは？