標題: 只比較年月 ??? [打印本頁]

---

作者: t8899    時間: 2018-6-11 09:43     標題: 只比較年月 ???

假如 [a1] 日期大於 [a2] 日期 則 .....   語法是???
只比較年月例如
If Format(Sheet1.[a1], "yyyymm") > Format(Sheet1.[a2], "yyyymm") Then
MsgBox "test"
End If
[a1]=2018/6/11
[a2]=2018/6/12
測試結果不對
我要的答案是等於 年月一樣是相等
2019年1月大於2018年12月
2018年12月大於2018年11月

---

作者: ikboy    時間: 2018-6-11 11:48

公式=TEXT(A1,"yyyymm")-TEXT(A2,"yyyymm")
vba Format([a1], "yyyymm") - Format([a2], "yyyymm")
按需要加上 if 做判斷

---

作者: naruto018    時間: 2018-6-11 15:32

回復 1# t8899

參考看看

1. Public Sub AA2()
   
2. 
   
3. If CLng(Format([a1], "yyyymm")) < CLng(Format([a2], "yyyymm")) Then
   
4.     Debug.Print Format([a1], "yyyy年mm月") & "小於" & Format([a2], "yyyy年mm月")
   
5. ElseIf CLng(Format([a1], "yyyymm")) = CLng(Format([a2], "yyyymm")) Then
   
6.     Debug.Print Format([a1], "yyyy年mm月") & "等於" & Format([a2], "yyyy年mm月")
   
7. Else
   
8.     Debug.Print Format([a1], "yyyy年mm月") & "大於" & Format([a2], "yyyy年mm月")
   
9. End If
   
10. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)