日期求助！
vba吧
全部回复
仅看楼主
level 6
三杯通大道 楼主
老哥子们求助，为啥返回天数是1，是什么原因导致的，求助！！！
2026年07月14日 01点07分 1
level 6
三杯通大道 楼主
我看都是日期类型，为啥还是1呢，是a1哪里出问题了吗
2026年07月14日 01点07分 2
level 6
三杯通大道 楼主
有老哥子帮忙看下啥原因吗
2026年07月14日 01点07分 3
level 6
三杯通大道 楼主
天数 = Application. WorksheetFunction. NetworkDays_Intl (Date, CDate (Range ("al"). Value2), 11)
2026年07月14日 01点07分 4
烟雨江南ooo
value2似乎不能表达日期和货币格式，你改成value
2026年07月14日 04点07分
三杯通大道
改过了还是不行，我用Networkdays，就可以正常得出相差日期（只不过不包含周日）
2026年07月14日 04点07分
三杯通大道
@烟雨江南ooo Value2应该是可以的吧，得到一个不带格式的值，同意CDate转换成日期
2026年07月14日 04点07分
烟雨江南ooo
@三杯通大道 可以，我用了value2没问题
2026年07月14日 05点07分
level 12
烟雨江南ooo
将就看一下，我得到的结果是15天
2026年07月14日 05点07分 5
level 6
三杯通大道 楼主
2026年07月14日 05点07分 6
level 6
三杯通大道 楼主
可能是我下的插件有问题，我下的插件才能用VBA的编译器
2026年07月14日 05点07分 7
三杯通大道
找到问题了，我的循环没有设置负步长，在预计发货日期小于系统日期时，不会进入循环判断这段日期中是否有周六
2026年07月15日 11点07分
烟雨江南ooo
这个问题好奇怪，我是觉得你那个A1单元格是不是有问题，重新找个单元格，设置好日期格式，再试一下这代码看看
2026年07月14日 07点07分
三杯通大道
@烟雨江南ooo 好像不是单元格问题[喷]，发给我朋友就能正常使用
2026年07月15日 04点07分
三杯通大道
大神现在我尝试用networkdays函数获取2个日期直间的工作日 然后通过 循环获取有几个周六 For i =
#7/1/2026#
To
#7/10/2026#
If Weekday(i) = 7 Then 周六 = 周六 + 1 next i 但是
2026年07月15日 04点07分
1