Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：计算几个工作日（月）之后的日期代码如何写
1楼
nmxmnxf 发表于：2023/11/8 12:01:00
小白请教：我有一个日期列，想计算该日期之后5个工作日（或几个月后）是什么日期的代码如何写？
2楼
有点蓝 发表于：2023/11/8 12:14:00
比如：

Dim n As Integer = 5
Dim d As Date = Date.Today
Do While n > 0
    d = d.AddDays(1)
    Do While d.DayOfWeek = 0 OrElse d.DayOfWeek = 6
        d = d.AddDays(1)
    Loop
    n = n - 1
Loop
MsgBox(d)
共2 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01758 s, 2 queries.