VB时间、日期处理函数

1、VB 时间、日期处理函数1-定义日期dim dat as datedat=#10:10:10#dat=#2012/12/12 10:10:10#2-日期组合dat = DateSerial(1999, 5, 23) TimeSerial(11, 45, 34)dat= DateValue(“1999/ 5/ 23”) TimeValue(“11: 45: 34”)3-日期相加DateAdd(interval, number, date)4-日期相减datadiff("n",#10:10:10#,#11:11:11#)Dim d1, startdate, enddate, b

2、uf As DateX_BASE_TIME =DateValue(DTPicker1.Value) + TimeValue(Combo3.Text & ":" & Combo2.Text & ":00")startdate = Format$(X_BASE_TIME, "yyyy/mm/dd hh:mm:ss")d1 = DateAdd("n", 5, X_BASE_TIME)buf = Format$(d1, "yyyy/mm/dd hh:nn:ss")'d1

3、= X_BASE_TIME + TimeValue("00:05:00")enddate = Format$(buf, "yyyy/mm/dd hh:nn:ss")函数名函数功能语法结构DATE 函数返回包含系统日期的VARIANT(DATE) 。DATEDATEADD函数返回包含一个日期的VARIANT(DATE) ，这个日期还加上了一段时间间隔。DateAdd(interval,number,date)DateDiff函数返回Variant(Long)的值，表示两个指定日期间的时间间隔数目。DateDiff (interval,date1,date2

4、,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)

