Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Necesito Ayuda..........

Estas en el tema de Necesito Ayuda.......... en el foro de Visual Basic clásico en Foros del Web. hola foro. despues que hice el formulario y quedo bien, pues hacia lo que querian me dijeron varios profesores que estaba mal. por que resulta ...
  #1 (permalink)  
Antiguo 16/10/2008, 17:16
 
Fecha de Ingreso: julio-2008
Mensajes: 205
Antigüedad: 15 años, 9 meses
Puntos: 1
Sonrisa Necesito Ayuda..........

hola foro. despues que hice el formulario y quedo bien, pues hacia lo que querian me dijeron varios profesores que estaba mal. por que resulta que trabaje de forma estatica, limitada. y no debe ser asi.

DE QUE TRATA? bueno cree un tabla llamada dias_vacaciones. en ella estan dos campos inicio_bono y fin_bono. para el inicio de bono el valor es 7 y para el fin de bono es 21. estos valores estan asignados por la ley.

claro esta cree un formulario donde se puedan introducir esos valores, guardarlos y ser modificados.

entonces.. coloque una funcion que me reste el año en que un trabajador ingreso a una empresa y lo reste con la fecha actual.

lo que me mandan a calcular es: que si el trabajador tiene 1 año de servicio entonces le tocara 7 de salario diario.
supongamos que le salario diario sea = 150 sera (150*7)
si el trabajador tiene 2 años serian 8 dias. y asi sucesivamente hasta llegar a 21 que son los valores introdudidos en la tabla que mencione arriba.


¿LA PREGUNTA?... que pasa si cambiaran esos valores


esa fue lo que me preguntaron los profesores y no supe que decirles. claro esta. si es vez de 7 y 21 son 15 y 35 por ejemplo. miren mis codigos. asi lo hice de forma estatica. quisiera que me ayuden con esto de verdad. para solucionar este asunto que ya me queda poco tiempo para presentar definitivamente el sistema.

If Val(Text2) = 1 Then txtahora = 7
If Val(Text2) = 2 Then txtahora = 8
If Val(Text2) = 3 Then txtahora = 9
If Val(Text2) = 4 Then txtahora = 10
If Val(Text2) = 5 Then txtahora = 11
If Val(Text2) = 6 Then txtahora = 12
If Val(Text2) = 7 Then txtahora = 13
If Val(Text2) = 8 Then txtahora = 14
If Val(Text2) = 9 Then txtahora = 15
If Val(Text2) = 10 Then txtahora = 16
If Val(Text2) = 11 Then txtahora = 17
If Val(Text2) = 12 Then txtahora = 18
If Val(Text2) = 13 Then txtahora = 19
If Val(Text2) = 14 Then txtahora = 20
If Val(Text2) = 15 Then txtahora = 21
total.Text = (txtahora * txtvalordia)

el texto2= es donde se muestra el año de servicio que tiene el trabajador.
txtahora= aqui se mostrara los años que le corresponden.
si ingreso en 2004 al 2008 tiene 4 años de servicio.
y como tiene 4 años entonces hasta ahora tendria 10 dias de bono ya que para el primer año es 7 y cada año se le estara incrementando.



AYUDENME.. SINO ENTIENDEN AQUI LES DEJO MI CORREO:
[email protected]
  #2 (permalink)  
Antiguo 16/10/2008, 17:22
Avatar de Peterpay
Colaborador
 
Fecha de Ingreso: septiembre-2007
Ubicación: San Francisco, United States
Mensajes: 3.858
Antigüedad: 16 años, 7 meses
Puntos: 87
Respuesta: Necesito Ayuda..........

porque no hacer un simple

txtahora=val(text2)+6

ya que hay una relación de años VS dias bono 6

claro que si tus profesores quieren que tu puedas dejar todo listo para futuras modificaciones debes pensar en usar una variable para reemplazar esa constante 6.

solo eso.
__________________
Curso WF4
http://cursos.gurudotnet.com/ DF
Aprende HTML5
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:55.