Kode zum Parsen des Internetdatums

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Pipeline.Wrapper
Imports Microsoft.SqlServer.Dts.Runtime.Wrapper
Imports System.Globalization


Public Class ScriptMain
    Inherits UserComponent

    Public Overrides Sub Input0_ProcessInputRow(ByVal Row As Input0Buffer)
        '"yyyy-MM-ddTHH:mm:ss.FFFFFFFzzzzzz"        ' 2006-09-25T20:14:12.000-01:00
        '"yyyy-MM-ddTHH:mm:ss.FFFFFFFZ"             ' 2006-09-25T20:14:12.000Z
        '"yyyyMMddHHmmss"                           ' 20040610140023
        '"yyyyMMdd HHmmss"                          ' 20040610 140023

        Dim DateFormat() As String = {"yyyy-MM-ddTHH:mm:ss.FFFFFFFZ", "yyyy-MM-ddTHH:mm:ss.FFFFFFFzzzzzz"}
        Dim Dt As DateTime

        If DateTime.TryParseExact(Row.UTCTime, _
            DateFormat, _
            DateTimeFormatInfo.InvariantInfo, _
            DateTimeStyles.AllowTrailingWhite Or DateTimeStyles.AllowLeadingWhite, Dt) Then
            Row.Datum = Dt
        End If
    End Sub
End

Bemerkung