RE:Un Control OLe de Fecha
saludos..
Mira una vez que seleccionaste el boton control activeX(ole control), y ya insertaste el objeto en el formulario te aparecera otra ventana para insertar el tipo de objeto, te aparecen 3 opciones: crear nuevo, crear desde arch, insertar control, elije el ultimo y busca al que que diga calendar control 8.0 y Aceptar, con esto ya podras seleccionar la fecha sin que la escribas. Para asignar la fecha del sistema al ole. pon esto en el evento init del formulario. ademas asina la fecha a un cuadro de texto.
d=day(date())
m=month(date())
yd=year(date())
THISFORM.OLECONTROL1.DAY=d
THISFORM.OLECONTROL1.month=m
THISFORM.OLECONTROL1.year=yd
*THISFORM.OLECONTROL1.DAY
DIA=THISFORM.OLECONTROL1.DAY
MES=THISFORM.OLECONTROL1.MONTH
AÑO=THISFORM.OLECONTROL1.YEAR
SET DATE TO BRITISH
THISFORM.FECHA1.VALUE=DATE(AÑO,MES,DIA)
y para que al cambies el valor del cuadro al cambiar la fecha del objeto ole pon este en el evento clic del objeto ole.
SET DATE TO BRITISH
dia=THISFORM.OLECONTROL1.DAY
mes=THISFORM.OLECONTROL1.month
año=THISFORM.OLECONTROL1.year
THISFORM.FECHA1.VALUE=DATE(año,mes,dia)
Espero te haya servido. Cualquier cosa me puedes escribir
D.H.C