BCXLogo   BCX Console Demonstration Program S78.bas

 DIM st AS SYSTEMTIME
 DIM d$
 DIM t$
 DIM s$
 
 GetLocalTime (&st)
 
 GetDateFormat (LOCALE_USER_DEFAULT, DATE_LONGDATE, &st,NULL,d$,64)
 GetDateFormat (LOCALE_USER_DEFAULT, DATE_SHORTDATE,&st,NULL,s$,64)
 GetTimeFormat (LOCALE_USER_DEFAULT, TIME_NOSECONDS,&st,NULL,t$,64)
 
 PRINT t$, ", " ,  d$, " (" , s$ , ")"