簡單問題﹕關于日期函數

Question

有一字符串﹕"09-JAN-06"(2006-1-9)
使用cdate進行轉換時字符串被轉換成了2009-1-6
請問各位﹐在不改操作系統地區的情總下有什么好方法可以正確轉換成為2006-1-9呢?謝謝﹗

Answer 1

Dim strDate As String
Dim arrDate() As String
strDate = "09-JAN-06"
arrDate = Split(strDate, "-")
strDate = arrDate(2) & "-" & arrDate(1) & "-" & arrDate(0)
MsgBox CDate(strDate)

Answer 2

Dim strDate As String
Dim arrDate() As String
strDate = "09-JAN-06"
arrDate = Split(strDate, "-")
strDate = arrDate(2) & "-" & arrDate(1) & "-" & arrDate(0)
MsgBox CDate(strDate)

Answer 3

strDate = Format(strDate, "YYYY-MM-DD")

Answer 4

只能 split 后用 select case 处理月份，最后合并成字符串 "06-1-09" 再 CDate

Answer 5

try:Dim strDate 
strDate = "09-JAN-06"
strDate = Format(strDate, "d-mmmm-yy")
strDate = Format(strDate, "yyyy-m-d")
Print strDate

Answer 6

直接用format会按系统日期格式(北京地区)，顺序将strDate这中日期格式中的“日”转换为年，“年”转换为日。所以可以利用这个特性，用"dd-mm-yy"这种格式将strDate中“日”和“年”位置换一下。然后在用"yyyy-mm-dd"格式化一下，应该没问题吧。在我的机器上试了一下是可以的