5、Hour函数返回一个Variant(Integer) ，其值为0到23之间的整数，表示一天之中的某一个钟点Hour(time)Minute函数返回一个Variant(Integer) ，其值为0到59之间的整数，表示一个小时中的某一分钟Minute(timeNow函数返回一个Variant(Date) ，根据计算机系统设置的日期和时间来指定日期和时间NowSecond函数返回一个Variant(Integer) ，其值为0到59之间的整数，表示一分钟之内的某一秒钟Second(time)Time函数返回一个指明当前系统时间的Variant(Date)TimeTime语句设置系统时间Time =

6、 timeTimer函数返回一个Single，代表从午夜开始到现在所经过的秒数TimerTimeSerial函数数 返回一个Variant(Date) ，包含具有现在时、分、秒的时间。TimeSerial(hour，minute，second)TimeValue函数返回一个包含时间的Variant(Date)TimeValue(time)Weekday函数返回一个Variant(Integer) ，包含一个整数，代表某个日期是星期几Weekday(date，firstdayofweek)Year函数返回一个Variant(Integer) ，包含表示年份的整数Year(Date)编程中常常会与

7、时间打交道，VB编程自然也不例外。以下就谈谈我在这方面的一点经验。VB中提供了很多变量类型，DATE型就是专门用了存储时间的。1、DATE型变量及其相关函数。在内部，一个Date占8个字节的内存，你可以方便地用它来存储日期和时间。给Date变量赋值是很容易的。但请保证输入顺序与系统默认的时间表示顺序相同。例如：Dim d As Dated = 5/23/99 11:45:34 AMDateSerial函数可以把年、月、日的数字组合成一个Date值。TimeSerial函数可把小时、分、秒的数字组合成一个Date值。且两函数可以叠加。d = DateSerial(1999, 5, 23) Tim

8、eSerial(11, 45, 34)而DateValue 和TimeValue 函数则可将代表日期和时间的字符串转化为Date型，并且也可以叠加。d = DateValue(“1999/ 5/ 23”) TimeValue(“11: 45: 34”)Format函数可按预定的格式显示或打印一个Date变量。如：Print Format(d, “general date”) 99523 11:45:34Print Format(d, “long date”) 1999年5月23日Print Format(d, “medium date”） 990523Print Format(d, “shor

9、t date”) 99523Print Format(d, “long time”) 11:45:34Print Format(d, “medium time”) 11:45 AMPrint Format(d,“short time”) 11:45Format函数也允许你自己规定显示格式。如：Print Format(d, “mmmm”) may 产生日期中月份的英文以以上日期为例，如想显示其中的一部分信息可使用以下函数：Print Month(d) 5Print Day(d) 23Print Year(d) 1999Print Hour(d) 11Print Minute(d) 45Prin

10、t Second(d) 34Print WeekDay(d)1 Weekday 提供了一组内部常量，vbSunday代表1，直到 vbSaturday代表7。Now 函数可返回今天的日期及时间。如：Private Sub Form_Click()Dim d As Dated = NowPrint dEnd Sub灵活地应用以上的函数，可以大大地简化你的程序。例如想计算10000秒等于几小时几分几秒可写为：Private Sub Form_Click()Dim d As Dated = TimeSerial(0, 0, 10000)Print dEnd Sub 结果为2:46:40。2、与时间相

11、关的常用控件。Timer控件是一个奇特的控件。Timer 控件会在固定时间间隔中运行Timer事件。此间隔是由Interval属性决定的，其单位为千分之一秒。但不要以为将其值设为0事件就可不间断地运行了。结果恰恰相反，事件将一次也不运行。同时还要注意变量的声明。如：Private Sub Timer1_Timer()Dim a As Integera = a 1Print aEnd SubDim a As IntegerPrivate Sub Timer1_Timer()a = a 1Print aEnd Sub试试看，其结果是完全不同的。当需要用户输入时间时，为避免出现错误的时间，可以使用日

12、历控件。它只允许用户在日历表中选择日期，避免了错误的发生。3、记录时间的API函数。GetTickCount Windows API函数可返回 Windows 启动以来消失的毫秒数。其精度高于VB的Timer 函数。且Timer 函数会在午夜清零，而GetTickCount 函数只有当机器连续使用49.7天后才返回零。这为我们编程提供了很大的方便。例如想知道你的电脑连续工作多久了，可新建一工程，然后添加以下代码：Private Declare Function GetTickCount Lib “kernel32" () As LongPrivate Sub Form_Load()D

13、im d As DateDim t As IntegerForm1.Showt = GetTickCount 1000d = TimeSerial(0, 0, t)Print dEnd Sub- CDate()函数将得到地时间字符串进行转换为date类型地值，然后在插入到数据库中，开端在一台电脑上运行并没有错。转换的结果与电脑中时间的格式设置有关系统设置相关开端设置掌握面板区域和语言选项区域选项自定义时间（日期）可用进行二次转换：format(cdate(),"YYYY-MM-DDHH:MM:SS")1.Cdate(日期表达式)将日期表达式转换成日期类型的数据。日期表达式是

14、任何可以解释成日期的表达式，包含日期文字，可以看作日期的字符串以及从函数返回的日期。比如:myDate = CDate("99-5-20") ，这样的日期表达式必须加双引号，否则结果不可预料。CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置，则不能正确判断年、月、日的顺序。 2.Now()返回当前计算机系统设置的日期和时间。3.Year(日期表达式)返回表示年份的整数。比如:Year("00-6-15") = 20004.Month(日期表达式)返回 1 到 12 之间的整数，表示一年中的某月。比如:Month(&qu

15、ot;00-6-15") = 65.DateAdd(interval, number, date)返回一个日期，这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期;或者计算距现在为 45 分钟的时间。DataAdd 函数参数 参数 说明 interval 字符串表达式，是所要加上去的时间间隔的单位。 number 数值表达式，是要加上的时间间隔的数目。其数值可以为正数(得到未来的日期)，也可以为负数(得到过去的日期)。 date 日期表达式，这一日期还加上了时间间隔。 interval 参数设定值 值 说明 yyyy 年 q 季 m 月 y 一年的日数 d

16、 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 比如:DateAdd("d",10,"2000-6-18") = 2000-06-28DateAdd("m",-1,"2000-6-18") = 2000-05-18=DateDiff 函数解释=DateDiff (I , D1 , D2,FW,FY)计算两个日期之间的期间?I ：设定两个日期之间的期间计算之单位。譬如 >I="m" 表示计算的单位为月。 >I 的设定值如：yyyy > Year 年q Quarter 季

17、m Month 月d Day 日w Weekday 星期h Hour 时n Minute 分 ·这里应该用n代表，很多书说m其实是错的·s Second 秒D1 ,D2：计算期间的两个日期表达式，若 >date1 较早，则两个日期之间的期间结果为正值；若 >date2 较早， 则结果为负值。FW ：设定每周第一天为星期几， 若未设定表示为星期天。 >FW 的设定值如下：0 使用 >API 的设定值。1 星期天2 星期一3 星期二4 星期三5 星期四6 星期五7 星期六FY ：设定一年的第一周， 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下：0 使用 >API 的设定值。1 一月一日那一周为一年的第一周2 至少包括四天的第一周为一年的第一周3 包括七天的第一周为一年的第一周datediff("h&