「YYYYMMDD」を「YYYY/MM/DD」に

三木谷 2006-09-09 02:53:15 No: 96567

はじめまして
VB6.0を使用しています。

テキストに「20060101」と入力すると自動的に「2006/01/01」となるように
プログラムを生成したいのですが、
5文字目と8文字目に「/」を入れるという処理がいまいちわからなくて・・・。

試しにやってみたのですが、

Private Sub txt_Birth_Change()

    If Len(txt_Birth.Text) >= 5 Then
         txt_Birth = Mid(txt_Birth, 1, 4) + "/" + Mid(txt_Birth, 5)
    End If

End Sub

5文字目に「/」が入るように出来たのですが、その後どうしてよいのかわからなくて・・・。

どなたかアドバイスをいただけないでしょうか。
宜しくお願いします。

いな 2006-09-09 04:09:23 No: 96568

サンプルを持っていたので、

Private Sub txt_Birth_Change()

    If Trim(txt_Birth.Text) = Replace(Trim(txt_Birth.Text), "/", "") Then
        If Len(txt_Birth.Text) = 4 Then
            txt_Birth.Text = txt_Birth.Text & "/"
            txt_Birth.SelStart = 5
        End If
    Else
        If Len(txt_Birth.Text) = 7 Then
            txt_Birth.Text = txt_Birth.Text & "/"
            txt_Birth.SelStart = 8
        End If
    End If

End Sub

三木谷 2006-09-09 04:56:26 No: 96569

いな様

ご回答ありがとうございます。

早速試してみたところ、うまく「/」が自動的に挿入されることが出来ましたが、

ご入力の際など、Backspaceキーが効かなくなってしまいます。

こちらに関しましてもご教授願いませんでしょうか。

通ってみた 2006-09-09 07:01:42 No: 96570

１：BSキーを入力したかどうかを判定
２：文字数を調べて「/」の部分なら、最後の文字を消去

でできませんか？

魔界の仮面弁士 2006-09-09 07:41:13 No: 96571

マスクエディットコントロールを使ってみるとか。

ヤマ＠文系 2006-09-09 08:22:59 No: 96572

通ってみたさんや弁士様の方法がベストっぽいですが。。

文字が減っているときは処理しないようにしてみました。
他の処理のときに変になるかもしれませんので、
一応参考までに。

-------------------------------------

Dim f As Integer

Private Sub txt_Birth_Change()
If f < Len(txt_Birth.Text) Then
    If Trim(txt_Birth.Text) = Replace(Trim(txt_Birth.Text), "/", "") Then
        If Len(txt_Birth.Text) = 4 Then
            txt_Birth.Text = txt_Birth.Text & "/"
            txt_Birth.SelStart = 5
        End If
    Else
        If Len(txt_Birth.Text) = 7 Then
            txt_Birth.Text = txt_Birth.Text & "/"
            txt_Birth.SelStart = 8
        End If
    End If
End If
f = Len(txt_Birth.Text)

End Sub

いな 2006-09-11 23:21:38 No: 96573

>ご入力の際など、Backspaceキーが効かなくなってしまいます。

が〜ん、これ古いサンプルでした。
すいません。新しいサンプルは自社にあるようで、
手元にありませんでした。