|
▼kanabun さん:
>▼kog さん:
>>textboxに20080910と入力した時に
>>そのtextboxに2008/09/10と表示するにはどうしたらいいのでしょうか?
>
>'----------------------------------------------------
> Dim ss As String
> ss = TextBox1.Text
> If ss Like "########" Then
> If IsDate(Format$(ss, "0000-00-00")) Then
> TextBox1.Text = Format$(ss, "0000\/00\/00")
> Else
> MsgBox "8桁の数字だけれど、日付ではない"
> End If
> End If
>'----------------------------------------------------
>こんな感じでしょうか?
>ただ、このコードをどのイベントプロシージャにおくか、が
>問題ですね?
解決することができました。
ありがとうございます。
また解からないことがあった時は質問をするので
よろしくお願いします。
|
|