Calcular años antigüedad laboral

Siguiendo con la necesidad de excel, en este caso calcular antigüedad laboral, de las muchas formas o formulas que encontré esta es la que mas me gusto por lo rápida

Ambas celdas , de clic derecho con el ratón, y en el menú contextual que aparece, tienen que estar en formato fecha, lo define en “Formato de celdas” 

La formula es la siguiente

=SIFECHA(A1;B1;"Y")

en donde A1 y B1 son las fechas de ingreso y la actual para determinar la cantidad en años

Si quieren restar meses y días en la fuente de esta formula hay mas detalles

Fuente

http://www.gerencie.com

Convertir números a texto (letras) en Excel

En estos momentos tengo la necesidad de pasar resultado en numero a letras, buscando en la web encontré varios que se refiere al mismo método, pero como a mi no me gusta todo escrito en mayúscula, lo adapte a Minúsculas, hasta el momento no he detectado problemas
Los valores los expresa en Pesos, si lo necesitan en otra moneda, busquen la palabra "Pesos" y la cambian por la que necesiten


If Trim(CADMILES & CADCIENTOS) = "Un" Then
CADENA = CADENA & "Uno Pesos" & DECIMALES & "/100"
Else
If MILES & CIENTOS = "000000" Then
CADENA = CADENA & " " & Trim(CADCIENTOS) & " Pesos " & "con" & " " & DECIMALES & "/100 .-"

Else
CADENA = CADENA & " " & Trim(CADCIENTOS) & " Pesos " & "con" & " " & DECIMALES & "/100 .-"




los pasos son

1) Seleccionar la celda (vacía) donde se hará la conversión.

2) Para Excel 2003, dar clic en Herramientas/Macro/Editor de Visual Basic; para Excel 2007, dar clic en la ficha Vista, opción Macro, Ver Macros, escribir el nombre y clic en crear. Con cualquiera de las dos versiones aparece una ventana de nombre Microsoft Visual Basic – Libro1, ahí es donde se pegará el siguiente código (escrito mas abajo), antes borra las dos líneas de código que ahí aparecen.

3)Guardas los cambios y cierras la ventana Microsoft Visual Basic.

4)Da clic en el ícono de Excel Insertar función “fx”, aparece una ventana en la cual debes buscar CONVIERTENUMLETRA, cuando salga la seleccionamos y damos clic en aceptar, en la siguiente ventana escribimos la celda que contiene el número a convertir, por ejemplo “e5″.

5)Ahora presionas ENTER y disfrútalo.


código



Function CONVIERTENUMLETRA(NUMERO)
Dim TEXTO
Dim MILLONES
Dim MILES
Dim CIENTOS
Dim DECIMALES
Dim CADENA
Dim CADMILLONES
Dim CADMILES
Dim CADCIENTOS
TEXTO = NUMERO
TEXTO = FormatNumber(TEXTO, 2)
TEXTO = Right(Space(14) & TEXTO, 14)
MILLONES = Mid(TEXTO, 1, 3)
MILES = Mid(TEXTO, 5, 3)
CIENTOS = Mid(TEXTO, 9, 3)
DECIMALES = Mid(TEXTO, 13, 2)
CADMILLONES = CONVIERTECIFRA(MILLONES, 1)
CADMILES = CONVIERTECIFRA(MILES, 1)
CADCIENTOS = CONVIERTECIFRA(CIENTOS, 0)
If Trim(CADMILLONES) > "" Then
If Trim(CADMILLONES) = "Un" Then
CADENA = CADMILLONES & " Millon"
Else
CADENA = CADMILLONES & " Millones"
End If
End If
If Trim(CADMILES) > "" Then
CADENA = CADENA & " " & CADMILES & " Mil"
End If


If Trim(CADMILES & CADCIENTOS) = "Un" Then
CADENA = CADENA & "Uno Pesos" & DECIMALES & "/100" & " M.N. "
Else
If MILES & CIENTOS = "000000" Then
CADENA = CADENA & " " & Trim(CADCIENTOS) & " Pesos " & "con" & " " & DECIMALES & "/100 .-"

Else
CADENA = CADENA & " " & Trim(CADCIENTOS) & " Pesos " & "con" & " " & DECIMALES & "/100 .-"
End If
End If
CONVIERTENUMLETRA = Trim(CADENA)
End Function

