- 帖子
- 91
- 主題
- 5
- 精華
- 0
- 積分
- 130
- 點名
- 2
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-5-14
- 最後登錄
- 2026-6-21
|
回復 1# t8899
參考看看- Public Sub AA2()
- If CLng(Format([a1], "yyyymm")) < CLng(Format([a2], "yyyymm")) Then
- Debug.Print Format([a1], "yyyy年mm月") & "小於" & Format([a2], "yyyy年mm月")
- ElseIf CLng(Format([a1], "yyyymm")) = CLng(Format([a2], "yyyymm")) Then
- Debug.Print Format([a1], "yyyy年mm月") & "等於" & Format([a2], "yyyy年mm月")
- Else
- Debug.Print Format([a1], "yyyy年mm月") & "大於" & Format([a2], "yyyy年mm月")
- End If
- End Sub
|
|
發表於 2018-6-11 15:32
| 