nedtæller

Hejsa er det muligt at lave en nedtæller som fx.

Der er:
TT:MMS
til juledag.

Det står på hovede siden men hvis man trykker F7 så kommer en boks op hvor man kan indtaste fx.

Nedtælling til: (textbox)

Nedtælling: (textbox)textbox)textbox)

Kan det lade sig gøre?

Ja det kan.
Du skal bare bruge en timer kaldet tmr_CheckTid på formen og e n label kaldet lblTidTilbage. Tidstælleren er ikke helt perfekt men den virker rimeligt præcist. Den viser den resterene tid i timer, minuter og sekunder.

Dim Tilden As String
Function BeregnTid(Fra As String, Til As String) As String
Dim Dif As Date, X As Date, Y As Date, L As Double, Timer As Currency, Minuter As Currency, Sekunder As Currency
X = Fra
Y = Til
Dif = Y - X
L = Dif
L = L * 24
Timer = Round(L)
If Timer > L Then
Timer = Timer - 24
End If
L = L - Timer
L = L * 60
Minuter = Round(L)
If Minuter > L Then
Minuter = Minuter - 60
End If
L = L - Minuter
L = L * 60
Sekunder = Round(L)
If Sekunder > L Then
Sekunder = Sekunder - 60
End If
L = L - Sekunder
Do Until Timer > -1
    Timer = Timer + 24
Loop
Do Until Minuter > -1
    Minuter = Minuter + 60
Loop
Do Until Sekunder > -1
    Sekunder = Sekunder + 60
Loop
BeregnTid = Timer & " timer " & Minuter & " minuter " & Sekunder & " sekunder "
End Function

Private Sub tmrCheckTid_Timer()
Dim L As String
L = BeregnTid(Now, Tilden)
lblTidTilbage.Caption = "Der er: " & L & " til den " & Tilden
End Sub

Private Sub Form_KeyUp(ByVal KeyCode As Integer, ByVal Shift As Integer)
MsgBox KeyCode
If KeyCode = vbKeyF7 Then
    Tilden = InputBox("Indtast dato i format: YYYY:MM:DD TT:MM:SS", "Dato", Now)
End If
End Sub

Private Sub Form_Load()
Tilden = "15.12.2005 18:38:35"
tmrCheckTid_Timer
End Sub

Prøv og se om det virker
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

EDIT
______
Er det ikke lidt problemmatisk med alle de smilier der komme der forkerte steder som midt i min kode der skulle havde stået : og D, for hvis man sætter det sammen så

[Redigeret d. 21/10-05 16:21:58 af Jonas Termannsen]

[Redigeret d. 21/10-05 16:23:14 af Jonas Termannsen]

[Slettet af forfatter]

[Redigeret d. 21/10-05 16:22:51 af Jonas Termannsen]