测试: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日