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


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

主题:[求助]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日


 回到顶部