« [VB.NET] Excelの操作 | メイン | [VB.NET] StringBuilderの使用 »

2005年12月27日

[VB.NET] 日付の存在チェック

    '--- 正しい日付=True、不正な日付=False
    Public Function IsExistDate(ByVal CheckDate As String) As Boolean
        Try
            Dim dt As Date
            Dim CheckFormat As String = "yyyyMMdd" '例：20051227


            'CheckDateの文字数が0の場合

            If Trim(CheckDate).Length = 0 Then

                Return False

            End If



            '日付の形式にフォーマットする

            dt = DateTime.ParseExact(CheckDate, CheckFormat, Nothing)

            Return IsDate(dt)



        Catch ex As Exception

            Return False

        End Try

    End Function

2005 / 12 / 27