Buscar este blog

domingo, 19 de junio de 2011

Simulador de Proyectos de Inversión

Este simulador tiene que ver con mi actividad académica
Se trata de una plantilla en la cual se ingresan los datos de un proyecto de inversión, y se realiza un análisis básico.
Supongamos un ejemplo:
Un inversor desea analizar la conveniencia de comprar una máquina para fabricar y vender un determinado producto.
Análisis preliminares indican que la maquinaria tiene un costo de $900, pudiendo ser amortizada en 10 años.
 Además será necesaria una inversión en capital de trabajo de $150 .
Para la determinación del valor residual, se adoptará el método contable.
Los ingresos por ventas se calculan en $1000 anuales y costos anuales  en $600.
La tasa de descuento a utilizar es el 20% y la tasa de impuesto a las ganancias es el 35%.
Con estos datos podemos completar el Flujo de Fondos del Proyecto, ingresando los datos en las celdas pintadas de amarillo y se muestran los indicadores de rentabilidad más un gráfico:

Flujo Fondos
Proyecto
1
2
3
4
5
+
Ingresos


$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
-
Egresos


$ 600,0
$ 600,0
$ 600,0
$ 600,0
$ 600,0
-
Amortizaciones

$ 90,0
$ 90,0
$ 90,0
$ 90,0
$ 90,0
=
Subtotal antes Impuestos
$ 310,0
$ 310,0
$ 310,0
$ 310,0
$ 310,0
-
Impuestos
$ 108,5
$ 108,5
$ 108,5
$ 108,5
$ 108,5
=
Subtotal después Impuestos
$ 201,5
$ 201,5
$ 201,5
$ 201,5
$ 201,5
+
Amortizaciones
$ 0,0
$ 90,0
$ 90,0
$ 90,0
$ 90,0
$ 90,0
-
Inversión AF






-
Inversión AT






+
V Recupero AF





$ 450,0
+
V Recupero AT





$ 150,0
=
Flujo de Fondos
$ 291,5
$ 291,5
$ 291,5
$ 291,5
$ 891,5

Indicadores de Rentabilidad







TIR

22,25%







VAN
$ 62,9






PRI

4 año/s






PRID

5 año/s






IR

1,06





En cada celda hay un escueto comentario indicando lo que significa cada cifra.
TIR = Tasa Interna de Retorno
VAN = Valor Actual Neto
PRI = Período de Recupero de la Inversión
PRID = Período de Recupero de la Inversión Descontado
IR = Índice de Rentabilidad
Ahora podemos armar el Flujo de Fondos del Inversionista, que se logra agregando los datos de la financiación.
Supongamos que vamos a obtener un préstamo de$500 a reintegrar en 5 cuotas anuales calculadas con sistema de amortización alemán y una tasa de interés del 10% anual.

Flujo Fondos
Inversionista
0
1
2
3
4
5
+
Ingresos

$ 0,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
-
Egresos

$ 0,0
$ 600,0
$ 600,0
$ 600,0
$ 600,0
$ 600,0
-
Interés Cuota Préstamo

$ 50,0
$ 40,0
$ 30,0
$ 20,0
$ 10,0
-
Amortizaciones
$ 0,0
$ 90,0
$ 90,0
$ 90,0
$ 90,0
$ 90,0
=
Subtotal antes Impuestos
$ 0,0
$ 260,0
$ 270,0
$ 280,0
$ 290,0
$ 300,0
-
Impuestos
$ 0,0
$ 91,0
$ 94,5
$ 98,0
$ 101,5
$ 105,0
=
Subtotal después Impuestos
$ 169,0
$ 175,5
$ 182,0
$ 188,5
$ 195,0
+
Amortizaciones
$ 0,0
$ 90,0
$ 90,0
$ 90,0
$ 90,0
$ 90,0
-
Inversión AF

$ 900,0





-
Inversión AT

$ 150,0





+
Préstamo Recibido
$ 500,0





-
Capital Cuota Préstamo

$ 100,0
$ 100,0
$ 100,0
$ 100,0
$ 100,0
+
V Recupero AF




$ 450,0
+
V Recupero AT




$ 150,0
=
Flujo de Fondos
$ 159,0
$ 165,5
$ 172,0
$ 178,5
$ 785,0

Indicadores de Rentabilidad







TIR

31,62%







VAN
$ 264,0






PRI

4 año/s






PRID

5 año/s






IR

1,48





Ahora los indicadores han cambiado, mostrando el impacto del préstamo.
Finalmente, se muestra el Flujo de Fondos de Tesorería, donde se visualiza si el proyecto tiene capacidad financiera para atender sus compromisos; allí se pueden ingresar los retiros a efectuar por parte del propietario (supongamos en este caso $100  anuales):
Flujo Fondos
Tesorería
0
1
2
3
4
5








Saldo Inicial

$ 0,0
$ 0,0
$ 59,0
$ 124,5
$ 196,5
$ 275,0








Ingresos

$ 1.050,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
Ingresos Operativos
$ 0,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
$ 1.000,0
Aportes del Inversionista
$ 550,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0
Préstamo Recibido
$ 500,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0








Egresos

$ 1.050,0
$ 941,0
$ 934,5
$ 928,0
$ 921,5
$ 915,0
Egresos Operativos
$ 0,0
$ 600,0
$ 600,0
$ 600,0
$ 600,0
$ 600,0
Interés Cuota Préstamo
$ 0,0
$ 50,0
$ 40,0
$ 30,0
$ 20,0
$ 10,0
Impuestos

