76 lines
2.9 KiB
VB.net
76 lines
2.9 KiB
VB.net
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
|