Foxtable(狐表)用户栏目专家坐堂 → 关于日期型字段的计算请教


  共有2825人关注过本帖树形打印复制链接

主题:关于日期型字段的计算请教

帅哥哟,离线,有人找我吗?
aoyanghongwei
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:47 积分:521 威望:0 精华:0 注册:2017/1/2 21:35:00
关于日期型字段的计算请教  发帖心情 Post By: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,如何实现呢?请教!!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部