[VBA ] 關於 isdate 在 民國/2/29 的判斷錯誤
請教關於 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
→
10/31 01:34, , 1F
10/31 01:34, 1F
→
10/31 12:17, , 2F
10/31 12:17, 2F
推
10/31 12:44, , 3F
10/31 12:44, 3F
推
10/31 14:12, , 4F
10/31 14:12, 4F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
