-
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 As Integer FechaPrimAnyo = CDate ( "01...
-
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.F.C. " 1461 "A/S JYSKE BANK S.E. "...
Posted to
.net
by
Maverick
on
mar, jul 2 2002
Filed under:
Filed under: faq
-
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.e-mision.net/EAN-13.zip Documento de información...
Posted to
.net
by
Maverick
on
vie, jun 21 2002
Filed under:
Filed under: faq
-
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 If Campo = "" Or IsNull(Campo) Then ValidarCampo...
-
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 As Date ) As Integer Dim Años As Integer Años = DateDiff...
-
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 A-Z (mayúscula solamente), el espacio y los siguientes...
Posted to
.net
by
Maverick
on
lun, abr 1 2002
Filed under:
Filed under: faq
-
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.Ocx). Vamos a conectarnos con el servidor www.boulder...
Posted to
.net
by
Maverick
on
mar, feb 26 2002
Filed under:
Filed under: faq
-
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 en microsoft.public.es.vb por MavericK
Posted to
.net
by
Maverick
on
mar, nov 13 2001
Filed under:
Filed under: faq
-
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 Mod4 = Year Mod 4 If (Mod400 = 0) Then BisiestoSINO...
-
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 nos ha enviado otras 2 funciones para obtener el...
-
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:.....archivo.PRN" , "LPT1:" Publicado...
Posted to
.net
by
Maverick
on
jue, nov 8 2001
Filed under:
Filed under: faq
-
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 ) As Integer GreenFromRGB = (&HFF00& And RGB...
-
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 ) As String ' Devuelve en una cadena el...
-
En este enlace tienes la información y un ejemplo para imprimir un texto a 180 grados. http://support.microsoft.com/kb/q175535/
-
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 dos CommandButton (Command1, Command2) con la propiedad...