Función Para Excel cambia a letras numeros

Function Letras(x)
Nu = Array("cero", "uno", "dos", "tres", "cuatro", "cinco", _
"seis", "siete", "ocho", "nueve", "diez", "once", "doce", _
"trece", "catorce", "quince", "dieciseis", "diecisiete", _
"dieciocho", "diecinueve", "veinte", "veintiuno", "veintidos", _
"veintitres", "veinticuatro", "veinticinco", "veintiseis", _
"veintisiete", "veintiocho", "veintinueve")
Nd = Array("", "", "", "treinta", "cuarenta", "cincuenta", _
"sesenta", "setenta", "ochenta", "noventa")
Nc = Array("", "ciento", "doscientos", "trescientos", "cuatrocientos", _
"quinientos", "seiscientos", "setecientos", "ochocientos", "novecientos")
u = x Mod 10
d = Int(x / 10) Mod 10
c = Int(x / 100)
If d > 2 Then
Letras = Nd(d) + " y " + Nu(u)
Else
u = d * 10 + u
Letras = Nu(u)
End If
If u = 0 Then Letras = Nd(d)
If c > 0 Then Letras = Nc(c) + " " + Letras
If x = 100 Then Letras = "cien"
End Function


Function Enletras(x)
centavos = Int(x * 100) Mod 100
x = Int(x)
grupo1 = x Mod 1000
grupo2 = Int(x / 1000) Mod 1000
grupo3 = Int(x / 1000000)
n = Letras(grupo3)
If Right(n, 3) = "uno" Then
Enletras = Left(n, Len(n) - 1) + " millones "
Else
If grupo3 > 0 Then Enletras = n + " millones "
End If
If grupo3 = 1 Then Enletras = "un millón "
n = Letras(grupo2)
If Right(n, 3) = "uno" Then
Enletras = Enletras + Left(n, Len(n) - 1) + " mil "
Else
If grupo2 > 0 Then Enletras = Enletras + n + " mil "
End If
If grupo1 > 0 Then Enletras = Enletras + Letras(grupo1)
If centavos > 0 Then Enletras = Enletras + " con " + Str(centavos) + "/00"
End Function

T'ai Fu: Wrath of the Tiger

Estos son los nombres
Soundtrack: T’ai Fu: Wrath of the Tiger
Autor: Michael Giacchino

#	Title	Length
1	Main Menu / Credits	02:43
2	Map Screen	01:52
3	Bamboo Hill / Tiger Ruins	03:31
4	Panda Temple / Bamboo Forest	03:02
5	Leopard Jungle / Leopard Fortress	03:07
6	Leopard Lookout	02:44
7	Temple Bridges	03:23
8	Mantis Caves / Mantis Lair	03:33
9	Crossroads	01:52
10	Monkey Treetops / Monkey Skybox	03:07
11	Crane Harbor / Pirates Junk	02:58
12	Great Wall	03:00
13	Tiger Mountains / Mountain Pass	03:30
14	Shadow Gauntlet	03:01
15	Forbidden Palace	03:13

fuente
https://musicbrainz.org/release/768a7147-3789-4c0b-a38c-a094e96fced3

Adobe Premiere Pro cc Portable "Error 16" y falta "Adobe Application Manager "

Descargue de un blog la versión portable de Adobe Premiere Pro cc  para la edición de video, al ejecutar el programa  marco los siguientes errores "please uninstall and reinstall the product." "Error 16" y falta Adobe Application Manager.

Solución a mensaje de error:"please uninstall and reinstall the product." con "Error 16"

1. En el ejecutable del portable, abrir las propiedades 
2. Seleccionar la pestaña compatibilidad
3. Tildar el checkbox de ejecutar en modo administrador
4. Con esto se soluciona el "ERROR 16"

Solución a mensaje de falta Adobe Application Manager 

1. Entrar a la siguiente liga para descargar Adobe Application Manager 10.0
2. Ejecutar el archivo descargado, pedirá que lo almacenes en una carpeta
3. una vez descompreso en la carpeta, ejecutar el instalador de Adobe Application Manager para instalar 
4. Ejecutar el programa Adobe Premiere Pro cc como administrador

También funciona con estas herramientas

SI MARCA EL MENSAJE QUE OCUPA Adobe Application Manager 10.0

