VB6的日期/时间函数

1、获取完整日期/时间

Now() 获取系统当前日期和时间

Time() 获取系统当前时间

2、VB6的计时

Time() 函数不是很精确,所以通常用API函数 GetTickCount(),该函数获取自从电脑重启以来的时间(单位:毫秒 ms),两次调用该函数就知道了中间所花费的时间。

3、截取时间的指定部分(T是一个合法的时间表达式比如#2019-3-2 12:22:32#,或者时间函数)
year(T) 年份
month(T) 月份
day(T)

统一的截取函数:
DatePart(datepart,T) 
datepart 用于指定要截取的部分,是一个字符串,有特定的格式:

字符含义
y一年中的天数,比如:第198天
yyyy年份(4位数)
m月份,mm则显示前面的0
w一周内的天数,返回数字,比如星期一就是1(默认情况下)
ww周数,一年通常有55周
q季度
d一月内的某一天,dd则显示前面的0
h小时,hh则显示前面的0
n分钟,nn则显示前面的0
s                秒,ss则显示前面的0

函数返回数值


4、时间计算函数
4-1 时间加减
DateAdd(datepart,number,T) 

number 是一个数字,指定时间的变化,负数则是减去。

datepart 含义同上

举例:

如何计算2月份最后一天的日期?用3月1号减去一天:
DataAdd("d",-1,"2017-3-1")

4-2 计算两个日期的差值
DateDiff(datepart,T1,T2) ,计算方式是T2-T1,负数表示T2比T1日期更早

举例:

T1=#2019-11-2#,T2=#2019-11-15#

DateDiff("d",T1,T2)=13

DateDiff("m",T1,T2)=0

5、格式化函数
Format(T,dateformat)
dateformat 是一个字符串,格式参考上面的 datepart,可以是多个时间段的组合,分隔符可以任意指定(当然不能是 datepart 使用的关键字,通常会使用横线、冒号或者其他特定字符)

函数返回一个字符串。

举例:

Format(now,"yyyy年mm月dd日")

返回:2019年11月04日

Format("2019-3-11 16:33:23","mm-dd hh:nn")

返回:03-11 16:33

注意:时间的最终显示效果还跟电脑系统设置有关。

关于vb初学者的忠告 信息来源:邪恶八进制信息安全团队(www.eviloctal.com) 1、如果一行程序太长,能不能换行? VB的程序代码是允许换行书写的,只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如: 引用: Sub PicMove() Frm.Picture2.Left = Frm.Picture1.Left + _ ’加上换行符 Frm.Picture1.Width End Sub 2、 如何在设计的时候清空存在的图片? 用鼠标点中该图片,在属性窗口中选中Picture属性,按Del键便可清空图片。 3、 Visual Basic 如何注释一段较长程序代码? VB注释程序代码的符号是“注释:”,只要在某行程序前面加上“注释:”,就可以注释该行程序。但如果程序代码很长的时候,一行一行地注释令人觉得难以忍受。VB本身提供了这个功能,在主菜单“视图”选项的“工具栏”下,选中Edit,VB的界面会出现一排工具按钮,其中的手形图标按钮后的两个按钮用于“设置注释块”和“解除注释块”。 4、怎么实现鼠标一移上去就出现小提示窗口的功能? VB 里每个控件都有ToolTipText属性,只要加上一行程序就可以了。 例如:Label1.ToolTipText = "这是提示!"。 5、 如何获得当前软件的运行磁盘目录和命令行参数? VB里面有个系统对象叫App。App.Path就是当前软件的运行目录。而命令行参数存放在一个系统变量里面,叫Command。程序语句如下: 引用: Label1.Caption=App.Path Label2.Caption=Command$ 6、我想换掉鼠标显示的形状,怎么做? VB提供的系统控件一般都有MousePointer和MouseIcon属性。我们可以寻找自己喜欢的*.ICO,*.CUR文件,实现的程序如下: Screen.MousePointer= 99 ’用户鼠标类型 Screen.MouseIcon=LoadPicture("C:\ABC\1.ICO") ’读取鼠标的图标文件 7、如何设置程序的错误出口? On Error语句用于程序的错误出口处理。一般的处理方法有两种: 1) 遇到错误跳转到某一行程序去执行,On Error GoTo someline。 例如: 引用: On Error GoTo ERR_LINE ... Label1.Caption=“正确执行” ERR_LINE: ... Label1.Caption=“出错了!” 2) 遇到错误之后忽略当前错误,继续执行,On Error Resume Next。 例如: 引用: On Error Resume Next ... Label1.Caption=“不管对不对都要执行” ... 8、怎样获得键盘输入和判断敲键的Ascii值? 把窗体的KeyPreview属性设置成True,然后在Form_KeyPress 事件里编写程序代码如下: 引用: Private Sub Form_KeyPress (KeyAscii As Integer)  Me.Caption = Str(KeyAscii) ‘取得键盘输入的字符  ... End Sub 9、我希望窗体一运行就在屏幕的中央,怎么实现? VB的系统对象Screen记录了当前显示模式的高度和宽度,可以利用这个值来设置窗体的位置。 引用: Sub CenterForm(frm As Form) ‘定义过程  frm.Move (Screen.width - frm.width)\ 2, (Screen.Height - frm.Height) \ 2 End Sub Private Sub Form_Load()  CenterForm Me ’调用过程 End Sub 10、很多软件都有鼠标在文本框TextBox一按下,就选中所有文字的功能,是怎么实现的? 引用: Private Sub Text1_GotFocus()  Text1.SelStart = 0  Text1.SelLength = Len(Text1.Text) ’过程调用 End Sub 帖子3926 精华128 积分210000 阅读权限200 性别男 在线时间1119 小时 注册时间2007-10-23 最后登录2009-1-28 查看详细资料 TOP
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值