VB做电子报时钟

模拟电子钟 带语音报时功能

1、 显示时间 2、语音报时 3、定时报警 4、定时关机

同时我还将在文章中穿插介绍VB提供的绘图方法以及一些实用技巧，下面我们就开始吧。

一、如何显示时间

(1) Visual Basic时间日期函数介绍

让我们先来看看怎样实现显示时间吧。在windows中给我们提供了一系列通用控件，而且各种编程工具又在这个基础上，给我们提供了更多的选择。不同的控件，有不同的作用，但就显示信息来说，主要有textbox，Lable等控件。在这里我们选择Lable控件来显示时间。

那么怎样获取时间呢？vb中给我们提供了以下函数：

函数名 函数功能 语法结构

Date 函数 返回包含系统日期的Variant(Date) 。 Date DateAdd函数 返回包含一个日期的Variant(Date) ，这个日期还加上了一段时间间隔。 DateAdd(interval,number,date)

DateDiff函数 返回Variant(Long)的值，表示两个指定日期间的时间间隔数目。 DateDiff (interval,date1,date2,firstdayofweek [，firstweekofyear])

DatePart函数 返回一个包含已知日期的指定时间部分的Variant(Integer) DatePart(interval,date[，firstdayofweek][，firstweekofyear ] ) DateSerial函数 返回包含指定的年月日的Variant(Date) DateSerial( year ，month ，day ) DateValue函数 返回一个Variant(Date) DateValue(Date) Day函数 返回一个Variant(Integer) ，其值为1到31之间的整数，表示一个月中的某一日 Day(Date)

Hour函数 返回一个Variant(Integer) ，其值为0到23之间的整数，表示一天之中的某一个钟点 Hour(time)

Minute函数 返回一个Variant(Integer) ，其值为0到59之间的整数，表示一个小时中的某一分钟 Minute(time) Now函数 返回一个Variant(Date) ，根据计算机系统设置的日期和时间来指定日期和时间 Now

Second函数 返回一个Variant(Integer) ，其值为0到59之间的整数，表示一分钟之内的某一秒钟 Second(time)

Time函数 返回一个指明当前系统时间的Variant(Date) Time Time语句 设置系统时间 Time = time

Timer函数 返回一个Single，代表从午夜开始到现在所经过的秒数 Timer TimeSerial函数 返回一个Variant(Date) ，包含具有现在时、分、秒的时间。 TimeSerial(hour，minute，second) TimeValue函数 返回一个包含时间的Variant(Date) TimeValue(time)

Weekday函数 返回一个Variant(Integer) ，包含一个整数，代表某个日期是星期几 Weekday(date[，firstdayofweek]) Year函数 返回一个Variant(Integer) ，包含表示年份的整数 Year(Date)