W
Werner Wopienka
HI NG!
I need to convert a de-DE date and time into an en-US and back again.
Bringing the German date and time in the en-US works perfectly, but back i
get a Format exception.
I tried:
Dim cultureus As New CultureInfo("en-US")
Dim culturede As New CultureInfo("de-DE")
Dim datestringus As DateTime
Dim timestringus As DateTime
Dim timestringde As DateTime
Dim datestringde As DateTime
datestringus = DateTime.Parse(DateTime.Now.ToShortDateString,
cultureus.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
timestringus = DateTime.Parse(DateTime.Now.ToShortTimeString,
cultureus.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
datestringde = DateTime.Parse(datestringus.ToString,
culturede.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
timestringde = DateTime.Parse(timestringus.ToString,
culturede.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
Thx 4 any help
Werner
I need to convert a de-DE date and time into an en-US and back again.
Bringing the German date and time in the en-US works perfectly, but back i
get a Format exception.
I tried:
Dim cultureus As New CultureInfo("en-US")
Dim culturede As New CultureInfo("de-DE")
Dim datestringus As DateTime
Dim timestringus As DateTime
Dim timestringde As DateTime
Dim datestringde As DateTime
datestringus = DateTime.Parse(DateTime.Now.ToShortDateString,
cultureus.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
timestringus = DateTime.Parse(DateTime.Now.ToShortTimeString,
cultureus.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
datestringde = DateTime.Parse(datestringus.ToString,
culturede.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
timestringde = DateTime.Parse(timestringus.ToString,
culturede.DateTimeFormat, DateTimeStyles.AdjustToUniversal)
Thx 4 any help
Werner