Imports System.Globalization
 
Public Class Form1
 
   Private Const SQLDate As String = "20090814232048.000000+***"
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
 
      Dim sDate As Date = Date.ParseExact(SQLDate.Split("."c)(0), _
        "yyyyMMddHHmmss", CultureInfo.InvariantCulture)
 
      MsgBox(sDate.ToString)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control