Blogia
Christian Torres

ALTERNATIVAS

FELIZ AÑO 2012

Tengan todos ustedes un excelente año...

Espero que todas su metas y nuevos decubrimientos los puedan realizar de manera magistral...

Calcular edad cronologica

Les comparto estas 2 funciones teniendo como principal a la funcion calculo_e

La invocacion seria asi:    DIM S as string =calculo_e(fecha_nacimiento, fecha_hoy)

 

 

 

 

 

 

 

Function dias_mes(ByVal n As Integer, ByVal a As Integer) As

Long

 

Select Case n

 

Case 1, 3, 5, 7, 8, 10, 12

dias_mes = 31

 

Case 4, 6, 9, 11

dias_mes = 30

 

Case 2

 

If (a Mod 4) = 0 Then
 

dias_mes = 29

Else

dias_mes = 28

 

End If

 

Case

Else

dias_mes = 0

 

End Select

 

End Function

 

Function calculo_e(ByVal fn As Date, ByVal fh As Date) As

String

 

Dim dd As

Integer

 

Dim mm As

Integer

 

Dim yy As

Integer

 

Dim da As

Integer

 

Dim ma As

Integer

 

Dim ya As

Integer

 

Dim d As

Integer

 

Dim m As

Integer

 

Dim y As

Integer

dd = fn.Day

da = fh.Day

mm = fn.Month

ma = fh.Month

yy = fn.Year

ya = fh.Year

 

If da < dd Then
 

da = da + dias_mes(ma, ya)

ma = ma - 1

 

End If

If ma < mm

Then

ma = ma + 12

ya = ya - 1

 

End

If

d = da - dd

m = ma - mm

y = ya - yy

 

Return (y & " AOS" & "CON " & m & " MESES" & "Y " & d & " DIAS")

End

Function

 

 

COMO CONFIGURAR GMAIL COMO POP

Aquí explicamos como configurar tu cuenta de correo Gmail como cuenta POP

Una de las posibilidades que nos ofrece GMail es leer nuestra cuenta de correo desde programas como Outlook o Thunderbird. Para configurar tu cuenta tendrás que seguir estos pasos:

Entra en tu cuenta de GMail y pulsa en la opción Settings para ver las opciones de tu cuenta. Una vez allí pulsa en la opción Forwarding and POP. Aquí podrás configurar las opciones.
 
Aquí activaremos las siguientes opciones:
  • Activa la opción Enable POP for all mail (si quieres recibir todo el correo de tu cuenta) o Enable POP for mail that arrives from now on (si quieres sólo recibir el correo "nuevo").
  • Elige que quieres hacer con el correo que se descarga: Keep GMail's copy in the Inbox (para mantener el correo en la bandeja de entrada), archive's GMail's copy (si quieres guardar una copia del mensaje) o trash GMail's copy (si quieres eliminar el mensaje).
Una vez hayas activado la posibilidad de que GMail te envie el correo a tu programa de correo (Outlook, Thunderbird...) tendremos que configurarlo.
 

Configurar Outlook con GMail

Si eres de los que utiliza Outlook Express u Outlook 2002 lo tienes muy sencillo.
Lo único que has de hacer es descargarte la Herramienta de Auto-Configuración y seguir estos simples pasos.
  • Selecciona el programa que quieras configurar
  • Introduce tu "nombre de usuario" de GMail
  • Escribe el nombre que quieres que vean cuando envies un mensaje.
Configuración manual del POP con GMail
Para configurar tu cuenta de correo de GMail con cualquier programa cliente de correo, sólo has de tener en cuenta los datos siguientes.
  • Cuenta de Correo: usuario@gmail.com
  • Usuario: usuario@gmail.com (hay que poner el @gmail.com)
  • Datos POP:
    • Servidor: pop.gmail.com
    • Usar SSL: SÍ
    • Puerto: 995
  • Datos SMTP:
    • Servidor: smtp.gmail.com
    • Usar Autentificación: SÍ
    • Usar SSL (STARTTLS): SÍ
    • Puerto: 465 ó 587
