Foxtable(狐表)用户栏目专家坐堂 → [求助]DataYMD是如何计算年月日的


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

主题:[求助]DataYMD是如何计算年月日的

美女呀,离线,留言给我吧!
小巫仙
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1442 威望:0 精华:0 注册:2016/8/6 12:39:00
[求助]DataYMD是如何计算年月日的  发帖心情 Post By:2019/2/28 16:55:00 [只看该作者]

测试:
Dim y,m,d As Integer
Dim dt1 As Date = "2019-1-28"
Dim dt2 As Date = "2019-2-28"
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
dt1 = "2019-1-29"
dt2 = "2019-2-28"
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
dt1 = "2019-1-30"
dt2 = "2019-2-28"
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
dt1 = "2019-1-31"
dt2 = "2019-2-28"
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
dt1 = "2020-1-29"
dt2 = "2020-2-29"
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
dt1 = "2020-1-30"
dt2 = "2020-2-29"
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
dt1 = "2020-1-31"
dt2 = "2020-2-29"
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")

结果:
0年1月0日
0年1月0日
0年1月0日
0年1月0日
0年1月0日
0年1月0日
0年1月0日


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/28 17:51:00 [只看该作者]

 

结束时间是月末的时候,只要大于等于月末的日期,都算作1个月

 

 


 回到顶部