Sub TestDate
Dim sDate As String = "18.04.2017 14:51"
Dim df As String = DateTime.DateFormat ' save DateFormat
DateTime.DateFormat="dd.MM.yyyy HH:mm" ' set German DateFormat
Dim nDate As Long = DateTime.DateParse( sDate) ' Parse date
Log( "DateTime in Ticks = " & nDate)
DateTime.DateFormat = df ' restore DateFormat
Log( DateTime.Date( nDate) &" "& DateTime.Time( nDate))
End Sub
Sub TestNumber
'if there is not a thousand point
Dim sNum As String = "1229,861"
Log( sNum.Replace(",", "."))
'otherwise
Dim sNum As String = "1.229,861"
sNum = sNum.Replace(",", "#")
sNum = sNum.Replace(".", ",")
sNum = sNum.Replace("#", ".")
Log( sNum)
End Sub