Browse by Tags

Conocer la Semana de una fecha dada

Ahí va una función que hace eso, calcular la semana de una fecha dada. Function CalculaSemana( ByVal Fecha As Date ) As Integer Dim FechaPrimAnyo As Date Dim DiaSemanaPrimAnyo As Integer Dim DiaSemanaFecha As Integer Dim Sumando As Integer Dim DiasTranscurridos...

Published lun, sep 1 2003 0:03 by Maverick

Filed under: vb, faq

Relación Entidades Financieras (Actualizada al 24 de Junio de 2002)

Aquí tenéis la relación de Entidades Financieras en España, esta lista es útil para indicar la Entidad cuando se introduce un Número de Cuenta Bancaria. El separador para importar a Access, es el Tabulador o CHR$(9). 8234 "A.I.G. FINANZAS S.A. E...

Published mar, jul 2 2002 23:50 by Maverick

Filed under: faq

Fuente Código de Barras EAN-13

Es el formato utilizado en la industria alimentaría, incluye el código de País (84 en España), Empresa, Producto y Dígito de control. Para más información puedes visitar http://www.ean-int.org o en http://www.aecoc.es para España. Fuente TTF: http://descarga...

Published vie, jun 21 2002 0:01 by Maverick

Filed under: faq

Convertir datos entre diferentes formatos

Se trata de una función, a la que le enviamos cualquier tipo de dato y nos lo devuelve convertido al que queramos, según el indicador que reciba. Public Function ValidarCampo(Campo As Variant , I As Integer ) As Variant 'SI VIENE VACÍO O CON NULO...

Published sáb, jun 1 2002 23:48 by Maverick

Filed under: vb, faq

Conocer el número de Años entre dos fechas

Este código calcula el número de años entre dos fechas. Muy válido para calcular la edad de una persona teniendo en cuenta la fecha actual. Usa la función DateSerial de creación de fechas. Public Function AñosEntre( ByVal Fecha1 As Date , ByVal Fecha2...

Published vie, may 31 2002 23:45 by Maverick

Filed under: vb, faq

Fuente Código de Barras Code39

Este código es de longitud variable, cuya limitación en el largo la da el espacio disponible para imprimir y la capacidad del lector de código de barra que usaremos. El juego de caracteres del código 39 incluye 43 caracteres: los dígitos 0-9, las letras...

Published lun, abr 1 2002 0:12 by Maverick

Filed under: faq

Vamos a sincronizar nuestro PC con un reloj atómico en Internet, esto nos servirá para mantener el PC actualizado, sobre todo en el caso de los Servidores.

Con este ejemplo vamos a ver como nos conectamos a un servidor externo, por un puerto indicado, recogeremos la hora actual GMT y actualizaremos las hora de nuestro ordenador. Utilizaremos el protocolo TCP del control Microsoft WinSock Control (MsWinSck...

Published mar, feb 26 2002 23:54 by Maverick

Filed under: faq

Asignar página por defecto en Internet Explorer

Puedes mirar el registro de Windows, con el RegEdit y ver como ahora tendrá la página que tienes por defecto. HKEY_CURRENT_USER/software/Microsoft/Internet Explorer/MainStart Page HKEY_USERSDEFAULT/software/Microsoft/Internet Explorer/MainStart Page Publicado...

Published mar, nov 13 2001 22:20 by Maverick

Filed under: faq

Conocer si es año bisiesto.

Prueba esta función, si devuelve True es que es Bisiesto. Function BisiestoSINO(Year As Date ) As Boolean Dim Mod400 As Long , Mod100 As Long , Mod4 As Long BisiestoSINO = False 'Indica si es bisiesto o no Mod400 = Year Mod 400 Mod100 = Year Mod 100...

Published dom, nov 11 2001 18:22 by Maverick

Filed under: vb, faq

Conocer el último día del mes.

Sólo tienes que sumar un mes al día 1 del mes actual y restarle un día. Function UltimoDiaMes(Fecha As Date ) As Date UltimoDiaMes = DateAdd( "d" , -1, DateAdd( "m" , 1, DateSerial(Year(Fecha), Month(Fecha), 1))) End Function Tagen...

Published sáb, nov 10 2001 22:19 by Maverick

Filed under: vb, faq

Como imprimir un fichero PRN.

Simplemente debes copiar el fichero generado .PRN a la ruta donde se encuentra compartida la impresora. FileCopy "c:.....archivo.PRN" , "\servidorimpresora" Nota: Si la impresora está en LPT1... solamente cópiala a LPT1 FileCopy "c...

Published jue, nov 8 2001 22:16 by Maverick

Filed under: faq

Extraer el valor Rojo, Verde y Azul de un color Hexadecimal.

Con estas funciones podrás extraer el valor RGB de Rojo, Verde y Azul de un valor Hexadecimal. Public Function RedFromRGB( ByVal RGB As Long ) As Integer RedFromRGB = &HFF& And RGB End Function Public Function GreenFromRGB( ByVal RGB As Long ...

Published dom, nov 4 2001 18:20 by Maverick

Filed under: vb, faq

Volcar el contenido de un fichero en una cadena de texto.

Crea un proyecto que contenga un TextBox (Text1) y añade el siguiente código: Private Sub Form_Load() Text1.Text = "c:\autoexec.bat" Debug.Print DameContenidoFichero(Text1.Text) End Sub Function DameContenidoFichero( ByVal xFicheroDatos As String...

Published vie, jul 13 2001 18:16 by Maverick

Filed under: vb, faq

Impresión de texto girado 180 grados.

En este enlace tienes la información y un ejemplo para imprimir un texto a 180 grados. http://support.microsoft.com/kb/q175535/

Published jue, may 31 2001 14:06 by Maverick

Filed under: vb, faq

Convierte una cadena de texto en Mayúsculas o Minúsculas.

Visual Basic dispone de dos funciones para convertir a mayúsculas o minúsculas una cadena de texto. Estas funciones son UCase (Upper Case) y LCase (Low Case), mayúsculas y minúsculas, respectivamente. Crea un proyecto que contenga un TextBox (Text1) y...

Published lun, feb 12 2001 22:29 by Maverick

Filed under: vb, faq

Syndication

Recent Posts

Tags

Archives

Conocer la Semana de una fecha dada

Relación Entidades Financieras (Actualizada al 24 de Junio de 2002)

Fuente Código de Barras EAN-13

Convertir datos entre diferentes formatos

Conocer el número de Años entre dos fechas

Fuente Código de Barras Code39

Vamos a sincronizar nuestro PC con un reloj atómico en Internet, esto nos servirá para mantener el PC actualizado, sobre todo en el caso de los Servidores.

Asignar página por defecto en Internet Explorer

Conocer si es año bisiesto.

Conocer el último día del mes.

Como imprimir un fichero PRN.

Extraer el valor Rojo, Verde y Azul de un color Hexadecimal.

Volcar el contenido de un fichero en una cadena de texto.

Impresión de texto girado 180 grados.

Convierte una cadena de texto en Mayúsculas o Minúsculas.