Visual Pro/5 (BBx) - Letras x fechas

0010 rem "CLVCR""Calculo de Letras por Ventas a Credito""CEMS, 03/03/2018

0020 begin

0030 print 'CS',"Calculo de Letras por Ventas a Credito"

0040 input "Monto de la Venta : ",MONTO

0050 input "Numero de Letras  : ",LETRAS

0060 input "Fecha del Credito : ",FECHA$

0070 let JUL=jul(num(FECHA$(7)),num(FECHA$(4,2)),num(FECHA$(1,2)),err=0090)

0080 goto 0200

0090 print ""

0100 print "error!! la fecha debe estar en formato DD/MM/AAAA"

0110 goto 0060

0120 rem

0200 rem ^100

0210 let MENSUALIDAD=MONTO/LETRAS

0220 print ""

0230 print "Cuota    Fecha      Mensualidad"

0240 print "----- ---------- --------------"

0250 for CUOTA=1 to LETRAS

0260 let JUL=JUL+30,D$=date(JUL:"%Dz/%Mz/%Y")

0270 print CUOTA:"####BB",D$," ",MENSUALIDAD:"###,###,##0.00"

0280 next CUOTA