起始日与截止日的天数计算

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.28
   
2.     c = ActiveSheet.UsedRange.Columns.Count
   
3.     arr = Range("e5").Resize(2, c - 2)
   
4.     rq = Date
   
5.     For j = 1 To UBound(arr, 2)
   
6.         rq1 = arr(1, j)
   
7.         rq2 = VBA.DateSerial(Year(rq), Month(rq), 1)
   
8.         arr(2, j) = DateDiff("d", rq1, rq2)
   
9.     Next
   
10.     Range("e5").Resize(2, c - 2) = arr
    
11. End Sub
    

复制代码

zllyyz

准提部林 发表于 2024-2-27 15:41
當前月一日
Dim dd As Date
dd = Format(Date, "yyyy/m")

大大 方便看看这个帖子吗（计算内容跟之前的感觉差不多）？https://club.excelhome.net/thread-1685415-1-1.html