根据系统日期生存 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据系统日期生存

共有3853人关注过本帖树形打印复制链接主题：根据系统日期生存

Bin

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

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/14 15:12:00 [显示全部帖子]

Dim d As Date = Date.Today

msgbox(d.month)

If d.Month >= 2 And d.Month <=7 Then

Tables("缴学费信息").Current("学期")= d.Year & "年(春)"

Else If d.Month = 1 Then

Tables("缴学费信息").Current("学期")= (d.Year-1) & "年(秋)"

Else If d.Month > 7 Then

Tables("缴学费信息").Current("学期")= d.Year & "年(秋)"

End If

行何来的text 呢

[此贴子已经被作者于2013-12-14 15:23:12编辑过]

主题：根据系统日期生存