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$, ")"