Private Sub Command1_Click()
'Para que las cajas no se dejen vacías.
If Len(Trim(txtSH.Text)) = 0 Then
MsgBox ("Introduzca sueldo hora.")
txtSH.SetFocus
ElseIf Len(Trim(txtTHT.Text)) = 0 Then
MsgBox ("Introduzca las horas trabajadas.")
txtSH.SetFocus
Else
'
Dim SH As Integer 'sueldo por hora.
Dim THT As Integer 'total horas trabajadas
Dim SHN As Currency 'sueldo horas normales
Dim SHD As Currency 'sueldo horas dobles
Dim TS As Currency 'total sueldo.
Dim HN As Integer
'
If THT <= 40 Then 'si total de ht es menor o = 40
txtHN.Text = THT 'por verdad
txtHN.Text = Format(40)
Else
txtHN.Text = Format(txtTHT - 40) 'por falso o mayor que 40
End If
'
txtHD.Text = txtTHT.Text - txtHN.Text
txtSHN.Text = txtSH * txtHN
txtSHD.Text = (txtSH * txtHD) * 2
txtTS.Text = txtSHN + txtSHD
txtTS.Text = FormatCurrency(CDbl(txtTS.Text))
End If
End Sub
Private Sub Command2_Click()
txtTHT.Text = ""
txtHN.Text = ""
txtHD.Text = ""
txtSHN.Text = ""
txtSHD.Text = ""
txtTS.Text = ""
txtTHT.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub