以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何判断年份为润年?谢谢  (http://www.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
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:雨中的泪
--  发布时间:2012/5/8 0:59:00
--  
 

Dim A As Date = e.Form.Controls("年度").Value

Dim Leap As Boolean
Leap = Date.IsLeapYear(A)


--  作者:雨中的泪
--  发布时间: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
Leap = Date.IsLeapYear(A)

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
--  
想一次性全列判断没有实现得到