• Home
 · 
• Miscellaneous
 · 
• Count Down Timer

Count Down Timer

Count Down Timer

Rate Count Down Timer

• 1
• 2
• 3
• 4
• 5

(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