為什麼這篇VBA IsDate鄉民發文收入到精華區:因為在VBA IsDate這個討論話題中,有許多相關的文章在討論,這篇最有參考價值!作者kgreatheart (神之左手魔之右手)看板Visual_Basic標題[VBA ] 關於 ...
請教關於 isdate的問題
工作表如下所示:(民國/月/日)
---------------------------------
A
1 101/02/28
2 101/02/29
---------------------------------
With ActiveSheet
MsgBox IsDate(.Range("A1").Value) 'True
MsgBox IsDate(.Range("A2").Value) 'False,但民國101年2月29日確實有這天
End With
想寫一段程式,在判斷儲存格為"日期",則將 (民國/月/日) 轉成 (西元/月/日)
但在判斷 (2/29) ,卻會出現錯誤,請教如下程式該如何作修改,謝謝。
Do While IsDate(PT) = True
temp = PT.Value
temp = Left(temp, InStr(temp, "/") - 1) + 1911 & "/" & Mid(temp, InStr(temp, "/") + 1)
PT.Value = temp
Set PT = PT.Offset(1, 0)
Loop
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 180.177.12.249