Timmerについて (ID:120041)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) Dim Temp() As String Dim startM As Long Dim startS As Long Dim StartH As Long Dim EndH As Long Dim EndM As Long Dim EndT As String Temp = Split(Format(Time, "h:m:s"), ":") StartH = CLng(Temp(0)) startM = CLng(Temp(1)) startS = CLng(Temp(2)) If EndM >= 60 Then EndM = startM + 10 - 60 EndH = StartH + 1 Else EndM = startM + 10 EndH = StartH End If EndT = EndH & EndM & startS Do Until Format(Time, "hms") = EndT DoEvents Sleep 100 Loop MsgBox "10分経過", vbInformation