专家坐堂-[求助]DataYMD是如何计算年月日的Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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日