zydronium/RDSFactor
1
0
Fork 0
mirror of https://github.com/jakobadam/RDSFactor.git synced 2025-07-25 18:58:15 +02:00
Code Issues Projects Releases Packages Wiki Activity

Rename: RDSFactorWeb -> web, RDSFactor -> server

Browse source
This commit is contained in:
Jakob Aarøe Dam 2015-04-28 11:58:23 +02:00
parent c3c10e1fd2
commit eebdaf9551
88 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

56
server/Conversion.vb Normal file
View file

@ -0,0 +1,56 @@

Friend Class Conversion
Friend Shared Function ConvertToString(ByRef bytes() As Byte) As String
Dim k As New System.Text.StringBuilder
Dim i As Integer
For i = 0 To bytes.Length - 1 : k.Append(Chr(bytes(i))) : Next
Return k.ToString
End Function
Friend Shared Function ConvertToBytes(ByVal str As String) As Byte()
Dim res() As Byte = {}
Array.Resize(Of Byte)(res, str.Length)
Dim i As Integer
For i = 0 To res.Length - 1
res(i) = Convert.ToByte(str.Chars(i))
Next
Return res
End Function
Friend Shared Function ConvertToDateTime(ByVal value As String) As DateTime
Dim ret As DateTime
value = LCase(value)
Try
value = Replace(value, "utc", "")
value = Replace(value, "mon", "")
value = Replace(value, "tue", "")
value = Replace(value, "wed", "")
value = Replace(value, "thu", "")
value = Replace(value, "fri", "")
value = Replace(value, "sat", "")
value = Replace(value, "sun", "")
value = Replace(value, "jan", "1/")
value = Replace(value, "feb", "2/")
value = Replace(value, "mar", "3/")
value = Replace(value, "apr", "4/")
value = Replace(value, "may", "5/")
value = Replace(value, "jun", "6/")
value = Replace(value, "jul", "7/")
value = Replace(value, "aug", "8/")
value = Replace(value, "sep", "9/")
value = Replace(value, "oct", "10/")
value = Replace(value, "nov", "11/")
value = Replace(value, "dec", "12/")
Do While InStr(value, " ") <> 0
value = Replace(value, " ", " ")
Loop
value = Replace(value, "/ ", "/")
ret = Convert.ToDateTime(value)
Catch ex As Exception
ret = Nothing
End Try
Return ret
End Function
End Class