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