jajaja julio a quie tienes un codigo simple
agrega 8 label y un text y pega este codigo que acabo de realizar es solo para calcular las horas extras disculpa es que no tengo mucho tiempo para realizar algo mejor si quieres me escribes y te sigo ayudando el codigo es para un trabajador de nombre alka33 que puedo trabajar como maximo 00:00:01 lo acabo de probar y me sirvio espero que te sirva
Option Explicit
Dim Entro As Date
Dim Salio As Date
Dim HmT As Date
Private Sub Form_Load()
HmT = "00:00:01"
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
Label5 = "Entro"
Label6 = "Salio"
Label7 = "Trabajo"
Label8 = "De las Cuales Son Horas Extras"
Text1 = "Introduce Usuario"
End Sub
Private Sub Text1_Click()
Text1 = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Trabajo
End Sub
Function Trabajo()
If Text1 = "alka33" Then
If Label1 = "" Then
Entro = Time
Label1 = Entro
Text1 = "Introduce Usuario"
Else
Salio = Time
Label2 = Salio
Dim a, b As Double
a = Salio
b = Entro
Dim x As Double
x = HmT
Label3 = a - b
Label4 = (a - b) - x
End If
End If
End Function
' alka33
'
[email protected]
