主题：[求助]日期自动生成年月、年季度代码

表A有日期列A，年月列B(字符列）、年季度列C（字符列），输入日期后，如日期列A输入2015-10-12，则年月列B则自动生成：2015年10月，年季度列C则自动生：2015年4季度，请前辈老师写段代码，谢谢！

Dim d As Date = Date.Today
msgbox(Format(d, "yyyy年MM月"))
Dim str As String = Math.Ceiling(d.Month / 3) & "季度"
msgbox(format(d, "yyyy年" & str))

老师不是这个意思，如：A列2015-10-12，则B列为2015-10月，C列为2015-4季度，

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

点击浏览该文件:日期月季度.table

请再帮忙，谢谢！

datacolchanged

 

If e.DataCol.name = "A" Then
    Dim d As Date = e.NewValue
    If d = Nothing Then
        e.DataRow("b") = Nothing
        e.DataRow("c") = Nothing
    Else
        e.DataRow("b") = Format(d, "yyyy年MM月")
        Dim str As String = "第" & Math.Ceiling(d.Month / 3) & "季度"
        e.DataRow("c") = format(d, "yyyy年" & str)
    End If
End If

 

谢谢老师！