Anónimo
Calculo de cuota
Hola experto necesito de su ayuda, le planteo la idea tengo un socio que ingreso el 01/01/2009 y aporta 30 dolares mensualmete y en marzo necesita un préstamo, lo que requiero es programar para que verifique en el sistema si el socio esta al día en sus aportaciones si esta al día sera Activo de lo contrario deudor, gracias de antemano
1 Respuesta
Respuesta de rydesoft
1
Lo que necesitas saber es cuantos meses han transcurrido
necesitaremos las siguientes variables
diat= días que transcurrieron
FHASTA= fecha limite del calculo puedes colocarlo igual a DATE() para que tome la fecha actual
FDESDE=Fecha inicial del calculo cuando ingreso el socio
ANIOS=Años que hay entre las fechas
MESES= meses entre las fechas
VAPORT= valor de la cuota de aporte
TAPORT= total aportado hasta la fecha por el socio
CAPORT=total de lo que deberia haber aportado el socio
el codigo quedaria asi
TAPORT= &&calcula la suma total del aporte del socio
FHASTA=DATE()
FDESDE= &&FECHA INGRESO SOCIO
DIAST=FHASTA-FDESDE
ANIOS=INT(DIAST/365)
MESES=INT((DIAST-(ANIOS*365))/30)
CAPORT=MESES * VAPORT
IF TAPORT>=CAPORT
MESSAGEBOX("Se le puede prestar",48,"Informacion")
ELSE
MESSAGEBOX("No esta al día con los aportes", 48,"Información")
Endif
**Que pena no haberte respondido antes.
Si tienes alguna otra duda me la haces saber.
Si te sirvió cierra la pregunta
necesitaremos las siguientes variables
diat= días que transcurrieron
FHASTA= fecha limite del calculo puedes colocarlo igual a DATE() para que tome la fecha actual
FDESDE=Fecha inicial del calculo cuando ingreso el socio
ANIOS=Años que hay entre las fechas
MESES= meses entre las fechas
VAPORT= valor de la cuota de aporte
TAPORT= total aportado hasta la fecha por el socio
CAPORT=total de lo que deberia haber aportado el socio
el codigo quedaria asi
TAPORT= &&calcula la suma total del aporte del socio
FHASTA=DATE()
FDESDE= &&FECHA INGRESO SOCIO
DIAST=FHASTA-FDESDE
ANIOS=INT(DIAST/365)
MESES=INT((DIAST-(ANIOS*365))/30)
CAPORT=MESES * VAPORT
IF TAPORT>=CAPORT
MESSAGEBOX("Se le puede prestar",48,"Informacion")
ELSE
MESSAGEBOX("No esta al día con los aportes", 48,"Información")
Endif
**Que pena no haberte respondido antes.
Si tienes alguna otra duda me la haces saber.
Si te sirvió cierra la pregunta