当前位置：首页 - 正文

用VB如何修改系统区域时间的格式?

发布网友发布时间：2022-05-04 01:21

共5个回答

热心网友时间：2022-06-20 09:15

Dim CustomCulture As CultureInfo = New CultureInfo("en-us")
'Date format
CustomCulture.DateTimeFormat.ShortDatePattern = "yyyy年M月d日"
CustomCulture.DateTimeFormat.LongDatePattern = "yyyy年M月d日"
'apply to application
System.Windows.Forms.Application.CurrentCulture = CustomCulture
System.Threading.Thread.CurrentThread.CurrentUICulture = CustomCulture
'另外，在改之前保存用户设定，程序执行完了，别忘了改回用户原来的设定

热心网友时间：2022-06-20 09:16

Print Format(Now, "yyyy年mm月dd日")
用这个格式控制就可以控制程序本地的输出效果
Format函数

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' 以系统设置的长时间格式返回当前系统时间。
MyStr = Format(Time, "Long Time")

' 以系统设置的长日期格式返回当前系统日期。
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993"。

热心网友时间：2022-06-20 09:16

修改格式的代码如下：

Dim CustomCulture As CultureInfo = New CultureInfo("en-us")
'Date format
CustomCulture.DateTimeFormat.ShortDatePattern = "yyyy年M月d日"
CustomCulture.DateTimeFormat.LongDatePattern = "yyyy年M月d日"
'apply to application
System.Windows.Forms.Application.CurrentCulture = CustomCulture
System.Threading.Thread.CurrentThread.CurrentUICulture = CustomCulture

热心网友时间：2022-06-20 09:17

哈哈我告诉你个法。
保证好用。无论他时间格式是什么样的，都可以按你要求输出。
Private Sub Form_Load()
Me.Caption = TimeNow
End Sub
Function TimeNow() As String
TimeNow = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
End Function

热心网友时间：2022-06-20 09:17

Format(Now, "yyyy年mm月dd日")

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

用VB如何修改系统区域时间的格式?

最新推荐

猜你喜欢

热门推荐