编程要注意灵活的运用和变通的思考。
上周的出生日期的例子中,自己的一段selct case语句:
Select Case a
Case 1
lblweekday.Caption = "星期日"
Case 2
lblweekday.Caption = "星期一"
Case 3
lblweekday.Caption = "星期二"
Case 4
lblweekday.Caption = "星期三"
Case 5
lblweekday.Caption = "星期四"
Case 6
lblweekday.Caption = "星期五"
Case 7
lblweekday.Caption = "星期六"
End Select
被S13的一个函数代替:lblweekday.Caption = "星期" & Mid("日一二三四五六", a, 1)之后又被同学的一个weekdayname函数代替,妙哉···
从这可以看出自己《VB程序设计》书中的基础知识理解的不够扎实,而且不系统,应该把与字符串有关的函数都记住,遇到相关问题找一个最优的函数,如果没有在自己创造函数或方法来实现。
1、字符串类型转化为日期类型:
b = Format(txtInput.Text, "yy/mm/dd") '对字符进行规划
b = CDate(txtInput.Text) '一个文本框
b = CDate(txtYear.Text"-"txtMonth.Text"-"txtDay.Text '三个文本框
2、VB的日期范围:1899·12·31---9999·12·31
3、闰年条件:year Mod 4=0 And year Mod 100<>0 And year Mod 400=0
4、On Error Goto Er: '在下述语句中捕获错误
·····
·····
·····
Er: '对错误的处理
······
······