Función Sobregiro:
Como sabemos, las empresas requieren de fondos para poder mantener sus operaciones diarias. Entre las distintas fuentes de financiamiento que otorgan los bancos, existe el sobregiro; el cual permite una respuesta rápida ante necesidades de dinero en el muy corto plazo.
El banco nos cobra intereses por hacer uso de su dinero. Por tal motivo, es muy importante conocer cuanto nos cobran los bancos dado que dichos intereses corresponden al gasto financiero de la empresa y por consiguiente aparecerán en los EEFF.
Con la función Sobregiro se busca calcular cuanto nos cobran los bancos por el uso de su línea de sobregiro. El cálculo es diario y parte de los 2 siguientes datos:
- Saldo: Es la cantidad de dinero que se tiene en cada cuenta bancaria. Si el monto es positivo, entonces no existirá sobregiro dado que la empresa tuvo efectivo para cumplir con sus pagos. De lo contrario, si el saldo fuera negativo, significaría que la empresa tuvo un déficit de dinero para cumplir con sus pagos y por lo tanto tuvo que hacer uso del sobregiro.
- TEA (Tasa Efectiva Anual): Es la Tasa de Efectivo Anual que nos cobra el banco. Para calcular el sobregiro diario, se tiene que convertir a una Tasa Efectiva Diaria (TED)
Además del calculo de sobregiro, he querido añadir un formato diferente en caso el banco nos cobre sobregiro o si no nos cobrase. Si nos cobra sobregiro, el valor debería aparecer en letra roja y en negrita, caso contrario en negro y en negrita.
Tenemos la siguiente información:
(Para mayor visualización de la imagen, hacer click en la misma)
Function sobregiro(saldo, tasa)
tasa_diaria = (tasa + 1) ^ (1 / 360) - 1
If saldo < 0 Then
sobregiro = saldo * tasa_diaria
With Selection.Font
.Name = "Calibri"
.FontStyle = "Negrita"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = -0.249977111
.ThemeFont = xlThemeFontMinor
End With
ElseIf saldo >= 0 Then
sobregiro = 0
With Selection.Font
.Name = "Calibri"
.FontStyle = "Negrita"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 0
.TintAndShade = -0.249977111
.ThemeFont = xlThemeFontMinor
End With
End If
sobregiro = Round(sobregiro, 2)
End Function
Si se aplica la función, debería de aparecer lo siguiente:
(Para mayor visualización de la imagen, hacer click en la misma)
Elaborado por: Sebastian Floriano Guardia