如何将在程序中用代码将WIN8的日期格式从YYYY/MM/DD DDDD改为YYYY-MM-DD

Question

format(Date,"YYYY-MM-DD hh:mm:ss")

Answer 1

我的意思是在程序中用代码  直接将WIN8系统中关于日期和时间的格式改变。

Answer 2

一般来说，程序员不应改动用户对操作系统的设置。你的软件用什么格式，完全可以用 Format 函数处理。

Answer 3

WinXP 下更改系统日期格式的范例。试试 Win8 下是否有效。      Option Explicit      Private Const LOCALE_SSHORTDATE = &H1F
      Private Const WM_SETTINGCHANGE = &H1A
      'same as the old WM_WININICHANGE
      Private Const HWND_BROADCAST = &HFFFF&      Private Declare Function SetLocaleInfo Lib "kernel32" Alias _
          "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As _
          Long, ByVal lpLCData As String) As Boolean
      Private Declare Function PostMessage Lib "user32" Alias _
          "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
          ByVal wParam As Long, ByVal lParam As Long) As Long
      Private Declare Function GetSystemDefaultLCID Lib "kernel32" _
          () As Long      Private Sub Command1_Click()
         Dim dwLCID As Long
         dwLCID = GetSystemDefaultLCID()
         If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "yyyy-MMM-dd") _
            = False Then
            MsgBox "Failed"
            Exit Sub
         End If
         PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
      End Sub

Answer 4

请问 短日期和长日期格式有什么区别 ，同样一个FORMAT函数，短日期和长日期，会怎样影响它的执行？