Public Class ClassDIHelpers

    ''' <summary>
    ''' Wandelt eine Datumsmaske im Benutzerformat in eine gültige Datumsmaske um.
    ''' </summary>
    ''' <param name="formatUrsprung">Datumsmaske im Benutzerformat</param>
    ''' <returns>Liefert Datumsmaske im gültigen DateTime-Format</returns>
    ''' <remarks></remarks>
    Public Shared Function GetDatumFormat(ByVal formatUrsprung As String) As String
        Try
            ' wenn es sich bei dem Zielindex um einen Datumsindex handelt
            If Not formatUrsprung = "" Then

                Dim datumFormat As String = formatUrsprung

                If datumFormat IsNot Nothing Then

                    Dim temp As String = ""

                    For Each zeichen As Char In datumFormat
                        If zeichen = "J" Or zeichen = "M" Or zeichen = "T" Or zeichen = "s" Or zeichen = "m" Or zeichen = "S" Then
                            temp &= zeichen
                        Else
                            temp &= "'" & zeichen & "'"
                        End If
                    Next

                    datumFormat = temp
                End If

                datumFormat = datumFormat.Replace("J", "y") ' Jahr
                datumFormat = datumFormat.Replace("M", "M") ' Monat
                datumFormat = datumFormat.Replace("T", "d") ' Tag

                datumFormat = datumFormat.Replace("s", "H") ' Stunde
                datumFormat = datumFormat.Replace("m", "m") ' Minute
                datumFormat = datumFormat.Replace("S", "s") ' Sekunde


                Return datumFormat
            Else
                Return Nothing
            End If
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    ''' <summary>
    ''' Liefert an Hand einer Datumsmaske (also z.B. yyyy_MM_dd) ein Datum aus einem String.
    ''' </summary>
    ''' <param name="datumText">der zu konvertierende Text</param>
    ''' <param name="maske">eine Maske an Hand der datumText ausgewertet werden soll</param>
    ''' <returns>liefert ein DateTime bei Erfolg und Nothing, wenn ein Fehler auftrat</returns>
    ''' <remarks></remarks>
    Public Shared Function GetDatumAusString(ByVal datumText As String, ByVal maske As String) As DateTime
        Try
            Dim datum = Nothing
            DateTime.TryParseExact(datumText, maske, Nothing, Globalization.DateTimeStyles.None, datum)

            Return datum
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
    Public Shared Function Return_Oracle_CS(host As String, port As String, servicename As String, user As String, pw As String)
        Return String.Format("Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST={0})" & _
                            "(PORT={1}))(CONNECT_DATA=(SERVICE_NAME={2})));User Id={3};Password={4};", _
    host,
    port,
    servicename,
    user,
    pw)
    End Function
End Class