Mid関数を使って日付から月をとりだすには？ (ID:121399)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たびたびお世話になります。 さっそくですが、次のソースを見てください。 b = Mid(txt日付.Text, 6, 7) MsgBox "B=" & b これを実行したところ B=05/02 と表示されます。 B=05と表示させたいのですがどうすればいいのでしょうか？ ちなみに以下の場合はきちんと表示されます。 a = Mid(txt日付.Text, 1, 4) 'a=2005と表示される c = Mid(txt日付.Text, 9, 10) 'c=02と表示される ※txt日付.TextにはDate関数でその日の日付がいれられています。