编程的灵活与变通

编程要注意灵活的运用和变通的思考。

上周的出生日期的例子中，自己的一段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：                '对错误的处理

        ······

         ······