Hay que tener en cuenta que los programas que no tengan soporte SSL no podrán configurar GMail

QUITAR O MODIFICAR CLAVE OLVIDADA DE WINDOWS

Lo primero que tiene que hacer es reiniciar tu pc y antes de que inicie el widows xp pulse la tecla F8 si se lo hace correctamente saldran unas opciones: pulsar la que dice ’’ PRUEBA DE ERRORES’’. No se preocupes por la resolución de su pc cuando inicies la seción normalmente todo estara bien.

Ahora como cambiarla o como quitarla: Ir a ’’PANEL DE CONTROL /CUENTAS DE USUARIO EL ORDENADOR QUE SE OLVIDO LA CLAVE. Luego escoger la opción quitar contraseña no se preocupe que en prueba de errores no pida la la contraseña actual sino que se quitara automaticamente sin pedir nada.

Vuelva a reiniciar el equipo y listo contraseña cambiada o eliminada. 

Combinaciones de teclas para Ubuntu

Combinaciones de teclas para Ubuntu 

Ubuntu piensa en el usuario. Para quienes todavía piensan que utilizar Linux es complicado, os traemos una recopilación de 40 combinaciones y atajos de teclado.

Mejora tu productividad y velocidad utilizando estas combinaciones en Ubuntu:

1) Ctrl+A = Seleccionar todo (En Documentos, Firefox, Nautilus, etc, no funciona en Terminal)

2) Ctrl+C = Copiar (En Documentos, Firefox, Nautilus, etc, no funciona en Terminal)

3) Ctrl+V = Pegar (En Documentos, Firefox, Nautilus, etc, no funciona en Terminal)

4) Ctrl+N = Nuevo (Crea un documento nuevo, no funciona en Terminal)

5) Ctrl+O = Abrir (Abrir un documento, no funciona en Terminal)

6) Ctrl+S = Guardar (Guardar el documento actual, no funciona en Terminal)

7) Ctrl+P = Imprimir (Imprime el documento actual, not in terminal)

8 ) Ctrl+E = Enviar a… (Envía el documento actual por email, not in terminal)

9) Ctrl+W = Cerrar (Cierra el documento actual, not in terminal)

10) Ctrl+Q = Cerrar ventana (Cierra la aplicación actual, not in terminal)

11) Ctrl + Alt + F1 = Cambia a la primera terminal de consola.

12) Ctrl + Alt + F2(F3)(F4)(F5)(F6) = Selecciona diferentes terminales de consola.

13) Ctrl + Alt + F7 = Volver a la sesión gráfica.

14) Ctrl+Alt++ = Cambia a la siguiente resolución de pantalla (Depende de tu configuración X).

15) Ctrl+Alt+- = Cambia a la anterior resolución X (Depende de tu configuración X).

16) Ctrl + Alt + Backspace = Reiniciar servidor X (por defecto, deshabilitado en Ubuntu 9.04).

17) Alt+Tab = Cambiar entre los programas abiertos.

18 ) Alt+ F1 = Abrir menú de aplicaciones.

19 ) Ctrl+Alt+tab = Navegar entre los programas abiertos.

20 ) ImprPant = Capturar pantalla

21) Ctrl+C =  (usado en el terminal) Terminar proceso actual

22) Ctrl + F10 = Menú contextual (botón derecho).

23) Ctrl+Z = (usado en terminal) Enviar proceso al "background.

24) Ctrl+D = Fin de sesión.

25) Ctrl+A = (Usado en terminal) Volver al inicio de la linea.

26) F2 = Renombrar.

27) Ctrl+E = (Usado en terminal) Ir al final de la linea.

28) Ctrl+H = Mostrar/Ocultar archivos ocultos.

29) Ctrl+U = (Usado en terminal) Borrar linea actual.

30) Alt +F4 = Cerrar ventana.

31) Ctrl + Alt + L = Bloquear pantalla.

