Móchate

Necesitaba un identificador único de 8 caracteres para nombrar un archivo. Si ya se que ya se que Windows ya permite nombres largos, pero el sistema para el que lo estoy programando, todavía corre en sistemas operativos antiguos, por lo que necesito crear un nombre de archivo único. Esta es la función que use:

Function GenerarIDUnico() As String
 
    Dim elTiempo As Double
    Dim i As Integer
    Dim idCAD As String
 
    elTiempo = Now()
 
    i = Year(elTiempo) - 2008
    If i < 0 Or i > 35 Then i = 0
    'i de 0 a 35
    If i < 10 Then
        idCAD = Chr$(Asc("0") + i)
    Else
        idCAD = Chr$(Asc("A") + i - 10)
    End If
 
    i = Month(elTiempo)
    If i < 10 Then
        idCAD = idCAD & Chr$(Asc("0") + i)
    Else
        idCAD = idCAD & Chr$(Asc("A") + i - 10)
    End If
 
    i = Day(elTiempo)
    If i < 10 Then
        idCAD = idCAD & Chr$(Asc("0") + i)
    Else
        idCAD = idCAD & Chr$(Asc("A") + i - 10)
    End If
 
    i = Hour(elTiempo)
    If i < 10 Then
        idCAD = idCAD & Chr$(Asc("0") + i)
    Else
        idCAD = idCAD & Chr$(Asc("A") + i - 10)
    End If
 
    i = Minute(elTiempo)
    idCAD = idCAD & Format$(i, "00")
 
    i = Second(elTiempo)
    idCAD = idCAD & Format$(i, "00")
 
    GenerarIDUnico = idCAD
 
End Function

La función devuelve un string, el cual contiene la cadena de texto de 8 caracteres, la cual se supone que es única, al menos por los próximos 35 años. El primer carácter de la cadena se forma tomando en cuenta el año, siendo 0 igual a 2008 y Z igual a 2043, no creo vivir tanto así que ya lo solucionara otro programador.

El segundo carácter es el mes, el tercer carácter es el día y el cuarto carácter es la hora. Estos se forma igual que el año, osea del 0 al 9 son representados con números y del 10 en adelante se representan con letras. Los siguientes dos caracteres son los minutos y los últimos 2 son los segundos.

A continuación un ejemplo del como se generaría una cadena de texto con la hora actual (por supuesto que la hora al momento en que escribí esta entrada), al ejecutar la función me regreso la siguiente cadena:

065I4537

Primer carácter: 0 es igual al año 2008
Segundo carácter: 6 es igual al mes (Junio) en número
Tercer carácter: 5 es igual al número del día del mes
Cuarto carácter: I es igual a la conversión de las 18 horas del día
Quinto y Sexto carácter: 45 los minutos de la hora
Septimo y Octavo carácter: 37 los segundos de la hora

Espero que con este ejemplo te haya quedado claro que tipo de cadena de texto única es la que genera esta función, como siempre cualquier duda, aclaración, critica o sugerencia deja un comentario.

Paseando por Pixel y Dixel he visto un corto animado genial, se trata de Big Buck Bunny, un corto de animación hecho totalmente con software libre, al parecer es la segunda producción de la Organización Blender después de otro corto llamado Elephant’s dream la verdad este corto me ha encantado y no quería dejar pasar la oportunidad de mostrárselos. Véanlo, véanlo!

En el mes pasado nos visitaron 4,209 veces, hubo un total de 6,042 páginas vistas, siendo el 13 de Mayo el día con mas visitas, 185 en total, también este día fue el día con mas páginas vistas, 307 en total. Las visitas llegan en su mayoría de países como México, España, Argentina, Colombia y Perú. Las visitas llegan en un 88.17% desde un motor de búsqueda, siendo Google quien más contribuye, el 7.94% provienen de sitios web de referencia y el 3.90% es tráfico directo. Las fuentes que más trafico traen a este sitio son: Google, Blogalaxia, MOiSTER, Yahoo y Blog En Serio.

Y las entradas mas populares del mes son:

• Como usar Flash en Visual Basic 6
• Combinaciones de teclas para optimizar tu productividad
• De corridos vive el mexicano
• Cómo agregar canciones y videos al iPhone desde varias PC’s
• Manejo de XML en Visual Basic 6

Ciertamente, la publicidad acerca de cualquier cosa hoy en día nos sorprende con las cada vez más novedosas y extraordinarias técnicas utilizadas para embarrarnos por las narices su producto. Y por supuesto, las películas no se quedan atrás. Soy fan de la películas de Pixar, y a un mes de que llegue a cartelera Wall-E, que es como ha quedado bautizado su ultimo filme animado, pues me di a la tarea de buscar el último trailer, y por recomendación de un amigo ví este vídeo en donde se centran no en el protagonista de la película, sino en una empresa qué es la que lo hizo, BuyNLarge la que parece tan real, ya que hasta tienen página web de servicios al cliente y todo, chéquenla.

Este es el vídeo que lanzaron a la par del trailer.

Se acuerdan de el, si es el mismo que sale en un vídeo recordándonos a nuestras progenitoras, es Etilio el Gober Devoto  y ya tiene su videojuego.

Vía: Milenio

Cuando andamos buscando algo en Google siempre solemos poner sólo la palabrita a ver que nos sale, y si tienes suerte encuentras exactamente lo que querías encontrar en un corto lapso de tiempo, pero lo malo es cuando careces de una buena ortografía, ¡pues ahi te veo!; lo bueno es que el genial Google tiene muchas funciones que te facilitan la vida a la hora de buscar algo, y muchas de ellas son desconocidas para nosotros.

La siguiente es una lista de 5 funciones, todas accesibles desde el recuadro de búsqueda del mismísimo y siempre bien ponderado Google.

1. Eliminar páginas que no necesitas.

Leer más »

La experiencia es un peine que llega cuando te quedaste calvo.

Es su chamba, no es fácil andar todo el día allí asoleándose, su trabajo cuesta, dicho por Zorimbo, al ver las imágenes.

Leer más »

¿Quien no conoce las Leyes de Murphy?, Claro, a más de alguno el universo nos ha aplicado una que otra, pero no hay que negar que rayan en el pesimismo total ante ciertas circunstancias. Pero algunas se pueden cambiar ¿no?

- Si algo sale mal, ¡arréglalo!
- Cuando tienes dos opciones, ¡pues toma las dos!
- Si no puedes contra ellos ¡úneteles! Y ahora sí, después ¡contra ellos!

Leer más »

Como para crear tu propia Arca de Noé, te dejo unos animalillos en vectores, estan en formato .eps el cuál puedes abrir libremente en Ilustrador, realmente cute.

Leer más »