如何用VBA计算某一天的上个月的最后一天？

庄彼梵

原命令在   埋地  模块
H列有一列竣工时间的数据，想用VBA计算出前两个月的最后一天日期，以（yyyy.mm.dd）的格式写入word文档之中！



如何实现？

AS850629754

用这个月1号减1天，好像是dateiif

yaozong

[b1] = VBA.DateSerial(Year([a1]), Month([a1]), 0)

CC例例

1. Sub test()
   
2.    MsgBox DateSerial(Year([a1]), Month([a1]), 0)
   
3. End Sub

复制代码

庄彼梵

yaozong 发表于 2016-10-11 15:24
= VBA.DateSerial(Year([a1]), Month([a1]), 0)

不是简单的A1，B1
我有这样一列数据，不想拖拽   怎么实现？  能不能把类似 Sheets("数据").Cells(i, 1)加进这个公式？

yaozong

或
[b1] = CDate([a1] - Day([a1]))

grf1973

1. Sub 【分类表】统计查询()
   
2.     Dim 起始日期, 截止日期, Arr, Sl, Bf
   
3.     Dim D
   
4.     Set D = CreateObject("scripting.dictionary")
   
5.     Set Dd = CreateObject("scripting.dictionary")
   
6.     Application.ScreenUpdating = False
   
7.     时间 = Timer
   
8.     With Sheets("打印表")
   
9.         起始日期 = .[J7].Value
   
10.         截止日期 = .[N7].Value
    
11.     End With
    
12.     If 起始日期 = "" Or 截止日期 = "" Then MsgBox "请输入日期": End
    
13.    
    
14.     上月起始 = DateSerial(Year(起始日期), Month(起始日期), 1) - 1
    
15.     上月起始 = DateSerial(Year(上月起始), Month(上月起始), 26)
    
16.     上月截止 = 起始日期 - 1
    
17.    
    
18.     上上月起始 = DateSerial(Year(上月起始), Month(上月起始), 1) - 1
    
19.     上上月起始 = DateSerial(Year(上上月起始), Month(上上月起始), 26)
    
20.     上上月截止 = 上月起始 - 1
    
21.    
    
22.    
    
23.     Arr = Sheets("=数据表=").Range("D6:Z" & Sheets("=数据表=").Range("D65536").End(xlUp).Row)
    
24.     Dim Brr(1 To 10000, 1 To 100)
    
25.     For i = 1 To UBound(Arr)
    
26.         rq = Arr(i, 5) '//日期
    
27.         If rq >= 上上月起始 And rq <= 截止日期 Then
    
28.             Xs = Arr(i, 9) & "|" & Arr(i, 10)
    
29.             Sl = Arr(i, 18) '//得量
    
30.             Bf = Arr(i, 19) '//百分比
    
31.             c = IIf(rq >= 上上月起始 And rq <= 上上月截止, 4, IIf(rq >= 上月起始 And rq <= 上月截止, 7, 10))
    
32.             If Not D.exists(Xs) Then
    
33.                 N = N + 1
    
34.                 D(Xs) = N
    
35.                 Brr(N, 1) = N
    
36.                 Brr(N, 2) = Arr(i, 9)
    
37.                 Brr(N, 3) = Arr(i, 10)
    
38.             End If
    
39.             p = D(Xs)
    
40.             Brr(p, c) = Brr(p, c) + 1
    
41.             Brr(p, c + 1) = Brr(p, c + 1) + Sl '//得量
    
42.             Brr(p, c + 2) = Brr(p, c + 2) + Bf '//百分比
    
43.         End If
    
44.     Next
    
45. 
    
46.     With Sheets("打印表")
    
47.         .Range("D11:AB" & .[D65536].End(xlUp).Row + 1).Delete Shift:=xlUp
    
48.          If N = 0 Then MsgBox "没有数据，未生成": Exit Sub
    
49.          With .Cells(11, "D").Resize(N, 15)
    
50.             .Value = Brr
    
51.             .Borders.LineStyle = 1
    
52.             .Font.Size = 11
    
53.             .HorizontalAlignment = xlCenter
    
54.          End With
    
55.     End With
    
56.    
    
57.     MsgBox "数据查询完毕！" & Chr(10) & _
    
58.            "    - 用时" & Format(Timer - 时间, "#0.0000") & "秒! -"
    
59.     Application.ScreenUpdating = True
    
60. End Sub

复制代码

grf1973

在原代码上改了一下。感觉用SQL会更简洁一点