01.
Imports
System.Globalization
02.
03.
Public
Partial
Class
Default3
04.
Inherits
System.Web.UI.Page
05.
Protected
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
06.
Dim
local
As
CultureInfo = CultureInfo.CurrentCulture
07.
Dim
thCulture
As
CultureInfo = CultureInfo.GetCultureInfo(
"th-TH"
)
08.
Dim
enUSCulture
As
CultureInfo = CultureInfo.GetCultureInfo(
"en-US"
)
09.
Dim
japCulture
As
CultureInfo = CultureInfo.GetCultureInfo(
"ja-JP"
)
10.
11.
Dim
day
As
Integer
=
CInt
(DateTime.Now.DayOfWeek)
12.
13.
Response.Write(
"Local :"
& local.DateTimeFormat.DayNames(day) &
"<br />"
)
14.
Response.Write(
"Thai : "
& thCulture.DateTimeFormat.DayNames(day) &
"<br />"
)
15.
Response.Write(
"English - US : "
& enUSCulture.DateTimeFormat.DayNames(day) &
"<br />"
)
16.
Response.Write(
"Japan : "
& japCulture.DateTimeFormat.DayNames(day) &
"<br />"
)
17.
End
Sub
18.
End
Class