日期转换

准提部林

cdcn 发表于 2024-2-29 23:19
请老师解惑，条件成立时，(day(d)>25)*6为啥等于 -6

vba 的 True = -1 所以要用減號--負負得正
公式的 True = 1, 有所不同~~

准提部林

就是簡單公式加減法,,,沒有那麼複雜\\
b2 = text(a2+(day(a2)>25)*6, "yyyy年mm月")

ykcbf1100

换一种写法，用自定义函数来转换日期

ykcbf1100

代码如下：

1. Sub ykcbf()  '//2024.3.1
   
2.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
3.     arr = Me.Range("a1:b" & r)
   
4.     For i = 2 To UBound(arr)
   
5.         arr(i, 2) = CheckMonth(arr(i, 1), 25)
   
6.     Next
   
7.     Me.Range("a1:b" & r) = arr
   
8.     MsgBox "OK！"
   
9. End Sub
   
10. 
    
11. Function CheckMonth(rq, datem)
    
12.     If Day(rq) <= datem Then
    
13.         outrq = Format(rq, "yyyy年mm月")
    
14.     Else
    
15.         outrq = Format(DateAdd("m", 1, rq), "yyyy年mm月")
    
16.     End If
    
17.     CheckMonth = outrq
    
18. End Function
    

复制代码

cdcn

准提部林 发表于 2024-3-1 12:15
vba 的 True = -1 所以要用減號--負負得正
公式的 True = 1, 有所不同~~

感谢老师的帮助