-
Alrededor de 500 millones de personas utilizan los servicios de Windows Live, con la intención de despreocuparnos de la autenticación y ofrecer una mejor usabilidad al visitante, podemos utilizar estos servicios en nuestra web. El primera paso es registrar nuestra página web o aplicación en http://manage...
-
IntPtr es utilizado nativamente en .Net, por eso el tamaño de su estructura se redimensiona según la capacidad del sistema operativo. Utilizando esta funcionalidad podemos detectar si el sistema operativo trabaja con procesadores de 32 bits o 64 bits, ya que entonces el tamaño de...
-
En ocasiones, sobre todo cuando trabajamos en equipos de desarrollo distribuidos o trabajando en diferentes partes del mismo software, debemos indicar de alguna manera la conveniencia de actualizar las llamadas a alguna función, bien sea por que hay otra función más potente y actualizada para realizar...
-
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 el código de un ejemplo para descargar ficheros de Internet, en este caso se baja el fichero Contaplus.zip que esta en la dirección http://descarga.e-mision.net/contaplus.zip y se graba en c:. Option Explicit Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA"...
-
Este código muestra un cuadro de dialogo para poder seleccionar sólo un equipo de la red o para seleccionar una carpeta concreta de un equipo que este conectado a la red. Para ejecutar este ejemplo debes añadir al nuevo proyecto dos botones (Command1 y Command2) y dos textbox (Text1 y Text2). Option...
-
Inicia un nuevo proyecto, pega el siguiente código en la sección «Declaraciones» y ejecútalo, te mostrara en un MsgBox el Símbolo monetario. Option Explicit On Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" ( ByVal...
-
Con esta función API puedes recuperar la hora actual, incluidos los milisegundos. Option Explicit On Private Declare Sub GetSystemTime Lib "kernel32" ( ByVal lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As...
-
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...
-
Con esta función API puedes recuperar la ubicación de la situación, en el sistema donde esta corriendo tu aplicación, de las carpetas del sistema, como el Escritorio, Impresoras, Fuentes, Favoritos, Etc... Copia este ejemplo en un formulario: Option Explicit On ' Definimos las constantes de las carpetas...
-
Con esta función API puedes actualizar la hora del sistema completando los datos del tipo SYSTEMTIME, la declaración sería. Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer...
-
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...
-
El Winsock maneja protocolos, no es una herramienta que cubre necesidades puntuales. Prueba esta API que maneja el protocolo ICMP. Function IcmpSendEcho Lib "icmp.dll" ( ByVal IcmpHandle As Long , ByVal DestinationAddress As Long , _ ByVal RequestData As String , ByVal RequestSize As Long ...