date - 无论区域设置如何，都将日期强制为美国格式

Question

我有一个带有这一行的 VB6 程序:

strDate = Format(Date, "ddmmmyyyy")

根据英语(美国)Windows 的文化设置，我需要它始终以这种格式出现:
17Jul2012
不幸的是，当文化设置为其他东西时，例如法语，我得到了这个:
17juil2012
有什么方法可以使日期格式始终使用英美格式？

Answer 1

与其纠结于尝试强制执行特定于文化的格式，不如将月份名称硬编码为一个简单的函数，如下所示:

Private Function GetEnglishDate(ByVal d As Date) As String
    Dim monthNames
    monthNames = Array("", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    GetEnglishDate = Day(d) & monthNames(Month(d)) & Year(d)
End Function

用法:

strDate = GetEnglishDate(myDate)