37 lines
1.4 KiB
VB.net
37 lines
1.4 KiB
VB.net
Public Class Helpers
|
|
Inherits Constants
|
|
Friend Shared Function Convert_VectorType(vType As Object, value As String)
|
|
Select Case vType
|
|
Case INDEX_TYPE_HASH ' 36865
|
|
'Umwandeln in String
|
|
Return CStr(value)
|
|
Case INDEX_TYPE_VECTOR_STRING '4097
|
|
'Umwandeln in String
|
|
Return CStr(value)
|
|
Case INDEX_TYPE_VECTOR_INTEGER '4098
|
|
'Umwandeln in Integer
|
|
value = value.ToString.Replace(" ", "")
|
|
Return CInt(value)
|
|
Case INDEX_TYPE_VECTOR_FLOAT '4099
|
|
Dim Str As String = value
|
|
Str = Str.ToString.Replace(" ", "")
|
|
'Umwandeln in Double
|
|
Return CDbl(Str.Replace(".", ","))
|
|
Case INDEX_TYPE_VECTOR_BOOLEAN '4100
|
|
'Umwandeln in Boolean
|
|
Return CBool(value)
|
|
Case INDEX_TYPE_VECTOR_DATE '4101
|
|
'Umwandeln in Date
|
|
Return CDate(value)
|
|
Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107
|
|
Return Convert.ToInt64(value)
|
|
Case INDEX_TYPE_VECTOR_DATE_TIME '4103
|
|
'Umwandeln in Datum Uhrzeit
|
|
Return value
|
|
Case Else
|
|
'Umwandeln in String
|
|
Return CStr(value)
|
|
End Select
|
|
End Function
|
|
End Class
|