Imports System.Globalization
Imports System.Threading
Module DateToStringExample
Public Sub Main()
Dim currentCulture As CultureInfo = Thread.CurrentThread.CurrentCulture
Dim exampleDate As Date = #05/01/2010 6:32:06PM#
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("ja-JP")
Console.WriteLine(exampleDate.ToString())
' Restore the original culture
Thread.CurrentThread.CurrentCulture = currentCulture
End Sub
End Module