tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
テキストボックス内での日付・数字の入力・表示方法(VB6.0) ( No.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



 [スレッド一覧へ] [親スレッドへ]