关于Day(date)的条件判断

purpledragoon

请教问题：
当msgbox day(date) 值为22，
   msgbox Mid(Sheet3.Range("g2"), 9, 2)  值为22   （Sheet3.Range("g2")值为： DJ20230222001）

为什么Day(Date) = Mid(Sheet3.Range("g2"), 9, 2) 条件判断不成立，
          Day(Date) < Mid(Sheet3.Range("g2"), 9, 2) 条件判断成立？

Sub TEST()
If Day(Date) = Mid(Sheet3.Range("g2"), 9, 2) Then
Sheet3.Range("d4") = Date
Sheet3.Range("d5") = Date
ElseIf Day(Date) < Mid(Sheet3.Range("g2"), 9, 2) Then
    Sheet3.Range("d4") = Date
    Sheet3.Range("d5") = Date + 1
ElseIf Day(Date) > Mid(Sheet3.Range("g2"), 9, 2) Then
    Sheet3.Range("d4") = Date - 1
    Sheet3.Range("d5") = Date
End If


测试目的：根据编码中日期值，与日期的对应关系，填写单据日期

liulang0808

Day(Date)  & "" = Mid(Sheet3.Range("g2"), 9, 2)
看看是否可行

purpledragoon

liulang0808 发表于 2023-2-22 07:13
Day(Date)  & "" = Mid(Sheet3.Range("g2"), 9, 2)
看看是否可行

谢谢，可行！请教一下什么原理？ 为什么直接=不可行，并且三种日期对应关系都直接判定为<执行，加上&“”则变为可正确判断执行？谢谢指点！

MOY838840554

左边数字，右边字符串。数字是小于字符串的。

ykcbf1100

等式左边和右边格式不一致，左是数字，右是字串，不宜直接比较。
解决办法：方法一是左边套一个cstr函数；方法二是右边套一个val函数。

liulang0808

purpledragoon 发表于 2023-2-22 09:44
谢谢，可行！请教一下什么原理？ 为什么直接=不可行，并且三种日期对应关系都直接判定为

左边是数值类型，右边是字符串的，不一致

purpledragoon

谢谢楼上几位大佬指点！