- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请帮助解决：从“日期”中提取年、月、月份、季的方法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24434)
-- 发布时间：2012/10/13 23:28:00
-- 请帮助解决：从“日期”中提取年、月、月份、季的方法
请帮助解决：从“日期”中提取年、月、月份、季的方法。
要求
-- 发布时间：2012/10/17 10:56:00
--
好像有点麻烦，代码如下。
If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("日期") Then
e.DataRow("年") = Nothing
e.DataRow("月") = Nothing
e.DataRow("季") = Nothing
Else
Dim d As Date = e.NewValue
If d.Month = 12 And d.day >= 23 Then
e.DataRow("年") = d.Year +1
Else
e.DataRow("年") = d.Year
End If
If d.Day < 23 Then
e.DataRow("月") = d.Month
Else
e.DataRow("月") = (d.Month + 1) Mod 12
End If
If d.day > 22 Then
e.DataRow("季") = DatePart("q",d.AddDays(10))
Else
e.DataRow("季") = DatePart("q",d)
End If
End If
End If
-- 发布时间：2012/10/17 10:57:00
--
代码在表DataColChanged事件中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目19.table |
-- 发布时间：2012/10/25 18:02:00
--
谢谢，上述代码只有11月23日-11月30日之间“月”显示“0”，不是“12”.其他各月均正确。
此主题相关图片如下：132.jpg
-- 发布时间：2012/11/8 20:44:00
-- 回复：（czy）代码在表DataColChanged事件中 ...
谢谢，上述代码只有11月23日-11月30日之间“月”显示“0”，不是“12”.其他各月均正确。
-- 发布时间：2012/11/8 21:14:00
--
加多一个判断便可。
If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("日期") Then
e.DataRow("年") = Nothing
e.DataRow("月") = Nothing
e.DataRow("季") = Nothing
Else
Dim d As Date = e.NewValue
If d.Month = 12 And d.day >= 23 Then
e.DataRow("年") = d.Year +1
Else
e.DataRow("年") = d.Year
End If
If d.Day < 23 Then
e.DataRow("月") = d.Month
Else If d.Month = 11 Then
e.DataRow("月") = 12
Else
e.DataRow("月") = (d.Month + 1) Mod 12
End If
If d.day > 22 Then
e.DataRow("季") = DatePart("q",d.AddDays(10))
Else
e.DataRow("季") = DatePart("q",d)
End If
End If
End If
-- 发布时间：2012/11/8 21:47:00
--
非常谢谢