以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于日期型字段的计算请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160524)
--  作者：aoyanghongwei
--  发布时间：2021/2/5 10:36:00
--  关于日期型字段的计算请教

dateYMD(dt1, dt2, y, m, d)

dt1: 第一个日期
dt2: 第二个日期
y:   整数型变量，用于保存两个日期之间相差的年数
m:   整数型变量，用于保存两个日期之间相差的月数
d:   整数型变量，用于保存两个日期之间相差的日数

示例

Dim y,m,d As Integer
Dim dt1 As Date = #2/28/2012#
Dim dt2 As Date = #2/22/2016#
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")



如上面代码所示，我们可能计算出两个日期相差的天数，但如何返回相差的具体月、日是多少呢？

如 2021-1-29 和 2021-2-2之音相差的天数是：2021-1-30，2021-1-31，2021-2-1，如何实现呢？请教！！
--  作者：有点蓝
--  发布时间：2021/2/5 10:39:00
--  
Dim dt1 As Date = #1/29/2021#
Dim dt2 As Date = #2/2/2021#
dt1 = dt1.AddDays(1)
Do While dt1 < dt2
    Output.Show(dt1)
    dt1 = dt1.AddDays(1)
Loop