以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当前日期生成  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50502)
--  作者：Lianyou
--  发布时间：2014/5/7 20:12:00
--  当前日期生成

当前日期生成，比如：2014-02-15至07-10生成“2014年(春)”,2014-07-16至2015-02-14生成“2014年(秋)”。求代码？谢谢！

[此贴子已经被作者于2014-5-7 20:14:38编辑过]
--  作者：有点甜
--  发布时间：2014/5/7 20:32:00
--  

 呃，datacolchanged事件，改改用

 

 写错了......

[此贴子已经被作者于2014-5-7 20:39:08编辑过]
--  作者：有点甜
--  发布时间：2014/5/7 20:39:00
--  

 想一想，二楼的不对，再改一下。

 

If e.DataCol.name = "日期" Then
    Dim d As Date = e.DataRow("日期")
    Dim d1 As Date = new Date(d.Year, 2, 15)
    Dim d2 As Date = new Date(d.Year, 7, 10)
    Dim d3 As Date = new Date(d.Year, 7, 16)
    Dim d4 As Date = new Date(d.Year, 12, 31)
    Dim d5 As Date = new Date(d.year+1, 2, 14)
    If d >= d1 AndAlso d <= d2 Then
        e.DataRow("学期") = d.Year & "年(春)"
    Else If d >= d3 AndAlso d <= d4 Then
        e.DataRow("学期") = d.Year & "年(秋)"
    Else If d > d4 AndAlso d <= d5 Then
        e.DataRow("学期") = (d.Year-1) & "年(秋)"
    End If
End If
--  作者：Lianyou
--  发布时间：2014/5/7 20:44:00
--  

谢谢
--  作者：lsy
--  发布时间：2014/5/7 20:45:00
--  
If e.DataCol.Name = "日期" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    Dim rq As Date = e.DataRow(e.DataCol)
    If Format(rq,"MM-dd") >= "02-15" AndAlso Format(rq,"MM-dd") <= "07-10" Then
        e.DataRow("学期") = rq.Year & "年(春)"
    ElseIf Format(rq,"MM-dd") >= "07-16" OrElse Format(rq,"MM-dd") <= "02-14" Then
        e.DataRow("学期") = rq.Year & "年(秋)"
    End If
End If
[此贴子已经被作者于2014-5-7 20:45:44编辑过]