|
.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
输出调试文本 (时间_取现行时间 ())
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 时间_取现行时间, 文本型, 公开, 返回当前系统时间
.参数 取毫秒, 逻辑型, 可空, 真为取毫秒
.局部变量 时间, 时间成员
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型
.局部变量 豪, 文本型
系统时间到毫秒 (时间)
年 = 到文本 (时间.取年份) + “年”
月 = 到文本 (时间.取月份) + “月”
日 = 到文本 (时间.取日) + “日”
日 = 到文本 (时间.取日) + “日”
时 = 到文本 (时间.取时) + “日”
分 = 到文本 (时间.取分) + “分”
秒 = 到文本 (时间.取秒) + “秒”
豪 = 到文本 (时间.取豪) + “毫秒”
.如果真 (取毫秒)
返回 (年 + 月 + 日 + 时 + 分 + 秒 + 豪)
.如果真结束
返回 (年 + 月 + 日 + 时 + 分 + 秒)
.版本 2
.数据类型 时间成员, 公开
.成员 取年份, 短整数型
.成员 取月份, 短整数型
.成员 取星期, 短整数型
.成员 取日, 短整数型
.成员 取时, 短整数型
.成员 取分, 短整数型
.成员 取秒, 短整数型
.成员 取豪, 短整数型
.版本 2
.DLL命令 系统时间到毫秒, 整数型, "kernel32", "GetLocalTime"
.参数 系统时间格式, 时间成员, 传址
|
评分
-
查看全部评分
|