0% encontró este documento útil (0 votos)
38 vistas1 página

Sala Rio

Este documento describe un formulario para calcular el salario de un trabajador basado en las horas trabajadas y la tarifa por hora, y muestra los cálculos para el salario bruto, descuento y salario neto.

Cargado por

Leonor Jaeger
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
0% encontró este documento útil (0 votos)
38 vistas1 página

Sala Rio

Este documento describe un formulario para calcular el salario de un trabajador basado en las horas trabajadas y la tarifa por hora, y muestra los cálculos para el salario bruto, descuento y salario neto.

Cargado por

Leonor Jaeger
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd

Este es un formulario para calcular el salario de un trabajador

Private Sub CmdAceptar_Click()

Dim HorasTrabajadas As Integer

Dim PagoPorHora As Double

Dim SalarioBruto As Double

Dim Descuento As Double

Dim SalarioNeto As Double

HorasTrabajadas = Val(TxtHorasTrabajadas)

PagoPorHora = Val(TxtPagoPorHora)

SalarioBruto = HorasTrabajadas * PagoPorHora

Descuento = 0.2 * SalarioBruto

SalarioNeto = SalarioBruto – Descuento

TxtSalarioBruto = Str(SalarioBruto)

TxtDescuento = Str(Descuento)

TxtSalarioNeto = Str(SalarioNeto)

End Sub

También podría gustarte