excel自动取日历天数

excel中的日期实质上是一个数值，数字“1”为“1900年1月1日”，往后每加1天，数字加1，即“2”为“1900年1月2日”，这一点可以在单元格中输入一个数字，然后将单元格格式设置为日期来验证下。

1、计算两个日期之间的天数，可以用较大的日期减较小的日期，如下图

如果单元格显示的不是天数，而是日期或别的格式，将单元格格式设置为常规即可。

2、有时候有些特殊要求，比如上边例子中，如果没有结束日期，则按当前日期来计算天数。

TODAY()返回当前日期（其实是电脑系统的日期，只要电脑上的日期没错就行），3、MIN(TODAY(),B2)返回今天日期与B2日期中较小的日期。

另外还有一个计算天数的公式=DATEDIF(A2,B2,"D")

4、如果是没有结束日期就不计算的话，公式为=IF(B2,B2-A2,"")

Sub abc()

Dim a, b As String

a = Format(Date, "yyyy年m月d日") '当前年月日

b = Format(Time, "hh:mm") '当前时间

MsgBox a & b '显示日期时间

End Sub

是这个意思吗？又修改了一下，看看吧

Sub 占位计划()

Dim jj As Integer

Sheet1Cells(2, 10) = CStr(Format(Date, "YYYY-MM-DD"))

For jj = 2 To 100

If Val(Sheet1Cells(jj, 11)) > 0 Then 'K 列有天数，就填日期

Sheet1Cells(jj, 12) = CStr(Format(CDate(Sheet1Cells(jj, 10)) + Val(Sheet1Cells(jj, 11)), "YYYY-MM-DD"))

Sheet1Cells(jj + 1, 10) = CStr(Sheet1Cells(jj, 12))

Sheet1Cells(jj, 12)FontColor = vbRed

Sheet1Cells(jj, 10)FontColor = vbRed

Else

Sheet1Cells(jj, 10) = "" '清除掉多自动填写的多的一行

Exit For

End If

Next jj

MsgBox "计划占位完毕！", vbInformation, ""

End Sub

' 按Alt+F11 将上面的这段名称，改的跟你的按钮名称一致即可。 sheet1表名可以做活的，就不费神弄了。

以上就是关于excel自动取日历天数全部的内容，包括:excel自动取日历天数、EXCEL VBA如何获取系统时间（年月日时分）、求助：Excel VBA日期加天数循环计算等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！