返回列表 上一主題 發帖

只比較年月 ???

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 2018-6-11 11:48 | 只看該作者
公式=TEXT(A1,"yyyymm")-TEXT(A2,"yyyymm")
vba Format([a1], "yyyymm") - Format([a2], "yyyymm")
按需要加上 if 做判斷

TOP

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
3#
發表於 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

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題