by RED Contable MX- | Ene 15, 2011 | Calendario Fiscal, Fiscal
Recuerde que en caso de haber elegido la opción que señala la regla II.13.5.1 de la Segunda Resolución de Modificaciones a la RMF para 2010, usted deberá presentar su información acumulada (enero a diciembre de 2010), durante enero de 2011.
Para tal efecto deberá elegir el ejercicio 2010 y el mes de diciembre, además deberá señalar el número de operación proporcionado por la institución bancaria en donde se efectuó el pago y la fecha de presentación o, en caso de no haber existido cantidad a pagar, la fecha del envío del último listado, y en el campo de número de operación señalar CERO.
by RED Contable MX- | Ene 15, 2011 | Excel, Utilidades
Una de las funciones de Microsoft Excel más buscadas en la red y en los foros, es como convertir un numero a texto o numero a letras, esta función no viene integrada en las formulas propias de Microsoft Excel, esto lo podemos hacer insertando un código llamado “Macro”, que no son mas que instrucciones que nos ayudan a automatizar tareas en Excel (también se usa en Word, Access etc.).
En la red se puede encontrar muchos de estos “codigos”, algunos permiten manejar varias monedas, dólares, Euros etc. Uno de los más usados y mas que excelente es el de Mauricio Baeza, ¡100% hecho en México!, seguramente ya lo haz usado, desde entonces han surgido muchas variantes y modificaciones; pero muy pocos sitios o casi nunguno muestran como usarlos.
Vamos a empezar, primero necesitamos el código, vamos a usar este que al parecer el autor es Saúl López con una pequeña modificación de ByPaco² para que aparezca Pesos y M.N.
Function PesosMN(tyCantidad As Currency) As String
Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito <> 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito <= 2 Then
lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)
Else
lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque
End If
lnSegundoDigito = lnDigito
Case 3
lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque
lnTercerDigito = lnDigito
End Select
Else
lnBloqueCero = lnBloqueCero + 1
End If
lyCantidad = Int(lyCantidad / 10)
If lyCantidad = 0 Then
Exit For
End If
Next I
Select Case lnNumeroBloques
Case 1
PesosMN = lcBloque
Case 2
PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosMN
Case 3
PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosMN
End Select
lnNumeroBloques = lnNumeroBloques + 1
Loop Until lyCantidad = 0
PesosMN = "SON: (" & PesosMN & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function
Bien, ahora que ya tenemos el código vamos a insertarlo en nuestra hoja de trabajo de Microsoft Excel. Recomendable trabajar en un libro nuevo.
Hacemos clic en Herramientas->Macros->Editor de Visual Basic, o simplemente presionando Alt+F11
Es importante que cierres todos los libros que tengas abierto y dejes abierto solo el libro en el que estas trabajando ya que podría dificultarte encontrar tu libro en el explorador de proyectos (lado izquierdo de tu pantalla, si no lo ves presiona Ctrl+R)
Una vez abierto el editor de Visual Basic nos vamos a Insertar->Modulo
En la ventana que se abre pegamos el codigo de la macro
Listo, ya tenemos nuestro macro listo para trabajar, cerramos el editor de Visual Basic, lo puedes hacer con Alt+Q y regresamos a Microsoft Excel
Vamos a probarlo, en la celda A1 ponemos un importe, yo pondré 1500.21, abajo, en la celda A2 ponemos =PesosMN(A1)
Esperamos les sea de utilidad.
Fuente: http://gchable.wordpress.com
by RED Contable MX- | Ene 15, 2011 | Economía y Finanzas
El peso mexicano se apreció el miércoles 10.69 centavos ante el dólar spot, que cerró en 12.0820 unidades, su menor cotización desde el 6 de octubre de 2008.
Tras la aprobación de la Línea de Crédito Flexible por 72 mil millones de dólares para México por dos años y la debilidad generalizada del dólar, el peso se ha fortalecido con respecto a la divisa estadounidense al disminuir la incertidumbre sobre las condiciones económicas mundiales y ante la entrada de capitales extranjeros al país.
De acuerdo con el Banco de México, la moneda nacional hiló tres sesiones de ganancias, en las que su avance de 16.80 centavos le permitió alcanzar cotizaciones por abajo de 12.10 unidades, algo no visto desde octubre de 2008, cuando el peso sufrió importantes descalabros a causa de la crisis internacional y a los acontecimientos corporativos de nuestro país.
Otro factor que alentó al mercado cambiario nacional fue la caída de la aversión al riesgo debido al resultado favorable de la colocación de deuda de Portugal, que emitió mil 250 millones de euros en bonos con vencimiento en 2014 y 2020, con tasas de 4.041 y 6.716 por ciento, respectivamente.
Para analistas, el actual nivel del tipo de cambio resulta cómodo para los agentes económicos, pues cotizaciones de entre 11 y 11.50 pesos ya no reflejarían las condiciones económicas de México y se castigaría al mercado.
La moneda azteca podría tocar cotizaciones cercanas a 11.75 pesos, la cual podría ser un nivel de equilibrio al margen de lo que sucede en América Latina.
El banco central ejerció ayer la totalidad de la subasta de opciones de venta de dólares por 600 millones para enero al adquirir los últimos cinco millones, por lo que las reservas internacionales seguirán en niveles récord.
El precio del petróleo continúa subiendo, siendo otra fuente de ingreso de dólares hacia México. Los principales analistas anticipan que pudiera llegara a los cien dólares durante los primeros dos meses del año.
Los futuros del crudo WTI en Estados Unidos para febrero subieron 75 centavos (0.82 por ciento) a 91.86 dólares por barril, su mayor nivel desde el 3 de octubre de 2008.
El contrato del crudo Brent del Mar del Norte para febrero avanzó 55 centavos de dólar para cerrar en 98.16 dólares el barril, su mayor cotización desde el 1 de octubre de 2008.
Por su parte, la mezcla mexicana de exportación finalizó en 85.83 dólares, un aumento de 0.72 por ciento.
Fuente: El financiero, Finanzas. Clara Zepeda Hurtado
