以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]季度  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106496)

--  作者:江南小镇
--  发布时间:2017/9/10 14:25:00
--  [求助]季度
老师,季度怎样设置。

If e.DataCol.name = "日期" Then
   Dim dat As Date = e.DataRow("日期")
   e.DataRow("年") = dat.Year
   e.DataRow("月") = dat.Month
   e.DataRow("日") = dat.day
   e.DataRow("季") = ...............
End If

--  作者:y2287958
--  发布时间:2017/9/10 14:38:00
--  
跟月份走
--  作者:sjx71
--  发布时间:2017/9/10 14:58:00
--  
 e.DataRow("季") = (e.DataRow("月") - 1) \\ 3 + 1


--  作者:有点甜
--  发布时间:2017/9/10 15:19:00
--  
以下是引用sjx71在2017/9/10 14:58:00的发言:
 e.DataRow("季") = (e.DataRow("月") - 1) \\ 3 + 1

 

e.DataRow("季") = (dat.Month - 1) \\ 3 + 1


--  作者:江南小镇
--  发布时间:2017/9/10 20:12:00
--  
谢谢各位老师