[VB.NET]文字列から日付オブジェクトを生成する

>Blog Top Page >[VB.NET] Top Page >[VB.NET] VB.NET ALL

■文字列から日付オブジェクトを生成する

view plainprint?

1. Module Module1  
2.   
3.     Sub Main()  
4.   
5.         Dim DateStr As String  
6.         Dim FormatStr As String  
7.         Dim DateTimeObj As DateTime  
8.   
9.         DateStr = "2013-04-07[21:23:06]"  
10.         FormatStr = "yyyy-MM-dd[HH:mm:ss]"  
11.         DateTimeObj = DateTime.ParseExact(DateStr, FormatStr, Nothing)  
12.   
13.         Console.WriteLine(DateTimeObj.ToString) '2013/04/07 21:23:06  
14.   
15.         DateStr = "20130407212306"  
16.         FormatStr = "yyyyMMddHHmmss"  
17.         DateTimeObj = DateTime.ParseExact(DateStr, FormatStr, Nothing)  
18.   
19.         Console.WriteLine(DateTimeObj.ToString) '2013/04/07 21:23:06  
20.   
21.         'フォーマットが一致しない場合FormatExceptinの例外を出すのでエラー処理を含めて記述すると  
22.         Try  
23.             DateStr = "20130407212306"  
24.             FormatStr = "yyyyMMdd" 'フォーマットが一致していない場合  
25.             DateTimeObj = DateTime.ParseExact(DateStr, FormatStr, Nothing)  
26.   
27.         Catch Ex As System.FormatException  
28.             Console.WriteLine("フォーマットが一致していません")  
29.             End  
30.         End Try  
31.   
32.         Console.WriteLine(DateTimeObj.ToString)  
33.     End Sub  
34.   
35. End Module  

Module Module1

    Sub Main()

        Dim DateStr As String
        Dim FormatStr As String
        Dim DateTimeObj As DateTime

        DateStr = "2013-04-07[21:23:06]"
        FormatStr = "yyyy-MM-dd[HH:mm:ss]"
        DateTimeObj = DateTime.ParseExact(DateStr, FormatStr, Nothing)

        Console.WriteLine(DateTimeObj.ToString) '2013/04/07 21:23:06

        DateStr = "20130407212306"
        FormatStr = "yyyyMMddHHmmss"
        DateTimeObj = DateTime.ParseExact(DateStr, FormatStr, Nothing)

        Console.WriteLine(DateTimeObj.ToString) '2013/04/07 21:23:06

        'フォーマットが一致しない場合FormatExceptinの例外を出すのでエラー処理を含めて記述すると
        Try
            DateStr = "20130407212306"
            FormatStr = "yyyyMMdd" 'フォーマットが一致していない場合
            DateTimeObj = DateTime.ParseExact(DateStr, FormatStr, Nothing)

        Catch Ex As System.FormatException
            Console.WriteLine("フォーマットが一致していません")
            End
        End Try

        Console.WriteLine(DateTimeObj.ToString)
    End Sub

End Module

□出力結果
2013/04/07 21:23:06
2013/04/07 21:23:06
フォーマットが一致していません

>Blog Top Page >[VB.NET] Top Page >[VB.NET] VB.NET ALL