主题：请帮助解决：从“日期”中提取年、月、月份、季的方法

请帮助解决：从“日期”中提取年、月、月份、季的方法。

要求

好像有点麻烦，代码如下。

 

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

代码在表DataColChanged事件中

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

谢谢，上述代码只有11月23日-11月30日之间“月”显示“0”，不是“12”.其他各月均正确。
此主题相关图片如下：132.jpg

谢谢，上述代码只有11月23日-11月30日之间“月”显示“0”，不是“12”.其他各月均正确。

 加多一个判断便可。

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

非常谢谢