[OSのVer]：Windows2000　　　　[VBのVer]：VB.NET　2003

お世話になっています。

皆様にご教授賜りたく書き込みいたしました。
日付の書式なのですが、

フォームの生年月日項目に入力した値(入力例:19871011)
の入力後フォーマットで
"gyyyy年MM月dd日"
という書式に変換してしまいたいのですが、上手くいきません。

どなたか、ご教授賜ることはできませんでしょうか?
宜しくお願い致します。



現在の生年月日の記述

    Private Sub txt_seinen_Validated(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txt_seinen.Validated

        If Not IsNothing(txt_seinen.Text) Then
            Me.txt_seinen.Text = Format(Me.txt_seinen.Text.ToString, "gyyyy年MM月dd日&
quot;)
        End If

    End Sub

すみません　

> 現在の生年月日の記述
>
>     Private Sub txt_seinen_Validated(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles txt_seinen.Validated
>
>         If Not IsNothing(txt_seinen.Text) Then
>             Me.txt_seinen.Text = Format(Me.txt_seinen.Text.ToString, "gyyyy年MM月dd
日")
>         End If
>
>     End Sub

です。

ここの
hhttp://www.bcap.co.jp/hanafusa/dotnet/day04.htm
は参考になりませんか？

ちなみに
StringからData型への変換方法は過去ログに
hhttp://www.bcap.co.jp/hanafusa/bbs/wforum.cgi?mode=allread&no=2105&page=0
がありました。

早々のお返事ありがとうございます。

大変参考にはなっているのですが、入力された値が入っている『Me.txt_seinen.Text』を
　「DateTime.Now.ToString」に入力したのですが、
エラーが起きて上手くいかないのです。

また、別の方法として

    Private Sub txt_seinen_Validated(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txt_seinen.Validated
        If Not IsNothing(txt_seinen.Text) Then
            Dim MyDate As New DateTime(Me.txt_seinen.Text)
            Dim MyString As String = MyDate.ToString("yyyy年MM月dd日")
            Me.txt_seinen.Text = MyString
　　　　end if
    End Sub

にしてみたのですが、フォームでの入力値(19831011)
を実行してみると、『0001年01月01日』の値が返されてしまいます。


宜しくお願い致します。。

お世話になります。

>             Dim MyDate As New DateTime(Me.txt_seinen.Text)
>             Dim MyString As String = MyDate.ToString("yyyy年MM月dd日")
> にしてみたのですが、フォームでの入力値(19831011)
> を実行してみると、『0001年01月01日』の値が返されてしまいます。

Dim MyDate As DateTime = New DateTime
MyDate.Year = 1983 ←これらは、String.Substringをし、Integer.parse等でキャスト行ったものを設定
MyDate.Month = 10
MyDate.Day = 11
Dim MyString As String = MyDate.ToString("yyyy年MM月dd日")
ならいけるはずです。

下記ではいかがですか？

Dim MyDate As DateTime = Date.Parse(Format(CLng(Me.txt_seinen.Text), "0000/00/00"))

なおこ(・∀・) 様。
花ちゃん様。
お二方ともありがとうございました☆
上手くできました!!!

凄く勉強になりました。
ありがとうございました。