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

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

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