求助：如何计算指定日期到当月月底的天数

杨应

如标题，如何在vba中计算指定日期到当月月底的天数，谢谢各位大神

shiruiqiang

datediff("d",now(),月底)，手机打字
要自动求出当月月底的话，还要判断是否闰月，是否属于1、3、5、7、8、10、12月

gwjkkkkk

Sub nDay()
    Dim DateStr As Byte, mydte As Date
    mydte = #2/28/2023#
    DateStr = Day(DateSerial(Year(mydte), Month(mydte) + 1, 0)) - Day(mydte) + 1
    MsgBox "共有" & DateStr & "天"
End Sub

wanghan519

1. =DATEDIF(NOW(),EOMONTH(NOW(),0),"D")

复制代码

taller

杨应

shiruiqiang 发表于 2023-6-3 11:16
datediff("d",now(),月底)，手机打字
要自动求出当月月底的话，还要判断是否闰月，是否属于1、3、5、7、8 ...

和我的需要有点差异，谢谢帮忙，

杨应

gwjkkkkk 发表于 2023-6-3 11:49
Sub nDay()
    Dim DateStr As Byte, mydte As Date
    mydte = #2/28/2023#

符合我的需要，稍微改了下就解决了，谢谢帮忙，再次感谢

杨应

taller 发表于 2023-6-3 12:11

符合我的需要，稍微改了下就解决了，谢谢帮忙，再次感谢