by SmokeCrackCode (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 30th September 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Count Down Timer
'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