FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Necesito crear una nomina??
Necesito hacer una nomina,pero ya tengos los codigos para hacerlo, pero lo que necesito es que calcule la nomina de un empleado dependiendo el sueldo que tenga por ejemplo:
ars 2 %,afp 4%,coop 3%
ars 4%,afp 5%,coop 6%
afp 3%,afp 6% coop 10% aki tengo los codigos para un solo descuento: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var Cod: integer; Nombre: string; Apellido: string; sueldo: real; ars: real; afp: real; td: real; sn: real; begin write('Digite el codigo : '); readln(cod); write('Digite el nombre : '); readln(nombre); write(' Digite el apellido: '); readln(apellido); write('Digite el sueldo: '); readln(sueldo); ars:= sueldo * 0.02; afp:= sueldo * 0.03; td:= ars + afp; sn:= sueldo -td; writeln('codigo......:',cod); writeln('nombre......:',Nombre); writeln('Apellido....:',apellido); writeln('Sueldo......:',sueldo:8:2); writeln('ars.........:',ars:6:2); writeln('Afp.........:',afp:6:2); writeln('Total desc. .:',td:7:2); writeln('Sueldo neto. .:',sn:8:2); readln end. Espero una ayuda!!!gracias.. |
#2
|
||||
|
||||
Hola, amigo, bienvenido a clubdelphi, por favor, lee nuestra guía de estilo para poder ayudarte mejor, gracias.
|
#3
|
||||
|
||||
Tiene cara de tarea de la escuela, como no me gusta ser chapuzero te voy a dar un tip para que lo resuelvas tu mismo. El código que tienes ya hace lo que en teoria hay que realizar. Unicamente te falta algo para poder cambiar los porcentajes segun el sueldo.
Entonces tienes que usar sentencias IF para que te quede algo asi: Código:
Si el sueldo es entre a y b entonces los porcentajes son a1 y b1 Si el sueldo es entre c y d entonces los porcentajes son c1 y d1
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
#4
|
|||
|
|||
jejejeje..si probare ahora mismo,te dire si me funciona..gracias!!
|
#5
|
|||
|
|||
Gracias me brother me funciono el programa,se le agradece!!!
|
#6
|
||||
|
||||
Nos alegramos mucho
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
No se crear un TQRPrinter, necesito cargar un .qrp | fonx | Impresión | 1 | 13-12-2007 18:25:36 |
Nomina Qreport | ingabraham | Impresión | 14 | 28-11-2007 15:04:13 |
Stallman en la nómina de Microsoft | roman | La Taberna | 14 | 19-07-2007 13:08:52 |
programar una nomina de empleados en delphi | ingmichel | Varios | 2 | 20-06-2007 00:13:13 |
Necesito crear una aplicacion.... ayuda please | Enable | Varios | 8 | 10-09-2006 17:51:01 |
|