32) Ctrl+W = (Usado en terminal) Borrar palabra anterior al cursor.

33) Flechas Arriba y Abajo = (Usado en terminal) Buscar entre el histórico de comandos.

34) Ctrl+R = (Usado en terminal) Busca entre el historial comandos que comienzan por las letras que pulses.

35) Alt + F2 = Abre menú de ejecución.

36) Alt + F5 = Restaurar ventana maximizada.

37) Ctrl+T= Abrir nueva pestaña.

38) Ctrl+L = Limpia ventana del terminal.

39) Shift+insert = (Usado en terminal) Pegar

40) Click en la rueda del ratón = Pegar texto seleccionado.

 

 

Las combinaciones de teclas permiten incrementar la productividad y nos ayudan a ahorrar tiempo, ya que permiten realizar ciertas funciones sin levantar las manos del teclado para utilizar el ratón. A continuación muestro 25 combinaciones de teclas para Ubuntu, con las que aumentarás la rapidez a la hora de manejarte con tu sistema operativo

Combinaciones de teclas de Nautilus

 

  • Shift + Ctrl + N: crea una nueva carpeta
  • Alt + Enter: muestra las propiedades del elemento seleccionado
  • Ctrl + 1: cambia la forma de ver los elementos de una carpeta
  • Ctrl + W: cierra la ventana actual
  • Ctrl + Shift + W: cierra todas las ventanas de Nautilus
  • Ctrl + T: abre una nueva pestaña
  • Alt + Flecha arriba/abajo: moverse a la carpeta padre/hija
  • Alt + Flecha izqda./dcha: moverse hacia adelante o hacia atrás
  • Alt + Home: Ir a nuestra carpeta /home
  • F9: Mostrar u ocultar el panel lateral
  • Ctrl + H: mostrar u ocultar las carpetas o archivos ocultos

 

Combinaciones de teclas de Compiz

 

  • Win + E: muestra todos los escritorios en horizontal a la vez
  • Alt + Ctrl + Flecha Izqda/dcha: mover la ventana actual a otro escritorio
  • Alt + Shift + Flecha arriba: activa efecto exposé
  • Alt + F9/F10: minimizar/maximizar la ventana actual
  • Alt + F5: devuelve una ventana a su tamaño original (el que tenía antes de maximizar)
  • Alt + F7: al pulsar esta combinación de teclas podremos mover la ventana actual por la pantalla utilizando las flechas de dirección
  • Alt + F8: redimensiona el tamaño de la ventana actual
  • Ctrl + Alt + D: mostrar el escritorio
  • Alt + Shift + Tab: cambia entre ventanas

Varias combinaciones de teclas

  • Ctrl + Alt + L: permite bloquear nuestro escritorio. Para volver a verlo tendremos que introducir nuestra contraseña
  • Alt + Impr pant: realiza una captura de pantalla de la ventana actual
  • Win + rueda del ratón: realiza zoom sobre el escritorio

Convertir Números a Letras

FUNCIONES PARA CONVERTIR NUMEROS A LETRAS

 

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
 If CADENA = "" And Trim(CADMILES) = "MIL" Then
 CADENA = "MIL"
 Else
 CADENA = CADENA & " " & CADMILES & " MIL"
End If
End If


If Trim(CADMILES & CADCIENTOS) = "UN" Then
CADENA = CADENA & "UNO CON" & DECIMALES & "/100" & " M.N. "
Else
If MILES & CIENTOS = "000000" Then
CADENA = CADENA & " " & Trim(CADCIENTOS) & " CON " & DECIMALES & "/100" & " DOLARES "
Else
CADENA = CADENA & " " & Trim(CADCIENTOS) & " CON " & DECIMALES & "/100" & " DOLARES "
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 = "DIECINUEVE"
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

Sub iniC()
Dim s As String
Dim N As Double
N = 12754.35
s = CONVIERTENUMLETRA(N)
MsgBox s
End Sub