返回列表 上一主題 發帖

只比較年月 ???

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
1# 跳轉到 »
發表於 2018-6-11 15:32 | 顯示全部帖子
回復 1# t8899

參考看看
  1. Public Sub AA2()

  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
複製代碼

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題