VB.NET 不同语言日期显示方式

VB.NET 不同语言日期显示方式

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

不同语言日期形式(TextBox1.Text, TextBox2.Text)

End Sub

Function 不同语言日期形式(ByVal m As Integer, ByVal w As String) As String

Select Case w

Case 1

w = DayOfWeek.Monday

Case 2

w = DayOfWeek.Tuesday

Case 3

w = DayOfWeek.Wednesday

Case 4

w = DayOfWeek.Thursday

Case 5

w = DayOfWeek.Friday

Case 6

w = DayOfWeek.Saturday

Case 7

w = DayOfWeek.Sunday

End Select

'美国英语

Dim MyAmerica As New System.Globalization.CultureInfo("en-US")

Dim MyFormat As System.Globalization.DateTimeFormatInfo = MyAmerica.DateTimeFormat

Dim MyInfo As String = "美国英语："

MyInfo += MyFormat.GetDayName(w) + "、" + MyFormat.GetMonthName(m)

'简体中文

Dim MyChina As New System.Globalization.CultureInfo("zh-CN")

MyFormat = MyChina.DateTimeFormat

MyInfo += vbCrLf + "简体中文："

MyInfo += MyFormat.GetDayName(w) + "、" + MyFormat.GetMonthName(m)

'日本语言

Dim MyJap As New System.Globalization.CultureInfo("ja-JP")

MyFormat = MyJap.DateTimeFormat

MyInfo += vbCrLf + "日文显示："

MyInfo += MyFormat.GetDayName(w) + "、" + MyFormat.GetMonthName(m)

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return 1

End Function

End Class