サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/07/16 06:51
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[テキストボックス][日付・時刻][] *
* キーワード：書式,フォーマット,スタイル,TextBox,, *
***********************************************************************************
元質問：テキストボックス内での日付・数字の入力 - hallo 2004/06/07-16:53 No.9166
フォームにテキストボックスを貼り付けて、そのテキストボックスに日付(YYYY/MM/DD)を入力させたいと思っています。
現在は、「2004/06/07」 のように、[/]も入力するようになっていますが、あらかじめ、テキストボックスに[/]が表示してあり、「20040607」と入力するだけで、テキストボックスには「2004/06/07」のように表示できるようにする方法がありましたら教えて頂けないでしょうか？
また、数字を入力したときも、「10000」と入力しましたら、「10,000」のように桁区切りの「,」を表示させる方法がありましたら教えてください。
--------------------------------------------------------------------------------
Re: テキストボックス内での日付・数字の入.. - 花ちゃん 2004/06/08-01:14 No.9177
--------------------------------------------------------------------------------
下記のような方法でもよければ
Private Sub Form_Load()
Text1.MaxLength = 10
End Sub
Private Sub Text1_Change()
Text1.Text = SetDateStyle(Text1.Text)
End Sub
Function SetDateStyle(myStr As String) As String
Dim Temp As String
Temp = Replace(myStr, "/", "")
If Len(Temp) = 8 Then
SetDateStyle = Format$(Temp, "####/##/##")
If IsDate(SetDateStyle) = False Then
Beep
SetDateStyle = ""
End If
Else
SetDateStyle = myStr
End If
End Function
 |
