返回列表 上一主題 發帖

只比較年月 ???

只比較年月 ???

假如 [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月

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

TOP

回復 1# t8899

參考看看
  1. Public Sub AA2()

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

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題