■  和暦変換関数

入力された日付を和暦に変換する例です。

【fnc_DispDate】

    Function fnc_DispDate(ByVal strDate As Date) As String
        Dim myCal As New Globalization.JapaneseCalendar

        Try
            fnc_DispDate = CStr(Choose(CInt(myCal.GetEra(strDate)), _
                                    "明治", "大正", "昭和", "平成")) & _
                                    CStr(myCal.GetYear(strDate)) & _
                                    Format(strDate, "年MM月dd日")
        Catch ex As Exception
            fnc_DispDate = ""
        End Try

    End Function

fnc_DispDateを呼ぶ側

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                    Handles Button2.Click
        Try
            Me.Label1.Text = fnc_DispDate(CDate(Me.TextBox1.Text))
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

※fnc_DispDateをDate型としたので、呼ぶ側でTry&Catchしないと変な文字入力の時にエラーをハンドリングできません。

BEFORE PAGE

TOP PAGE