日期转换

ykcbf1100

代码更新一下。。

1. Sub ykcbf()  '//2024.2.29
   
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.         s = arr(i, 1)
   
6.         nf = Year(s)
   
7.         yf = Month(s) + IIf(Day(s) <= 25, 0, 1)
   
8.         If Month(s) = 12 And Day(s) > 25 Then
   
9.             arr(i, 2) = nf + 1 & "年" & yf - 12 & "月"
   
10.         End If
    
11.     Next
    
12.     Me.Range("a1:b" & r) = arr
    
13.     MsgBox "OK！"
    
14. End Sub
    
15. 
    

复制代码

准提部林

d = [a2]
td =format(d - (day(d)>25)*6,"yyyy年mm月")

A刘志勇

ykcbf1100 发表于 2024-2-29 15:40
VBA写的，附件供参考。。。

C:\Users\Administrator\Desktop\1.png

A刘志勇

ykcbf1100 发表于 2024-2-29 15:40
VBA写的，附件供参考。。。

老师，这样会有不正确的地方

ykcbf1100

A刘志勇 发表于 2024-2-29 21:27
老师，这样会有不正确的地方

言之有理。。。

ykcbf1100

附件更新一下，修正一下跨年可能出现的问题

ykcbf1100

代码更新一下。。。

1. Sub ykcbf()  '//2024.2.29
   
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.         s = arr(i, 1)
   
6.         nf = Year(s)
   
7.         yf = Month(s) + IIf(Day(s) <= 25, 0, 1)
   
8.         If Month(s) = 12 And Day(s) > 25 Then
   
9.             arr(i, 2) = nf + 1 & "年" & yf - 12 & "月"
   
10.         End If
    
11.     Next
    
12.     Me.Range("a1:b" & r) = arr
    
13.     MsgBox "OK！"
    
14. End Sub
    
15. 
    

复制代码

A刘志勇

ykcbf1100 发表于 2024-2-29 21:37
代码更新一下。。。

我是这样改了一下

A刘志勇

A刘志勇 发表于 2024-2-28 16:40
你试试参考一下

老师们写的真好

cdcn

准提部林 发表于 2024-2-29 15:48
d = [a2]
td =format(d - (day(d)>25)*6,"yyyy年mm月")

请老师解惑，条件成立时，(day(d)>25)*6为啥等于 -6