Function CONVIERTECIFRA(TEXTO, SW)
Dim CENTENA
Dim DECENA
Dim UNIDAD
Dim TXTCENTENA
Dim TXTDECENA
Dim TXTUNIDAD
CENTENA = Mid(TEXTO, 1, 1)
DECENA = Mid(TEXTO, 2, 1)
UNIDAD = Mid(TEXTO, 3, 1)
Select Case CENTENA
Case "1"
TXTCENTENA = "CIEN"
If DECENA & UNIDAD <> "00" Then
TXTCENTENA = "Ciento"
End If
Case "2"
TXTCENTENA = "Doscientos"
Case "3"
TXTCENTENA = "Trescientos"
Case "4"
TXTCENTENA = "Cuatrocientos"
Case "5"
TXTCENTENA = "Quinientos"
Case "6"
TXTCENTENA = "Seiscientos"
Case "7"
TXTCENTENA = "Setecientos"
Case "8"
TXTCENTENA = "Ochocientos"
Case "9"
TXTCENTENA = "Novecientos"
End Select

Select Case DECENA
Case "1"
TXTDECENA = "Diez"
Select Case UNIDAD
Case "1"
TXTDECENA = "Once"
Case "2"
TXTDECENA = "Doce"
Case "3"
TXTDECENA = "Trece"
Case "4"
TXTDECENA = "Catorce"
Case "5"
TXTDECENA = "Quince"
Case "6"
TXTDECENA = "Dieciseis"
Case "7"
TXTDECENA = "Diecisiete"
Case "8"
TXTDECENA = "Dieciocho"
Case "9"
TXTDECENA = "Diecinieve"
End Select
Case "2"
TXTDECENA = "Veinte"
If UNIDAD <> "0" Then
TXTDECENA = "Veinti"
End If
Case "3"
TXTDECENA = "Treinta"
If UNIDAD <> "0" Then
TXTDECENA = "Treinta y"
End If
Case "4"
TXTDECENA = "Cuarenta"
If UNIDAD <> "0" Then
TXTDECENA = "Cuarenta y"
End If
Case "5"
TXTDECENA = "Cincuenta"
If UNIDAD <> "0" Then
TXTDECENA = "Cincuenta y"
End If
Case "6"
TXTDECENA = "Sesenta"

If UNIDAD <> "0" Then
TXTDECENA = "Sesenta y"
End If
Case "7"
TXTDECENA = "Setenta"
If UNIDAD <> "0" Then
TXTDECENA = "Setenta y"
End If
Case "8"
TXTDECENA = "Ochenta"
If UNIDAD <> "0" Then
TXTDECENA = "Ochenta y"
End If
Case "9"
TXTDECENA = "Noventa"
If UNIDAD <> "0" Then
TXTDECENA = "Noventa y"
End If
End Select

If DECENA <> "1" Then
Select Case UNIDAD
Case "1"
If SW Then
TXTUNIDAD = "Un"
Else
TXTUNIDAD = " Uno"
End If
Case "2"
TXTUNIDAD = " Dos"
Case "3"
TXTUNIDAD = " Tres"
Case "4"
TXTUNIDAD = " Cuatro"
Case "5"
TXTUNIDAD = " Cinco"
Case "6"
TXTUNIDAD = " Seis"
Case "7"
TXTUNIDAD = " Siete"
Case "8"
TXTUNIDAD = " Ocho"
Case "9"
TXTUNIDAD = " Nueve"
End Select
End If
CONVIERTECIFRA = TXTCENTENA & " " & TXTDECENA & TXTUNIDAD
End Function





En lo particular me funciono bien

Fuentes

http://vateos.net/

http://www.taringa.net/

Economía para Tontitos

Un reflejo de la economía local circula por la web y explica como funcionan los tributos en la Argentina: 

Mucha gente llegó a la conclusión que hay que ser muy estúpido para trabajar en la Argentina arriesgando un capital conseguido en años de trabajo, cuando el país está lleno de parásitos que lo único que saben es pedir subvenciones, subsidios, créditos a tasa cero (o directamente sin devolución de lo prestado), jubilaciones sin haber hecho aportes y otras linduras por el estilo. Lo peor de todo es que también el país está lleno de demagogos saqueadores y oportunistas dispuestos a satisfacer a los parásitos. 


¿Cómo funciona el sistema de impuestos ? 

