


Public Sub btnCountDown_Click()
  Timer1.Start
  Timer1.Trigger
End

Public Sub Timer1_Timer()
  Dim dCountDown As Date
  Dim dMonth, dWeek, dDay, dHour, dMinute, dSecond As Integer
  Dim iRestZeitInSekunden, iZeitInSekunden, iTage, iStunden, iMinuten, iSekunden As Integer
  
  dCountDown = Date(2014, 12, 24, 0, 0, 0, 0) ' Weihnachten 24.12.2014
  
  if DateDiff(Now, dCountDown, gb.Second) > 0 then

     dMonth = DateDiff(Now, dCountDown, gb.Month)
       Print "M=";; dMonth
     dWeek = DateDiff(Now, dCountDown, gb.Week)
       Print "W=";; dWeek
     dDay = DateDiff(Now, dCountDown, gb.Day)
       Print "T=";; dDay 
     dHour = DateDiff(Now, dCountDown, gb.Hour)
       Print "H=";; dHour
     dMinute = DateDiff(Now, dCountDown, gb.Minute)
       Print "M=";; dMinute
     dSecond = DateDiff(Now, dCountDown, gb.Second)
       Print "S=";; dSecond
'-------------------------------------------------
  
     iZeitInSekunden = DateDiff(Now, dCountDown, gb.Second)
     Print iZeitInSekunden;; " Sekunden"
  
     iTage = Int(iZeitInSekunden / (24 * 60 * 60))
     iRestZeitInSekunden = iZeitInSekunden - iTage * 24 * 60 * 60
     iStunden = Int(iRestZeitInSekunden / (60 * 60))
     iRestZeitInSekunden = iRestZeitInSekunden - (iStunden * 60 * 60)
     iMinuten = Int(iRestZeitInSekunden / 60)
     iRestZeitInSekunden = iRestZeitInSekunden - (iMinuten * 60)
     iSekunden = iRestZeitInSekunden
  
     Print "T = ";; iTage; " H =";; iStunden;; "M = ";; iMinuten;; "S = ";; iSekunden
  Else

  EndIf
    
  
End

