易语言Api格式化时间源码

系统结构:格式化时间,GetLocalTime,VariantTimeToSystemTime,GetDateFormat,GetTimeFormat,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 格式化时间
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetLocalTime
           |  |
           |  |---[dll]------   VariantTimeToSystemTime
           |  |
           |  |---[dll]------   GetDateFormat
           |  |
           |  |---[dll]------   GetTimeFormat

调用的DLL命令:

.DLL命令 GetLocalTime, , "kernel32", "GetLocalTime"
    .参数 lpSystemTime, 短整数型, 数组

.DLL命令 VariantTimeToSystemTime, 整数型, "oleaut32.dll", "VariantTimeToSystemTime"
    .参数 vtime, 日期时间型
    .参数 lpSystemTime, 短整数型, 数组

.DLL命令 GetDateFormat, 整数型, "kernel32", "GetDateFormatA"
    .参数 Locale, 整数型
    .参数 dwFlags, 整数型
    .参数 lpDate, 短整数型, 数组
    .参数 lpFormat, 文本型
    .参数 lpDateStr, 文本型
    .参数 cchDate, 整数型

.DLL命令 GetTimeFormat, 整数型, "kernel32", "GetTimeFormatA"
    .参数 Locale, 整数型
    .参数 dwFlags, 整数型
    .参数 lpTime, 短整数型, 数组
    .参数 lpFormat, 文本型
    .参数 lpTimeStr, 文本型
    .参数 cchTime, 整数型