Suponga que todos los días 10 hombres se reúnen en un bar para charlar y beber cerveza. La cuenta total de los diez hombres es de $100. Si ellos pagasen la cuenta de la manera proporcional en que se pagan los impuestos en la sociedad del país, la cosa sería más o menos así, de acuerdo con la escala de riqueza e ingresos de cada uno: 

Los primeros 4 hombres (los más pobres) no pagan nada. 
El 5º paga $1. 
El 6º paga $3. 
El 7º paga $7.El 8º paga $12. 
El 9º paga $18. 
El 10º (el más rico) paga $59. 

Entonces, eso es lo que decidieron que harían en adelante, todos se divertían, y estaban conformes con el acuerdo entre ellos. Hasta que un día ..., el dueño del bar les metió en un problema: "Ya que ustedes son tan buenos clientes," les dijo, "Les voy a reducir el costo de sus cervezas diarias en 20%. Ahora los tragos costarán sólo $80 en vez de $100." El grupo quiso, sin embargo, seguir pagando la cuenta en la misma proporciónque lo hacían antes, de modo que los cuatro primeros siguieron bebiendo gratis. La rebaja no les afectaba en absoluto. ¿Pero qué pasa con los otros seis bebedores, los que realmente pagan la cuenta? ¿Cómo debía dividir los $20 de rebaja de manera que cada uno recibiese una porción justa? 

Calcularon que los $20 divididos en 6 eran $3,33. Pero si restaban eso de la porción de cada uno, entonces el 5º y 6º hombre estarían cobrando para beber, ya que el 5º pagaba antes $1 y el 6º $3. Entonces el barman sugirió que sería justo reducir la cuenta de cada uno por aproximadamente la misma proporción, y procedió a calcular la cantidad que cada uno debería pagar. 

El 5º bebedor, lo mismo que los cuatro primeros, no pagaría nada (100% de ahorro). 
El 6º pagaría ahora $2 en lugar de $3. (se ahorra 33%). 
El 7º pagaría $5 en lugar de $7. (se ahorra 28%). 
El 8º pagaría $9 en lugar de $12. (se ahorra 25%). 
El 9º pagaría $14 en lugar de $18. (se ahorra 22%). 
El 10º pagaría $49 en lugar de $59 (se ahorra 16%). 

Cada uno de los seis pagadores estaba ahora en una situación mejor que antes. Y los primeros cuatros bebedores seguirían bebiendo gratis, y un quinto también.Pero, una vez fuera del bar, comenzaron a comparar lo que estaban ahorrando."Yo sólo recibí un peso de los $20 ahorrados," dijo el 6º hombre. Señaló al 10º bebedor y dijo: "¡Pero él recibió $10!" "Sí, es correcto," dijo el 5º hombre. "Yo también sólo ahorré $1. Es injusto que él reciba diez veces más que yo." "¡¡Verdad!!", exclamó el 7º hombre. "¿Por qué recibe él $10 de rebaja cuando yo recibo nada más que $2? ¡Los ricos siempre reciben los mayores beneficios!""¡Un momento!", gritaron los cuatro primeros al mismo tiempo. "¡Nosotros no hemos recibido nada de nada. El sistema explota a los pobres!" 
¡¡¡Los nueve hombres rodearon al 10º y lo increparon!!!. 

La noche siguiente, el 10º hombre no acudió a beber, de modo que los nueve se sentaron y bebieron sus cervezas sin él. Pero a la hora de pagar la cuenta descubrieron algo inquietante: Entre todos ellos no juntaban el dinero para pagar ni siquiera LA MITAD de la cuenta. 

Y así es, amigos y amigas, periodistas y profesores universitarios, gremialistas y asalariados, profesionales y gente de la calle, la manera en que funciona el sistema de impuestos. La gente que paga los impuestos más altos son los que se benefician más de una reducción de impuestos. Póngales impuestos muy altos, atáquenlos por ser ricos y lo más probable es que no aparezcan nunca más (¿¿¿¿Les suena U$S 150.000.000.000 en el exterior????). 

De hecho, es casi seguro que comenzarán a beber en algún bar en el extranjero, donde la atmósfera es algo más amigable. Moraleja: "El problema con el populismo es que eventualmente uno termina quedándose sin el dinero de la otra gente." 


Para quienes comprenden esto, no es necesaria una explicación. 
Para quienes no lo comprendieron, no hay otra explicación posible. 

Lo interesante sería que esto lo lean los 4 primeros bebedores, pero seguramente no saben leer, porque se pasaron toda la vida tomando cerveza gratis.

FUENTE