以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  年的第一天和最后一天  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129113)
--  作者：蓝蚂蚁
--  发布时间：2018/12/21 17:05:00
--  年的第一天和最后一天
Dim rknf As String =e.Form.Controls("TextBox7").Text
Dim rknf1 As Date = new Date(rknf.SubString(0,4), 1, 1)
Dim rknf2 As Date = new Date(rknf.SubString(0,4), 12, 31)
MessageBox.Show("第一天是："& rknf1 &" 最后一天是"&  rknf2 &"!", "提示")
在TextBox7输入年份，MessageBox显示该年份的第一天和最后一天，是不是上面的代码，总感觉不够严谨。谢谢！
--  作者：有点甜
--  发布时间：2018/12/21 17:07:00
--  

很正常的代码，没有不严谨。

 

你需要判断输入的年份是否正确（是否为4位的数字），不然程序会报错。