- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]日期自动生成年月、年季度代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75664)
-- 发布时间：2015/10/12 14:55:00
-- [求助]日期自动生成年月、年季度代码
表A有日期列A，年月列B(字符列）、年季度列C（字符列），输入日期后，如日期列A输入2015-10-12，则年月列B则自动生成：2015年10月，年季度列C则自动生：2015年4季度，请前辈老师写段代码，谢谢！
-- 发布时间：2015/10/12 15:05:00
--
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))
-- 发布时间：2015/10/12 15:50:00
--
老师不是这个意思，如：A列2015-10-12，则B列为2015-10月，C列为2015-4季度，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日期月季度.table |
请再帮忙，谢谢！
-- 发布时间：2015/10/12 15:57:00
--
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
-- 发布时间：2015/10/12 16:13:00
--
谢谢老师！