DESCARGARLO DE AQUI

https://www.adobe.com/fr/applicationmanagerpatch/thankyouwin.html

FUENTE: https://youtu.be/gYjaXg1OIxs

------------------------------------------------------------------------------------------------------------

[Solucionado] Error 16 Photoshop C6 Portable 2015-2016

últimamente me ha pasado que abro mi photoshop C6 obviamente portable y me encuentro con este error (16), me dedique a buscar soluciones, los cuales son unos sencillos pasos:

1.- Abre el explorador de archivos.

2.- Ingresa a la ruta de el disco local C

3.- En la carpeta Archivos de programa (x86)

4.- Una vez ahí dentro, ingresas a la carpeta "Adobe"

5.- Creas una carpeta (Ahí dentro de la carpeta Adobe) llamada "SLStore".

Finalmente Ejecutas tu photoshop Portable como administrador y ¡PUMM! Solucionado.

EXCEL COLOCAR FECHA Y HORA EN UNA CELDA AL ESCRIBIR

Este código te permitirá colocar la fecha y la hora en una celda mientras escribes en una celda seleccionada.
'________________________________________________________________

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then
     
        Cells(Target.Row, 2).Value = Now
        'Cells(Target.Row, 2) = Format(Now, "hh:mm")
        'Cells(Target.Row, 2) = Format(Now, "dd/mm/yyyy hh:mm:ss ")
    End If

End Sub
'________________________________________________________________

EXCEL MAYÚSCULA A MINÚSCULA

ESTA CLASE PERMITIRÁ EN EL EXCEL CAMBIAR DE MAYÚSCULA A MINÚSCULA, RECUERDA TIENES QUE PONERLO EN UNA MACRO PERSONAL
RECUERDA PONERLO EN UNA MACRO '________________________________________________________________

Sub Cambiar_de_Mayúsculas_a_Minúsculas()
dato = ActiveCell.Value
If VarType(dato) = 8 Then
ActiveCell.Value = UCase(dato)
End If
ActiveCell.Offset(1, 0).Select
'
' Cambiar_de_Mayúsculas_a_Minúsculas Macro
' CAMBIA DE MAYUSCULAS A MINUSCULAS
'
' Acceso directo: CTRL+m
'
End Sub
'________________________________________________________________

Sub Cambiar_de_Minúsculas_a_Mayúsculas()

dato = ActiveCell.Value
If VarType(dato) = 8 Then
ActiveCell.Value = LCase(dato)
End If
ActiveCell.Offset(1, 0).Select
'
' Cambiar_de_Minúsculas_a_Mayúsculas Macro
' mayusculas a minusculas
'
' Acceso directo: CTRL+n
'
End Sub
'________________________________________________________________

Sub Inicial_mayuscula()
dato = ActiveCell.Value
                    If VarType(dato) = 8 Then
                    ActiveCell.Value = WorksheetFunction.Proper(dato)
                    End If
                    ActiveCell.Offset(1, 0).Select
'
' Inicial_mayuscula Macro
' Solo cambia la inicial a mayuscula
'
' Acceso directo: CTRL+a
'
End Sub
'________________________________________________________________

Function Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then

Range("B" & Target.Row) = Date

Range("C" & Target.Row) = Format(Now, "hh:mm")

End If

End Function

¿Que son los sistemas de información?

Definición 1

Sistema de información

Es una disposición de componentes integrados entre si cuyo objetivo es satisfacer las necesidades de información de una organización.

Definición 2

Sistema de información

es una disposición de personas, actividades, datos, redes y tecnología integrados entre si con el propósito de apoyar y mejorar las operaciones cotidianas de una empresa, así como satisfacer las necesidades de información para la resolución de problemas y la toma de decisiones por parte de los directivos de la empresa.

Sistemas de información personales 

Son aquellos que han sido diseñados para satisfacer las necesidades de información personal de un solo usuario. su objetivo es multiplicar la productividad individual.

Sistemas de información multiusuario
son aquellos que han sido diseñados para satisfacer las necesidades de información de grupos de trabajo (por ejemplo departamentos, oficinas, secciones y divisiones) u organizaciones completas.

con el fin de construir sistemas de información
Referencia
Whitten, J., Bentley, L., & Barlow, V. (2003). Análisis y diseño de sistemas de información. México: McGraw-Hill.