合同期为2021-03-01至2025-08-31，如何编程自动得出每年合同内是多少个月。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合同期为2021-03-01至2025-08-31，如何编程自动得出每年合同内是多少个月。

共有2053人关注过本帖树形打印复制链接主题：合同期为2021-03-01至2025-08-31，如何编程自动得出每年合同内是多少个月。

y2287958

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4874 积分：35378 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2025/2/28 16:48:00 [显示全部帖子]

尽信deepseek，有时会误入歧途图片点击可在新窗口打开查看

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4874 积分：35378 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2025/3/12 16:08:00 [显示全部帖子]

Dim dt1 As Date = #3/1/2021#

Dim dt2 As Date = #8/31/2025#

Dim lst As New List(Of String)({dt1.Year & "," & 12 - dt1.Month + 1})

For 年 As Integer = dt1.Year + 1 To dt2.Year - 1

lst.Add(年 & ",12")

lst.Add(dt2.Year & "," & dt2.Month)

Output.Show(String.Join(vbcrlf, lst))

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：4874 积分：35378 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2025/3/15 23:56:00 [显示全部帖子]

真是服了，两个时间不会先判断一下吗？

主题：合同期为2021-03-01至2025-08-31，如何编程自动得出每年合同内是多少个月。