用日期函数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'日'