GetDateFormat()
GetTimeFormat()
あたりを使ってみるとか?
https://msdn.microsoft.com/ja-jp/library/cc422084.aspx
https://msdn.microsoft.com/ja-jp/library/cc447950.aspx
#include "kernel32.as"
#define LOCALE_SYSTEM_DEFAULT 0x0400
// https://msdn.microsoft.com/ja-jp/library/cc422084.aspx
// https://msdn.microsoft.com/ja-jp/library/cc447950.aspx
// 現在日付時刻版
sdim DateStr, 256 + 1
sdim TimeStr, 256 + 1
GetDateFormatA LOCALE_SYSTEM_DEFAULT, 0, 0, "yyyy-MM-dd(dddd)", varptr(DateStr), 256
GetTimeFormatA LOCALE_SYSTEM_DEFAULT, 0, 0, "tt h:mm:ss", varptr(TimeStr), 256
mes "現在日付時刻:" + DateStr + " " + TimeStr
// 任意の日付・時刻
dim SYSTEMTIME, 4
wpoke SYSTEMTIME, 0, 2016 // 年
wpoke SYSTEMTIME, 2, 6 // 月
;wpoke SYSTEMTIME, 4, 5 // 曜日
wpoke SYSTEMTIME, 6, 10 // 日
wpoke SYSTEMTIME, 8, 21 // 時
wpoke SYSTEMTIME, 10, 22 // 分
wpoke SYSTEMTIME, 12, 02 // 秒
wpoke SYSTEMTIME, 14, 000 // ミリ秒
GetDateFormatA LOCALE_SYSTEM_DEFAULT, 0, varptr(SYSTEMTIME), "yyyy-MM-dd(dddd)", varptr(DateStr), 256
GetTimeFormatA LOCALE_SYSTEM_DEFAULT, 0, varptr(SYSTEMTIME), "tt h:mm:ss", varptr(TimeStr), 256
mes "任意日付時刻:" + DateStr + " " + TimeStr