[已解决]求个日子天数的VBA

saoki98

如附件，

任意两个日期，求它们之间（包括该两日期）的总天数。

最好用VBA完成，函数也可以。

本人是菜鸟，谢谢大家帮忙！！！{:021:}

日期.zip (1.9 KB, 下载次数: 11)

2012-6-14 00:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-6-14 01:34

=DATEDIF(A2,B2,"D")+1

跳转到最佳答案楼层

ws278106483

=DATEDIF(A2,B2,"D")+1

ws278106483

附件跟上，觉得好给个最佳就好了。呵呵。

xiaoni

日期1.zip (6.36 KB, 下载次数: 6)

2012-6-14 05:29 上传

点击文件名下载附件 来个VBA的
Sub aa()
    Dim a As Date, b As Date, x As Long
    a = Range("a2")
    b = Range("b2")
    x = DateDiff("d", a, b) + 1
    MsgBox x
    Range("c2") = x
End Sub

scsys1

4楼的只能计算一行，现给一段能一点就计算许多行的代码。

1. Sub 计算()
   
2.     Dim a As Date, b As Date, c As Integer, d As Integer, i As Integer
   
3.     With Sheet1
   
4.     c = .[A65536].End(xlUp).Row
   
5.     For i = 2 To c
   
6.     a = .Cells(i, 1)
   
7.     b = .Cells(i, 2)
   
8.     d = DateDiff("d", a, b) + 1
   
9.     .Cells(i, 3) = d
   
10.     Next
    
11.     End With
    
12.     MsgBox "计算完成，请检查！", , "提示"
    
13. End Sub
    
14. 
    

复制代码

lordking

天数直接相减就行了

1. Abs(日期1-日期2)+1

复制代码