Count Down Timer
Count Down Timer
Rate Count Down Timer
(2(2 Vote))
'Need Some Code Request it in www.SmokeCrack.co.uk
Dim nDateDiff As Variant
Dim nSeconds As Variant
Dim nMinutes As Variant
Dim nHours As Variant
Dim nDays As Variant
nDateDiff = DateDiff("s", Now, "10/09/2004 22:15:00 ")
nSeconds = nDateDiff / 60
nMinutes = Int(nSeconds)
nSeconds = (nSeconds - Int(nSeconds)) * 60
lblSecond.Value = Round(nSeconds)
nMinutes = nMinutes / 60
nHours = Int(nMinutes)
nMinutes = (nMinutes - Int(nMinutes)) * 60
lblMinute.Value = Round(nMinutes)
nHours = nHours / 24
nDays = Int(nHours)
nHours = (nHours - Int(nHours)) * 24
lblHour.Value = Round(nHours)
lblDay.Value = nDays
End Sub
Count Down Timer Comments
No comments yet — be the first to post one!
Post a Comment