如何在VB6中获取当前Culture（区域文化）以设置适配的日期格式？

VB6没有原生的Culture对象，但可以通过Windows API获取系统区域设置信息，从而实现日期格式的适配。以下是两种实用方案：

方案一：通过国家代码判断日期格式 #

如果你需要严格按照美国(US)、加拿大(CA)、墨西哥(MX)使用MM/DD/YYYY格式，其他地区使用DD/MM/YYYY，可以通过API获取当前区域的ISO国家代码来判断：

1. 声明Windows API函数 #

在VB6模块中添加以下声明：

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Const LOCALE_SISO3166CTRYNAME = &H5A ' 获取2位ISO国家代码
Private Const LOCALE_USER_DEFAULT = &H400 ' 当前用户的默认区域设置

2. 编写获取国家代码的函数 #

Function GetCurrentCountryCode() As String
    Dim buffer As String
    Dim bufferSize As Long

    ' 获取所需缓冲区长度
    bufferSize = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SISO3166CTRYNAME, vbNullString, 0)
    If bufferSize > 0 Then
        buffer = String(bufferSize, vbNullChar)
        GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SISO3166CTRYNAME, buffer, bufferSize
        GetCurrentCountryCode = Left(buffer, bufferSize - 1) ' 移除末尾空字符
    End If
End Function

3. 判断并设置日期格式 #

Dim countryCode As String
Dim dateFormat As String

countryCode = GetCurrentCountryCode()

If countryCode = "US" Or countryCode = "CA" Or countryCode = "MX" Then
    dateFormat = "MM/DD/YYYY"
Else
    dateFormat = "DD/MM/YYYY"
End If

' 示例：格式化当前日期
MsgBox Format(Date, dateFormat)

方案二：直接获取系统默认日期格式 #

如果需要尊重用户自定义的区域日期设置（而非硬编码国家规则），可以直接获取系统的短日期格式：

1. 补充API声明（在已有声明基础上添加） #

Private Const LOCALE_SSHORTDATE = &H1F ' 获取系统短日期格式

2. 编写获取系统日期格式的函数 #

Function GetSystemShortDateFormat() As String
    Dim buffer As String
    Dim bufferSize As Long

    bufferSize = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, vbNullString, 0)
    If bufferSize > 0 Then
        buffer = String(bufferSize, vbNullChar)
        GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, buffer, bufferSize
        GetSystemShortDateFormat = Left(buffer, bufferSize - 1)
    End If
End Function

3. 使用系统格式格式化日期 #

Dim systemDateFormat As String
systemDateFormat = GetSystemShortDateFormat()
MsgBox Format(Date, systemDateFormat)

内容的提问来源于stack exchange，提问作者birdus