实训项目3

实训项目3

 

实训目标

 

1、操作变量

l         日期变量

l         类型转换

l         CDate函数

l         CStr函数

l         IsDate函数

l         IsNumeric函数

2、使用控件

l         按钮

l         标签

l         单选按钮

l         GroupBox

3、使用属性

l         Name

l         Text

l         Tab Index

l         大小

l         字体

应用程序概述

 

某图书馆管理系统要求实现如下功能：

1、  对于借书的读者，系统可以根据“借书日期”和“借书期限”来计算该读者最迟还书的日期。（例如：如果借书日期是 2005-9-1，借书期限是1个月，那么“应还日期”应该是 2005-10-1）

2、  对于还书的读者，计算该读者从借书日期之日起，到还书日期共经过了多少天，从而可以判断该读者是否超过了还书期限。

编程思路

 

设计如下窗体

 

该窗体实现的功能如下：

一、借书

 

1、主要功能：

（1）借书部分

用户输入“借书日期”à 输入“借书期限”à 选择“天”或者“月”或者“年” à 在“应还日期”中显示结果

（提示：在单选按钮的Click事件中使用CDate函数、CStr函数 以及AddDays、AddMonths或AddYears方法）

（2）还书部分

用户输入“借书日期”à 输入“还书日期”à 在“借出天数”中显示结果

（提示：在“还书日期”文本框的 Leave 事件中调用DateTime实例的Subtract方法，该方法返回一个TimeSpan实例；再调用该TimeSpan实例的Days属性以显示天数）

2、附加功能

（1）对“借书日期”及“还书日期”文本框进行输入检查，当该文本框失去焦点（用户按下了tab键或者光标定位到其他文本框中）时，检查输入的是否是日期值（提示：在该文本框的 Leave 事件中使用IsDate函数），如果不是，则弹出对话框提示错误信息：

（2）同样对“借书期限”文本框进行输入检查，如果用户输入的不是一个数字，则弹出错误提示信息（提示：在该文本框的 Leave 事件中使用IsNumeric函数）

 

 

感兴趣的同学可以自己扩充该程序的功能，例如使用DateTimePicker控件来获得一个日期

 

 

课外练习：自己设计一个窗体，用户在窗体中输入他的生日，即可计算出他的当前实际年龄。

计算年龄的函数如下

    Function CalcAge(ByVal dteBirthdate As Date) As Long

        Dim lngAge As Long

 

        ' 确认传递的值是一个日期。

        If Not IsDate(dteBirthdate) Then

            dteBirthdate = Today

        End If

 

        ' 确认生日不是未来的某一天。

        ' 如果是，则使用今天的日期。

        If dteBirthdate > Today Then

            dteBirthdate = Today

        End If

 

        ' 计算今天和出生日之间的年数差距。

        lngAge = DateDiff("yyyy", dteBirthdate, DateTime.Today)

        ' 如果今年生日还没有到，则从年龄减去 1。

        If DateSerial(Today.Year, dteBirthdate.Month, dteBirthdate.Day) > Today Then

            lngAge = lngAge - 1

        End If

        CalcAge = lngAge

    End Function