Public Sub SDate_to_NormalDate(sd As String) As String
If sd = "-1" Then Return sd
Dim dtf As String = DateTime.DateFormat
DateTime.DateFormat = "yyyyMMdd"
Dim lng As Long = DateTime.DateParse(sd)
DateTime.DateFormat = dtf
Dim res As String = DateTime.Date(lng)
Return res
End Sub