Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期


  共有1661人关注过本帖树形打印复制链接

主题：[求助]日期
帅哥哟，离线，有人找我吗？
苏州老街
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4151 威望：0 精华：0 注册：2016/10/19 16:45:00 		[求助]日期  发帖心情 Post By：2017/3/2 19:28:00 [显示全部帖子]

老师，我想把日也拆分出来。
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("年") = Nothing
        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 + 0) 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
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4151 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/3/2 20:20:00 [显示全部帖子]

老师，数据前面多了个（-）负数。



图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4151 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/3/2 20:30:00 [显示全部帖子]

老师，"日“列数据不对。11变19了

 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4151 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/3/2 20:38:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：图像 2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：646 积分：4151 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2017/3/2 21:09:00 [显示全部帖子]

老师，那上面的代码要全部修改吗？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询