用日期函数day()可获得当前日期,time()可获得当前系统时间.
创新互联是一家专业的成都网站建设公司,我们专注网站设计、成都网站设计、网络营销、企业网站建设,外链,1元广告为企业客户提供一站式建站解决方案,能带给客户新的互联网理念。从网站结构的规划UI设计到用户体验提高,创新互联力求做到尽善尽美。
dim CurDay as string
dim CurTime as string
curday=day()
curtime=time()
Label1.Caption = Date
就能在Label16显示当前日期
now 这个函数可以获得当前系统时间(包括年月日,小时分钟秒)
而
year()
month()
day()
等等则可以从now返回的值中分别提取年,月,日的信息
DateTime是个日期时间类型,可以把变量定义成这个类型
DateAndTime是个模块(module),里边包含一些静态日期计算方法和函数,比如DateAdd,DateDiff等等,可以这样使用DateAndTime.DateAdd(
可以访问注册表HKEY_CURRENT_USER\Control Panel\International下面的一些键值
如sShortDate键值表示的是短日期sLongDate表示的是长日期
中文下的短日期是 yyyy-M-d
中文下的长日期是 yyyy'年'M'月'd'日'