Timer ihh:mm:ss:)

kan du ikke bruge et dateTime objekt og udskrive currenttime så køre det vel.. det kan du formatere som du ønsker... kode følger kun på opfordring ;)

Har forsøgt, kunne ihvertfald ikke få den til det.
Gider du at skrive koden (;?

det bliver lige en doven.. det er jo påske...

men prøv at kigge her

http://www.codecomments.com/archive337-2005-2-387248.html

haha iorden, men kan ikke se hvad jeg skal sætte koden ind i?

PauseTime = 121 ' Set duration.
StartTime = Timer ' Set start time.
Do While Timer < StartTime + PauseTime
DoEvents ' Yield to other processes.
Loop
FinishTime = Timer ' Set end time.
TotalTime = FinishTime - StartTime ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"

skal jeg sætte den i timer?

Den her viser det som timer:minutter:sekunder

' -------------------- Form1 --------------------
Option Explicit

Private m_Sekunder As Long

Private Sub Form_Load()
  m_Sekunder = 0
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Me.Caption = SecToTime(m_Sekunder)
  m_Sekunder = (m_Sekunder + 1)
End Sub

Private Function SecToTime(Sekunder As Long) As String
Dim Minutter As Long
  Minutter = (Sekunder \ 60)
  SecToTime = Format(Minutter \ 60, "00") & ":" & _
              Format(Minutter Mod 60, "00") & ":" & _
              Format(Sekunder Mod 60, "00")
End Function
' -------------------- Form1 --------------------

Ok: en anden mulighed jeg selv fandt ud af:
Dim LogonTime As Date
Dim TimerTime As Date
Dim forma As Date
Dim timers As Date



Private Sub Form_Load()
    Timer1.Interval = 100
    Label1.Caption = ""
    LogonTime = time
   
End Sub

Private Sub Timer1_Timer()
Label1.Caption = time
Label2.Caption = LogonTime
timers = LogonTime - time
Label3.Caption = timers
End Sub