VBA 函数计算date之间的天数工作日

Function daydif(x As Range, y As Range)
     
    Dim date1, date2 As Date
    date1 = x
    date2 = y
     
    dif = 0
    Do
        If (date1 >= date2) Then
            Exit Do
        End If
         
        date1 = date1 + 1
        t1 = Weekday(date1)
        If (t1 < 7 And t1 > 1) Then
            dif = dif + 1
        End If
    Loop
    daydif = dif
     
End Function

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值