adrianxxi

Dim LaFecha As Date ' Declara las variables. Dim Msj LaFecha = "31/01/03" Msj = "Días desde hoy: " & DateDiff("ww", "01/01/03", LaFecha) MsgBox Msj esto te compara la cantidad de semanas que hay entre el 01/01/03 al 31/01/03 devuelve 4

Es la misma función... usala en combinación con la función format() Isdate(format(hora,"HH:MM"))

Lo único que se me ocurre es que en las pc que instales el sistema primero instales el DCOM que esta en el CD 1 de VB

Fácil xx=left(text1.text,5) Eso guarda los primeros 5 caracteres en la variable XX Luego evalúas si es igual a uno o a otro...

¿Cómo haces la consulta? Escríbeme el código que usas

Bien... usa la función MID en combinación con FORMAT... ejemplo: xx=mid(format(Time,"HH:MM:SS"),1,2) y ahi obtienes la hora xx=mid(format(Time,"HH:MM:SS"),4,2) los minutos y xx=mid(format(Time,"HH:MM:SS"),7,2) Los segundos

Verifica los datos en el evento LOSTFOCUS del TEXTBOX, y si no están bien, entonces le devuelves el foco con Text1. SetFocus

Si la hay y es fácil de usar. SHELL Ve la ayuda de VB para conocer los parámetros que maneja, pero para nada son complicados.

Puedes usar la función format para transformar el numero ingresado a ese formato xx=Format(nunmero,"#.###,##) O usar el control MASKEDIT (cargalo como un nuevo componente desde la barra de controles con el botón derecho del mouse) que permite armar...

Interesante... muy interesante... En primer lugar quita el dbOpenDynaset Deja solo: Set RS = DB.OpenRecordset("CIUDADES") ahora ¿que es esto? [Ciudad] = RS(0) Que es el [Ciudad] (desconozco esta forma de programar, puede que aprenda algo nuevo...