你的问题真是我需要的,我收藏了,
date型变量及函数的用法,这里够详细了,好好研究一下啊! 我的收藏,参考!
①.、DATE型变量及其相关函数.
Dim d As Date
DateSerial函数可以把年、月、日的数字组合成一个Date值.TimeSerial函数可把小时、分、秒的数字组合成一个Date值.且两函数可以叠加.
而DateValue 和TimeValue 函数则可将代表日期和时间的字符串转化为Date型,并且也可以叠加.
Format函数可按预定的格式显示或打印一个Date变量.如：
Format函数也允许你自己规定显示格式.如：
以以上日期为例,如想显示其中的一部分信息可使用以下函数：
Now 函数可返回今天的日期及时间.如：
Private Sub Form_Click()
d = Now
Print d
End Sub
灵活地应用以上的函数,可以大大地简化你的程序.例如想计算10000秒等于几小时几分几秒可写为：
d = TimeSerial(0, 0, 10000)
Timer控件是一个奇特的控件.Timer 控件会在固定时间间隔中运行Timer事件.此间隔是由Interval属性决定的,其单位为千分之一大者秒.但不要以为将其值设为0事件就可不间断地运行了.结果恰恰相反,事件将一次也不运行.同时还要注意变量的声明.如：
Private Sub Timer1_Timer()
Dim a As Integer
a = a ＋ 1
Print a
试试看,其结果是完全不同的.
当需要用户输入时间时,为避免出现错误的时间,可以使用日历控件.它只允许用户在日历表中选择日期,避免了错误的发生.
Private Sub Form_Load()
Dim t As Integer
Form1.Show
d = TimeSerial(0, 0, t)
date( ) 函数
示例 请参阅
语法
DATE([nYear, nMonth, nDay])
返回值类型
日期型
参数
nYear
nMonth
nDay
说明
Visual FoxFro 命令或函数都不能直接改变系统日期.
time( ) 函数
请参阅
TIME([nExpression])
nExpression
.
year(date)
years = split(data,"-")(0)