vb程序设计-时间间隔改进

《vb程序设计-时间间隔改进》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB程序设计－时间间隔改进（作者：草原飞狼2014年6月5日）声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。布局4运行界面（1）运行界面（2）4运行界面（3）源代码如下：Rem定义三个时间为变体类型：stime为开始时间，etime为结束时间，jtime为间隔时间DimstimeAsVariantDimetimeAsVariantDimjtimeAsVariantDims1,e1AsVariantPrivateSubCommand1_Click()Rem启动按钮，计算时间差IfLabe

2、l4.Caption=""AndLabel5.Caption=""ThenMsgBox"没有输入开始和结束时间！",vbInformation,"错误提示"Command3.SetFocusElsejtime=etime-stimeLabel6.Caption=Format(jtime,"hh:mm:ss")EndIfEndSubPrivateSubCommand2_Click()4Rem清空Label4.Caption=""Label5.Caption=""Label6.Caption=""Command3.SetF

3、ocusEndSubPrivateSubCommand3_Click()Rem输入正确的开始时间和结束时间，注意时间格式Rem输入开始时间并判断其格式是否正确s1=InputBox("请输入开始时间，注意时间格式！","输入开始时间","08:08:08")DoWhileIsDate(s1)=FalseMsgBox"输入时间格式不对，请重新输入！",vbInformation,"错误提示"s1=InputBox("请输入开始时间，注意时间格式！","输入开始时间","08:08:08")LoopRem输入结束时间并判断

4、其格式是否正确e1=InputBox("请输入结束时间，注意时间格式！","输入结束时间","10:10:10")DoWhileIsDate(e1)=FalseMsgBox"输入时间格式不对，请重新输入！",vbInformation,"错误提示"e1=InputBox("请输入开始时间，注意时间格式！","输入开始时间","10:10:10")Loopstime=CDate(s1)'转换成时间格式etime=CDate(e1)'转换成时间格式Label4.Caption=Format(stime,"hh:mm:ss"

5、)'format是格式函数，Format(stime,"hh:mm:ss")表示按时分秒格式输出Label5.Caption=Format(etime,"hh:mm:ss")Command1.SetFocusEndSubPrivateSubCommand4_Click()Rem退出Dimint_msgAsIntegerint_msg=MsgBox("单击“确定”退出，单击“取消”程序继续！",vbOKCancel+vbQuestion+vbDefaultButton2,"退出提示")Ifint_msg=vbOKThen

6、UnloadMeEndIfEndSub4