Hej

Jag behöver ider om hur man på ett smidigare sätt kan räkna ut olika raster
använder perioder 100p=1tim

Mina försök ser ut så här men väldigt krångligt och inte klart.

Private Sub Text2_KeyPress(KeyAscii As Integer)
sRast1 = 20
sRast2 = 50
sRast3 = 20
If KeyAscii = 13 Then
If Text1 > 0 And Text2 >= 1400 And Text2 <= 1420 Then
sRast3 = Val(Text2) - 1400
RÄKNA
Exit Sub
ElseIf Text1 > 0 And Text2 >= 1100 And Text2 <= 1150 Then
sRast2 = Val(Text2) - 1100
RÄKNA
Exit Sub
ElseIf Text1 > 0 And Text2 >= 900 And Text2 <= 920 Then
sRast1 = Val(Text2) - 900
RÄKNA
Exit Sub
Else
RÄKNA
End If
End If
End Sub

Private Sub RÄKNA()

'0-2400
If Text1 > 0 And Text1 <= 900 And Text2 >= 1420 Then

Label2 = Val(sRast1) + Val(sRast2) + Val(sRast3)
Label1 = Val(Text2) - Val(Text1) - Label2
End If

If Text1 > 0 And Text1 <= 900 And Text2 >= 1150 And Text2 <= 1400 Then
Label2 = Val(sRast1) + Val(sRast2)
Label1 = Val(Text2) - Val(Text1) - Label2
End If

If Text1 > 0 And Text1 <= 900 And Text2 >= 1100 And Text2 <= 1150 Then

Label2 = Val(sRast1) + Val(sRast2)
Label1 = Val(Text2) - Val(Text1) - Label2
End If

If Text1 > 0 And Text2 >= 900 And Text2 <= 920 Then
Label2 = Val(sRast1)
Label1 = Val(Text2) - Val(Text1) - Label2
End If

If Text1 > 0 And Text2 <= 900 Then

Label1 = Val(Text2) - Val(Text1)
End If

End Sub

Hälsningar
Tobbe

Det kliar i fingrarna när man ser din kod.Mycket som skulle behövas justeras där.

Får se om jag fatta rätt för varje 100 svar skall det visa 1 time i Label :arna eller ?

Vad står det egentligen i TextBoxarna vad är sRast för DataTyp ?

Hej Sven

Så här går det till om man stämplar in kl 7:00 och har rast kl 9:00 till 9:10 och slutar kl 10:15 då skriver man i text1 "700" och i text2 "1015 där i mellan finns det en kafferast på 10min (20perioder)

Tiden = 1015 - 700 - 20 (295 perioder)

Detta forsätter med lunch kl 11:00 till 11:30 ( i perioder 1100 - 1150) och kafferast kl 14:00 till 14:10 slutar kl 16:30.

Jag vill att man anger när man börjar och slutar ett arbete och att div raster plockas bort från totala tiden.

Skulle gå om man fick till någon loop som kollar om perioderna finns mellan text1 och text2.

Hoppas du förstår vad jag menar.

Hälsningar
Tobbe