$ 0,0
$ 91,0
$ 94,5
$ 98,0
$ 101,5
$ 105,0
Capital Cuota Préstamo
$ 0,0
$ 100,0
$ 100,0
$ 100,0
$ 100,0
$ 100,0
Inversión AF

$ 900,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0
Inversión AT

$ 150,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0
$ 0,0
Retiros del Inversionista
$ 0,0
$ 100,0
$ 100,0
$ 100,0
$ 100,0
$ 100,0








Saldo Final

$ 0,0
$ 59,0
$ 124,5
$ 196,5
$ 275,0
$ 360,0
El simulador puede bajarse desde:




lunes, 13 de junio de 2011

Función para leer números detallada

He recibido varias consultas sobre el tema, sobre todo pidiéndome el contenido de la función.
Para los que entiendan sobre macros les dejo el texto completo (tiene 2 procedimientos):

Function NOMBRE(x)
xuni = "uno         dos         tres        cuatro      cinco       " + _
       "seis        siete       ocho        nueve       diez        " + _
       "once        doce        trece       catorce     quince      " + _
       "dieciséis   diecisiete  dieciocho   diecinueve  veinte      " + _
       "veintiuno   veintidós   veintitrés  veinticuatroveinticinco " + _
       "veintiséis  veintisiete veintiocho  veintinueve "
xdec = "treinta  cuarenta cincuentasesenta  setenta  ochenta  noventa"
xcent = "dosc   tresc  cuatrocquin   seisc  setec  ochoc   novec"
NOMBRE = ""
uni = Right(x, 2)
If uni < 30 And uni > 0 Then
    NOMBRE = Trim(Mid(xuni, 12 * (uni - 1) + 1, 12))
End If
If uni > 29 Then
    dec = Left(uni, 1)
    uni = Right(uni, 1)
    NOMBRE = Trim(Mid(xdec, 9 * (dec - 3) + 1, 9))
    If uni <> 0 Then
        NOMBRE = NOMBRE + " y " + Trim(Mid(xuni, 12 * (uni - 1) + 1, 12))
    End If
End If
cent = Int(x / 100)
If cent = 1 Then
    NOMBRE = "ciento " + NOMBRE
End If
If x = 100 Then
    NOMBRE = "cien"
End If
If cent > 1 Then
    NOMBRE = Trim(Mid(xcent, 7 * (cent - 2) + 1, 7)) + "ientos " + NOMBRE
End If
End Function

Function ALETRAS(x)
ALETRAS = ""
millones = Right(Int(x / 1000000), 3)
parte1 = Right(Int(x), 3)
PARTE2 = Right(Int(x / 1000), 3)
If millones = 1 Then ALETRAS = NOMBRE(millones) + " millón "
If millones > 1 Then ALETRAS = NOMBRE(millones) + " millones "
If PARTE2 = 1 Then ALETRAS = ALETRAS + " un mil "
If PARTE2 > 1 Then ALETRAS = ALETRAS + NOMBRE(PARTE2) + " mil "
ALETRAS = ALETRAS + NOMBRE(parte1)
centavos = (Round(x, 2) - Int(x)) * 100
centavos = Right(Round(centavos, 0), 2)
concon = ""
If PARTE2 > 0 Then concon = " con "
If centavos > 0 Then ALETRAS = ALETRAS + concon + centavos + " centavos"
ALETRAS = ALETRAS + "."
End Function

domingo, 5 de junio de 2011

Leer números en Excel


Esta es una hoja de cálculo que contiene la función personal ALETRAS().
Permite “leer” un número en una celda; el número máximo es 999.999.999 y puede o no tener decimales.
Aquí va una tabla que muestra cuán fácil es usar la función:

B
C
2
2.367,89
dos mil trescientos sesenta y siete con 89 centavos.
3
14,00
catorce.
4
-23,00
veintitrés.
5
0,75
75 centavos.


C2.  =ALETRAS(B2)


C3.  =ALETRAS(B3)


C4.  =ALETRAS(B4)


C5.  =ALETRAS(B5)
El link para bajar el archivo es:

jueves, 26 de mayo de 2011

Troqueles para turnos


Este programa lo hice para colaborar con el Anexo Operativo en donde se pagan planes sociales y conceptos similares, en donde es enorme la concurrencia de público, con largas colas en las veredas que molestan a los vecinos, etc.
Se trata de una hoja de cálculo que genera troqueles con un número y una hora aproximada de atención.
Se supone que estos troqueles deberían ser repartidos entre la gente que está esperando en la cola para que se retiren y vuelvan a la hora a aproximada de atención; esto descongestiona bastante el local.
Se deben informar estos conceptos:
Cantidad de cajeros. Es la cantidad de cajeros que atenderán al público; pueden ser de 1 a 5
Fecha: es la fecha operativa
Primer número: se muestra un cuadro desplegable para que el usuario elija el número inicial a generar, que dependerá de la cantidad de cajeros disponibles.
Centro / Casa: nombre del Anexo Operativo o Sucursal
Horario de comienzo: la hora en que se comenzará a atender al público.
El ticket a imprimir tiene más o menos este aspecto:
BANCO DE LA
NACION ARGENTINA
Anexo Operativo Tucumán
Fecha 26/May
Hora Atención 08:30
1
El programa prevé que se atienda una persona cada 2 minutos.
Se imprimen troqueles en grupos de 4 hojas A4 apaisadas, con hasta 5 columnas (una por cajero) y 5 filas. Si hay 5 cajeros se imprimirán 5 hojas con hasta 100 números, y al elegir el primer número el programa mostrará 1, 101, 201, 301, etc.
Ahora a cortar papeles con una regla y una trincheta...
Pueden bajar el archivo del sitio: