Prueba

Prueba

Anuncios

Dos meses

Dulcesita

Nadie sabe esto
Pero conocí la música por tí

Se que si pudieras
Pelearías mis batallas tu por mí

Vences la distancia
Y es tu amor lo que jamás se va de aquí

Tienes mi corazón
tienes cada canción

Te amo y te amare
Y a ciencia cierta sé
Que nuestro amor Ni con el
Tiempo va a desvanecer
Si pudiera escoger
Mi vida otra vez
La viviría contigo amor de nuevo

Sabes un poco de todo
Me proteges me haces sonreír

Somos tan iguales tan distintos
Pero tú me amas así

Se que te esperaba Y que te
amaba desde el día que nací

Tienes mi corazón
Tienes cada canción

Te amo y te amare
Y a ciencia cierta sé
Que nuestro amor Ni con el
Tiempo va a desvanecer
Si pudiera escoger
Mi vida otra vez
La viviría contigo amor

No se si fue la suerte
Fue mi bendición tenerte para mí

Te amo y te amare
Y a ciencia cierta sé
Que nuestro amor Ni con el
Tiempo va a desvanecer
Si pudiera escoger
Mi vida otra vez
La viviría contigo amor de nuevo

Pasar una cantidad en número a cantidad en letra con Excel

Antes de continuar con este post, debo aclarar que el código que utilizo no ha sido desarrollado por mi, lo encontré aquí y le hice algunos ajustes para generar los resultados como a mi me interesaban.
En mi trabajo elaboramos cheques constantemente y resulta tedioso y poco productivo capturar las cantidades en letra, por lo que me puse a buscar y di con este código:

Function Nlet(Number As Double, Optional Kurrencys As String, Optional Kurrency As String) As String
If Kurrencys = "" Then
Kurrencys = "PESOS"
Kurrency = "PESO"
End If
If Kurrency = "" Then Kurrency = Kurrencys
Const MinNum = 0#
Const MaxNum = 4294967295.99
Dim Result As String
If (Number >= MinNum) And (Number <= MaxNum) Then
Dim Kurrenzy As String
Kurrenzy = Kurrency
If Number >= 2 Then Kurrenzy = Kurrencys
If Number = 0 Then Kurrenzy = Kurrencys
If Number < 1 Then Kurrenzy = Kurrencys
Result = RecurseNumber((Fix(Number)))
If Round((Number - Fix(Number)) * 100) < 10 Then
Result = "(" + Result + " " + Kurrenzy + " 0" + Mid(Str(Round((Number - Fix(Number)) * 100)), 2, 1) + "/100 M.N.)"
Else
Result = "(" + Result + " " + Kurrenzy + " " + Mid(Str(Round((Number - Fix(Number)) * 100)), 2, 2) + "/100 M.N.)"
End If
Else
Result = "Error, verifique la cantidad."
End If
Nlet = Result
End Function
Function RecurseNumber(N As Long) As String
Dim Numbers, Tenths, Hundrens
Numbers = Array("CERO", "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISÉIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", _
"VEINTIÚN", "VEINTIDÓS", "VEINTITRÉS", "VEINTICUATRO", "VEINTICINCO", "VEINTISÉIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")
Tenths = Array("CERO", "DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA", "CIEN")
Hundrens = Array("CERO", "CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")
Dim Result As String
Select Case N
Case 0
Result = "CERO"
Case 1 To 29
Result = Numbers(N)
Case 30 To 100
Result = Tenths(N \ 10) + IIf(N Mod 10 <> 0, " Y " + RecurseNumber(N Mod 10), "")
Case 101 To 999
Result = Hundrens(N \ 100) + IIf(N Mod 100 <> 0, " " + RecurseNumber(N Mod 100), "")
Case 1000 To 999999
Result = RecurseNumber(N \ 1000) + " MIL" + IIf(N Mod 1000 <> 0, " " + RecurseNumber(N Mod 1000), "")
Case 1000000 To 1999999
Result = RecurseNumber(N \ 1000000) + " MILLÓN" + IIf(N Mod 1000000 <> 0, " " + RecurseNumber(N Mod 1000000), " DE")
Case 2000000 To 999999999
Result = RecurseNumber(N \ 1000000) + " MILLONES" + IIf(N Mod 1000000 <> 0, " " + RecurseNumber(N Mod 1000000), " DE")
Case 1000000000 To 1999999999
Result = RecurseNumber(N \ 1000000000) + " MIL MILLONES" + IIf(N Mod 1000000000 <> 0, " " + RecurseNumber(N Mod 1000000000), " DE")
Case 2000000000 To 4294967295.99
Result = RecurseNumber(N \ 1000000000) + " BILLONES" + IIf(N Mod 1000000000 <> 0, " " + RecurseNumber(N Mod 1000000000), " DE")
End Select
RecurseNumber = Result
End Function
Sub Nl()
End Sub
 seguir leyendo

Razones para creer en un mundo mejor

Personalmente este tipo de comerciales me motivan a soñar con un mundo mejor. Es difícil pero no imposible. Solo es cuestión de poner todo nuestro esfuerzo en la escuela, en el trabajo, en el hogar.

Eliminemos todo sentimiento negativo de nuestra mente y de nuestros corazones. Aprendamos a perdonar y a escuchar a los demás, a respetar sus ideas y opiniones.

Aprendamos a ayudar a otros sin esperar nada a cambio pues esa satisfacción se compara con nada, no resolviéndoles su vida, pues en ocasiones un consejo basta.

Sonrriamos más y peleemos menos.



World is mine-Hatsune Miku

ESPAÑOL

Quisiera ser
La princesa que siempre vas a amar
Sin dudar
Debes saber
De corazón cómo debe ser

En primer lugar, mi peinado cambié
¿Por qué no has hecho ningún comentario aún?
Segundo
De la cabeza a los pies mírame muy bien, ¿Sí?
Tercer lugar
Si digo algo debes responder
“Bella princesa, sin dudar tus órdenes seguiré”
¿Lo has captado ya?
¡Me estás ignorando otra vez,
Y no lo puedo tolerar!

No es porque
Sea egoísta o algo así,
Sólo quisiera que tú
Pensaras
De corazón que no hay otra
Chica que sea más bonita que yo

Quisiera ser
La princesa que vas a idolatrar
¿No lo entiendes? ¡Escúchame!
Hacerme esperar no es siquiera una opción
¿Acaso crees
Que yo soy como todas las demás?
Rayos, me siento mal
Ahora mi dieta tendré que romper…
… ¡Y tu culpa será!

SEGUIR LEYENDO

Deseo Sexual

Nunca había entendido porqué las necesidades sexuales de los hombres y las mujeres son tan diferentes entre si…Nunca había entendido todas esas idioteces de que las mujeres son de Venus y los hombres de Marte. Y nunca había entendido porqué los hombres piensan con la cabeza y las mujeres con el corazón. Pero……. Una noche, mi esposa y yo nos fuimos a la cama. Y bueno, empezamos a acariciarnos, el inevitable agarre de chichis, el trasero, etc. La cuestión era que ya estaba listo y en ese momento, me dice:

‘Ahorita no tengo ganas mi amor, y tan sólo quiero que me abraces!’

Eso me lo dice con una cara de cínica… ¡Yo dije:

¿¿¿¿¿¿¿QUEEEEEEEE????????

Entonces me dijo las palabras mágicas de toda mujer:

‘No sabes conectarte con mis necesidades emocionales como mujer’.

¡NO JJOODDAAAAAASSSSSSSSSS!

Al final, el asunto era que esa noche no iba a haber pelea, guarde los aceites afrodisíacos, apagué las velas, quité el CD de Alejandro Sanz,(en ese momento casi siempre funciona), apagué el equipo de sonido, guardé las de Grand Duval y demás. Me eché un regaderazo con agua helada a ver si podía calmar a la bestia’ y me puse a ver ‘Discovery’, a todo volumen para no dejar dormir a la hija de mi suegra…Después de un rato me quedé dormido…..

Seguir leyendo

Justicia

Con esta entrada no intento dar el concepto de justicia, sino más bien tratar de exponer la percepción que tengo de ella.

Y comienzo preguntándome ¿qué es justo? y tal vez sea la tontería más grande pero me respondo con otras preguntas:

  • ¿Nuestras leyes son justas?
  • ¿los abogados son justos? ¿Porqué defienden lo indefendible?
  • Si algún familiar cometiera una falta grave ¿Es justo quedarnos callados?
  • ¿Es justo mentir?¿No nos mentimos a nosotros mismos?
  • ¿Es justo tirar basura en la calle?
  • ¿Es justo ir a “trabajar” y no hacer nada?
  • ¿Es justo que, mientras nuestros padres luchan por pagar nuestra educación, sólo vallamos a pasar el rato?
  • ¿Es justo que haya pobreza, marginación, discriminación?
  • ¿Es justo desperdiciar la comida?
  • ¿Es justo tener hijos en la situación en la que vivimos?
  • ¿Es justo que el marido alcoholico golpee a su esposa?
  • ¿Es justo alcanzar el éxito sin importarnos encima de quién pasamos?
  • ¿Es justo criticar a alguien sin saber qué hay detras de lo que vemos?
  • ¿Es justo reirnos de los demás sin criticarnos antes a nosotros mismos?
  • ¿Es justo el amor?
  • ¿Es justo Morir?
  • ¿Es justo Vivir?

seguir leyendo

Cómo comprar una cámara de fotos

Se acerca la temporada navideña y con ella las posadas, convivios, fiestas. Y qué mejor manera de inmortalizar nuestros recuerdos con una buena cámara. Pero ¿cómo elegir la adecuada?

Muchos piensan (entre ellos estaba yo hasta hace poco tiempo) que la calidad de las fotos es proporcional al número de megapixeles. Pues no es cierto!!!  10 megapixeles en una cámara compacta actual ya están de sobra, incluso para reencuadrar por si hay algún elemento que no queramos en nuestra foto final. Sólo que se requiera imprimir una foto en tamaño póster o superior, entonces si estaría justificado un mayor número de megapixeles.

  Seguir leyendo

Cómo te deshaces de tus pilas?

Lo queramos o no, las pilas estan presentes en nuestra vida diaria, desde una lámpara, una grabadora, relojes, control remoto, perifericos inalámbricos, celulares, etc. Por lo mismo, el daño que estamos causando al ecosistema crece en gran medida y no hablo sólo del aire que respiramos, como cuando queman la basura para deshacerse de ella, sino del agua que bebemos y de la tierra en la que se siembran los alimentos que comemos.

Los metales y productos químicos constituyentes de las pilas pueden resultar perjudiciales para el medio ambiente, produciendo contaminación química. Es muy importante no tirarlas a la basura (en algunos países no está permitido), sino llevarlas a centros de reciclado. En algunos países, la mayoría de los proveedores y tiendas especializadas también se hacen cargo de las pilas gastadas. Una vez que la envoltura metálica que recubre las pilas se daña, las sustancias químicas que contienen se ven liberadas al medio ambiente causando contaminación. Con mayor o menor grado, las sustancias son absorbidas por la tierra pudiéndose filtrar hacia los mantos acuíferos y de éstos pueden pasar directamente a los seres vivos, entrando con esto en la cadena alimenticia.

Estudios especializados indican que una micro pila de mercurio, puede llegar a contaminar 600.000 litros de agua, una de zinc-aire 12.000 litros y una de óxido de plata 14.000 litros.

Las pilas son residuos peligrosos por lo que desde el momento en que se empiezan a reunir, deben ser manejadas por personal capacitado que siga las precauciones adecuadas empleando todos los procedimientos técnicos y legales del manejo de residuos peligrosos.

Es imperativo, que, tanto las empresas que fabrican dichas pilas y los gobernantes, tomen las medidas necesarias para el correcto reciclaje de estas mismas. Que fomenten el hábito de reciclar entre los ciudadanos y concienticen a la población de los daños que puede causar una sóla de estas pequeñas pilas:

Y es que con el dinero que se gastan en campañas, viajes, coches, sueldos desorbitantes, tranzas y demás, bien podría alcanzar para reducir en gran medida este daño irremediable que estamos ocasionando. Y sí, también es nuestra obligación deshacernos correctamente de ellas.

Seguir leyendo