RE:Activate Window ???? (Calendario/Agenda VFP6)
Ejemplo de _DIARYDATE (Variable del sistema)
En el siguiente ejemplo de programa, el Calendario/Agenda se abre con la fecha 28 de marzo de 2001 seleccionada, y el valor de _DIARYDATE. aparece debajo. A continuación se almacena 4 de julio de 1776 en DIARYDATE y vuelve a mostrarse _DIARYDATE. Por último, el programa utiliza la función DATE( ) para seleccionar la fecha actual y presenta _DIARYDATE.
SET CENTURY ON
STORE {03/28/2001} TO _DIARYDATE
=MESSAGEBOX(DTOC(_DIARYDATE),64)
ACTIVATE WINDOW calendar
=MESSAGEBOX("Cambiar fecha a 4 de julio de 1776",48))
STORE {07/04/1776} TO _DIARYDATE
=MESSAGEBOX(DTOC(_DIARYDATE),64)
=MESSAGEBOX("Cambiar fecha a la fecha de hoy",48)
STORE DATE() TO _DIARYDATE
=MESSAGEBOX( DTOC(_DIARYDATE),64)
RELEASE WINDOW calendar