Declare Function EnumDateFormats Lib "KERNEL32" Alias "EnumDateFormats" (ByVal lpDateFmtEnumProc As Long, ByVal Locale As Long, ByVal dwFlags As Long) As Long

解决方案 »

  1.   

    This isn't the answer . but thanks jl2000 any way .
    And I already find a way to do it ,that's seting the resgister key "HKEY_CURRENT_USER\Control Panel\International\sShortDate" for the first question . 
    but the second question still at here .
    which one can get me a nicety solving . Thanks .
      

  2.   

    Public Declare Function GetTimeZoneInformation Lib "kernel32" Alias "GetTimeZoneInformation" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
    Public Declare Function SetTimeZoneInformation Lib "kernel32" Alias "SetTimeZoneInformation" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
    Public Type TIME_ZONE_INFORMATION
            Bias As Long
            StandardName(32) As Integer
            StandardDate As SYSTEMTIME
            StandardBias As Long
            DaylightName(32) As Integer
            DaylightDate As SYSTEMTIME
            DaylightBias As Long
    End Type
    在模块里需调用两个函数。然后根据结构TIME_ZONE_INFORMATION的声明尝试一下就ok.
      

  3.   

    Thanks for mcsdcn time .
    Could get me a fine example .