msgbox date
msgbox time
看看就知道了
msgbox time
看看就知道了
解决方案 »
- 水晶报表 日期
- 将vb软件改为vb.net软件,难不难?改写的过程、方法、语句等应注意哪些不同,谁能提供改写的方法和步骤。我的vb软件有62个过程函数,有23
- 使用*.exe.manifest后遇到的问题
- 请问打包后Support文件夹是否有用?
- 怎么样能使用SetSysColors函数只修改指定窗体标题栏的颜色,不改变整个系统标题栏的颜色?
- 请教个问题,请帮忙。
- 如何用程序实现access表中符合条件的几条记录另存为一个新的access文件?
- 求大神赐教vb怎样写标准dll,在网上搜了一天了没弄成,各种错误提示
- 哪儿有动态运行库?(我是菜鸟)
- 怎么人越来越少了 ,难道VB真的不行了吗?微软出VB.Net了,VB程序员真的没有前途吗 ?希望大家讨论
- 关于在com中引用asp组建的问题!
- 如何在VB6.0中自如的操作EXCEL表中的数据.急!急!急!
msgbox date
msgbox time
dim mytime as date
读取时间:
mytime=time
设置时间
time=mytime另date函数用法一样。返回系统日期
now函数返回当前的日期和时间,但只读。
dim MyDate as date
MyDate =now
如果要求显示的格式,可以用format(MaDate,"yyyy-mm-dd")……来规定显示格式。
format(now,"hh:mm:ss",AM/PM)
其中,AM/PM是可选的.
time
date
如果想单独得到年,月...的话可以用year(date),month(date).....
MyTime=Time() '返回系统当前时间
MyDate=Date() '返回系统当前日期
MyYear=year() '返回系统当前年
mymonth=month() '返回系统当前月份
1、Date与Date$
功能:Date函数以日期数据类型的格式返回当前的系统日期,Date$则以字符串类型的格式返回当前的系统日期。
语法:Date
Date$
Date$可能返回值有:Month(mm) 介于01到12(包括这两个数)之间的整数
Day(dd) 介于01到31(包括这两个数)之间的整数
Year(yyyy) 介于0100到9999(包括这两个数)之间的整数
2、Now
功能:以日期型数据的格式提供计算机系统时钟/日历的当前日期与时间。
通用语法:Now
如:
private sub timer1_time()
text2.text=format$(now,"mm-dd-yyyy hh:mm:ss",AM/Pm)
end sub
注:上面的代码将获得如12-31-2001 10:15:55 AM这样的结果。如果要它和手表一样不停,则timer.interval必须设为大于0的数。
3、time与time$
time以日期型数据返回当前的系统时间。time$则以字符串的形式返回计算机的当前的时间。
语法:
time
time$
time时间
date日期