取系统时间精确到毫秒

.版本 2

.子程序 取毫秒系统时间, 文本型

.局部变量 t, SYSTEMTIME

.局部变量 年年, 文本型

.局部变量 月月, 文本型

.局部变量 日日, 文本型

.局部变量 时时, 文本型

.局部变量 分分, 文本型

.局部变量 秒秒, 文本型

.局部变量 毫毫, 文本型

系统时间到毫秒 (t)

年年 ＝ 到文本 (t.wYear)

月月 ＝ 到文本 (t.wMonth)

.如果真 (到整数 (月月) ＜ 10)

月月 ＝ “0” ＋ 月月

.如果真结束

日日 ＝ 到文本 (t.wDay)

.如果真 (到整数 (年年) ＜ 10)

日日 ＝ “0” ＋ 日日

.如果真结束

时时 ＝ 到文本 (t.wHour)

.如果真 (到整数 (时时) ＜ 10)

时时 ＝ “0” ＋ 时时

.如果真结束

分分 ＝ 到文本 (t.wMinute)

.如果真 (到整数 (分分) ＜ 10)

分分 ＝ “0” ＋ 分分

.如果真结束

秒秒 ＝ 到文本 (t.wSecond)

.如果真 (到整数 (秒秒) ＜ 10)

秒秒 ＝ “0” ＋ 秒秒

.如果真结束

毫毫 ＝ 到文本 (t.wMilliseconds)

.如果真 (到整数 (毫毫) ＜ 10)

毫毫 ＝ “0” ＋ 毫毫

.如果真结束

.如果真 (到整数 (毫毫) ＞ 10 且 到整数 (毫毫) ＜ 100)

毫毫 ＝ “0” ＋ 毫毫

.如果真结束

返回 (年年 ＋ 月月 ＋ 日日 ＋ 时时 ＋ 分分 ＋ 秒秒 ＋ 毫毫)