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...
Tengan todos ustedes un excelente año...
Espero que todas su metas y nuevos decubrimientos los puedan realizar de manera magistral...
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
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
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:
Configurar Outlook con GMail
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
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
Combinaciones de teclas de Compiz
Varias combinaciones de teclas
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