Excel 2003 VBA 日期比較發現 2010/10/4 < 2010/8/19 請教有破解方式嗎？

johnlin0808 2010-10-04 11:06:40 ‧ 19918 瀏覽

分享至

看起來應是 2010/1 < 2010/8 所致，請教有較簡單的破解方式嗎？

如 Dim xx as date 可以嗎？但一個是抓系統日期(2010/10/4)，另一個是抓 Excel

工作表儲存格內日期 (2010/8/19) ，請教可以嗎？

Tks a lot !

john

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

ycl8000

iT邦高手 1 級 ‧ 2010-10-04 15:24:51

最佳解答

如果是字串比對: "2010/10/4" < "2010/8/19"
如果是日期比對: DateValue("2010/10/4") > DateValue("2010/8/19")

回應 1
分享
檢舉

johnlin0808 iT邦新手 5 級 ‧ 2010-10-05 23:22:54 檢舉

Dear ycl8000 :

感謝答覆，經我將變數套入Datevalue()後，真的可以正確辨認了。

謝謝您的協助！

john

登入發表回應

apgapple

iT邦新手 3 級 ‧ 2010-10-05 10:14:42

http://msdn.microsoft.com/en-us/library/3eaydw6e(VS.80).aspx
字串前後"'"
日期前後"#"

回應 2
分享
檢舉

johnlin0808 iT邦新手 5 級 ‧ 2010-10-05 23:39:18 檢舉

Dear apgapple :

感謝答覆！

請教 "#" 要如何運用在VBA中？如用工作表中某一儲存格內日期，搬到VBA 中自設變數，

Dim s_date As String

s_date = range("A1").value

是要改成 s_date = "#" & range("A1").value & "#" 嗎？

另一個比較日期(系統日期)，

Dim s_sysdt As String

s_sysdt = Date

是否也要改成 s_sysdt = "#" & Date & "#" 嗎？

再用s_date 與 s_sysdt 比大小？

Tks a lot !

john

apgapple iT邦新手 3 級 ‧ 2010-10-10 11:37:35 檢舉

Dim s_date As Date
s_date = "#" & range("A1").value & "#"

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22200 篇

完賽人數

602 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