以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何判断年份为润年?谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19365) |
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/7 22:55:00 -- 如何判断年份为润年?谢谢 如何判断年份为润年?谢谢 |
||||
-- 作者:狐狸爸爸 -- 发布时间:2012/5/7 22:57:00 -- http://www.foxtable.com/help/topics/1337.htm
|
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/8 0:57:00 --
|
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/8 0:59:00 -- Dim A As Date = e.Form.Controls("年度").Value Dim Leap As Boolean |
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/8 8:52:00 -- 没搞得定 |
||||
-- 作者:mr725 -- 发布时间:2012/5/8 9:02:00 -- Dim A As String = e.Form.Controls("TextBox1").Value Dim Leap As Boolean If Leap = True e.Form.Controls("TextBox3").Value = "是闰年" End If |
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/8 9:14:00 -- 谢谢 |
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/20 0:27:00 -- For Each dr As DataRow In DataTables("表A").DataRows Dim s As String = Tables("表A").Current("年度") Dim Leap As Boolean Leap = Date.IsLeapYear(S) If Leap = True dr("闰年判断")="闰年" Else dr("闰年判断")="平年" End If Next |
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/20 0:28:00 -- 想一次性全列判断没有实现得到 |
||||
-- 作者:雨中的泪 -- 发布时间:2012/5/20 9:08:00 -- |