- 1、本文档共18页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验四 倒计时程序 单击此处编辑母版标题样式 单击此处编辑母版副标题样式 Dim nDay As Integer, i As Integer Dim nSec, tSec, sTime As String Dim strNow1 As String, strNow2 As String Dim strEnd1 As String, strEnd2 As String Private Sub Form_Load() On Error Resume Next strNow1 = Format(Now, yyyy/mm/dd) strNow2 = Format(Now, hh:mm:ss) strEnd1 = InputBox$(请输入倒计时截止日期:(格式:年-月-日)) strEnd2 = InputBox$(请输入倒计时截止时间:(格式:时:分:秒)) Label10.Caption = 距离 + strEnd1 + 的北京时间还有: Label1.Caption = DateDiff(yyyy, strNow1, strEnd1) 计算时间间隔年数 Label3.Caption = DateDiff(d, strNow1, strEnd1) - 1 计算时间间隔天数 nDay = Val(Left(strEnd1, 4)) 取出设定时间中的年数 tDay = Val(Left(strNow1, 4)) a = nDay - tDay If nDay Mod 4 = 0 And nDay Mod 100 0 Or nDay Mod 400 = 0 Then 判闰年否? Label3.Caption = (DateDiff(d, strNow1, strEnd1)) Mod 366 - 1 返回当前年还剩的天数 i = 366 Else Label3.Caption = (DateDiff(d, strNow1, strEnd1)) Mod 365 - 1 i = 365 End If Label5.Caption = DateDiff(s, strNow2, DateAdd(h, 1, 23:59:59)) 计算时间间隔秒数 Timer1.Enabled = True End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() Timer1.Enabled = False Label1.Caption = 0 Label3.Caption = 000 Label5.Caption = 000000 End Sub Private Sub Command4_Click() On Error Resume Next strNow1 = Format(Now, yyyy/mm/dd) strNow2 = Format(Now, hh:mm:ss) strEnd1 = InputBox$(请输入倒计时截止日期:(格式:年-月-日)) strEnd2 = InputBox$(请输入倒计时截止时间:(格式:时:分:秒)) Label10.Caption = 距离 + strEnd1 + 的北京时间还有: Label1.Caption = DateDiff(yyyy, strNow1, strEnd1) 计算时间间隔年数 Label3.Caption = DateDiff(d, strNow1, strEnd1) - 1 计算时间间隔天数 nDay = Val(Left(strEnd1, 4)) 取出设定时间中的年数 If nDay Mod 4 = 0 And nDay Mod 100 0 Or nDay Mod 400
您可能关注的文档
最近下载
- 四年级下册数学试题 - 多边形内角和 练习题 苏教版(含答案).docx
- 2023版天疱疮患者健康教育共识学习与临床实践应用PPT 课件.pptx VIP
- 护士导医服务技巧培训PPT.ppt
- 运输车辆挂靠协议.doc
- 产业园科技企业孵化器PPT.ppt
- 2024年部编版三年级下册语文期末专项复习——积累与运用.pptx VIP
- AP50N10D 50A 100V TO-252场效应管规格书.pdf VIP
- 教育学原理课后习题(答案).pdf VIP
- 精品解析:北京市西城区2021-2022学年八年级下学期期末测试英语试题(解析版).doc VIP
- (部编版)语文一年级下册暑假课外阅读“天天练”60篇,附参考答案.doc
文档评论(0)