Zeiterfassung

[AAGE]

Bin blutiger Anfänger und Ostriese
Möchte gerne eine Zeiterfassung prog.
Etwa so
1 label mit der Zeit Now (Person kommt)
2.label mit der Zeit now (Person geht)
3.label (Anwesende Zeit)
Kann mir einer helfen......Danke
Gruss Victor(AAGE)

 

[spirit]

Hallo

Wie soll die Zeit erfassst werden. Mit Buttons die ein Timestamp an das Feld übergibt?
Sollen die Zeiten gespeichert werden? Erkläre doch bitte wie du die Daten verarbeiten möchtest

 

[Tetsuya]

Hi
Für derartige Dinge brauchst du einen Timer in deiner Form
den Bekommst du indem du auf den Kasten mit den Steuerelementen die rechte Maustaste drückst und auf Steuerelement hinzufügen oder weitere Steuerelemente gehts. dort findet man dann das Timersteuerelement. In der MSDN stehen dan auch tipps zur benutzung dazu ob jetzt das dabei ist weiß ich nicht hab grad keinen Compiler zur Hand.

gruß Tetsuya

 

[spirit]

Wofür einen Timer? Du musst doch ersteinmal das Ereignis in Form einer Eingabe auslösen. Da hilft dir auch kein Timer

 

[Julian Maicher]

Einen Timer brauchst du da wirklich nicht. Probiers mal so:

Ankunft: 
aTime = Now
lblAnkunft = Format(aTime, "hh:nn:ss")

Abfahrt: 
lTime = Now
lblAbfahrt: Format(lTime, "hh:nn:ss")

Aufenthalt: 
lblAufenthalt = DateDiff("h", aTime, lTime) 'in Stunden
'Vielleicht geht auch folgendes (kanns leider nicht testen):
dTime = lTime - aTime
lblAufenthalt = Format(dTime, "hh:nn:ss")

 

[spirit]

Hier noch ei Beispiel:

<code>
Private Sub Command1_Click()
Text1 = Time
End Sub

Private Sub Command2_Click()
Text2 = Time
Text3 = FormatTime(DateDiff("s", Text1, Text2))
End Sub

Public Function FormatTime(secs As Integer) As String
Dim I As Integer
Dim X As Integer
Dim Y As Integer
For I = 0 To secs
X = X + 1
If X = 60 Then
X = 0
Y = Y + 1
End If
Next I
FormatTime = Format(Y, "00") & ":" & Format(X, "00")
End Function

</code>