API乱命名，我这么说应该合适

Su·

  

DLL命令名	返回值类型	公开	备 注
VariantTimeToSystemTime_Date	整数型
DLL库文件名:
oleaut32.dll
在DLL库中对应命令名:
VariantTimeToSystemTime
参数名	类 型	传址	数组	备 注
vtime	日期时间型
lpSystemTime	精易_时间

DLL命令名	返回值类型	公开	备 注
VariantTimeToSystemTime	整数型		,
DLL库文件名:
oleaut32
在DLL库中对应命令名:
VariantTimeToSystemTime
参数名	类 型	传址	数组	备 注
vtime	日期时间型
lpSystemTime	精易_时间

.版本 2<br /> <br /> .DLL命令 <font color="#00ff00">VariantTimeToSystemTime_Date</font>, 整数型, "oleaut32.dll", "<font color="#ff0000">VariantTimeToSystemTime</font>", 公开<br />     .参数 vtime, 日期时间型<br />     .参数 lpSystemTime, 精易_时间<br /> <br /> .DLL命令 <font color="#00ff00">VariantTimeToSystemTime</font>, 整数型, "oleaut32", "<font color="#ff0000">VariantTimeToSystemTime</font>", , ,<br />     .参数 vtime, 日期时间型<br />     .参数 lpSystemTime, 精易_时间

看图，精易模块最新版的源码

影响命令

  

子程序名	返回值类型	公开	备 注
时间_格式化	文本型		格式化指定日期与时间，失败返回空文本   GetTimeFormatA 该函数支持的最早时间是1600.1.1
参数名	类 型	参考	可空	数组	备 注
参_欲格式化时间	日期时间型
参_日期格式	文本型				可以为空，格式：yyyy [年]，M [月],d [日],dddd [星期]，如;yyyy/M/d dddd(年/月/日 星期几)
参_时间格式	文本型				可以为空，格式：tt [上午或下午],h [小时],m [分钟], s [秒] 。如;hh:mm:ss(小时:分钟:秒),tt hh:mm:ss(上午或下午 小时:分钟:秒)
参_是否为24小时制	逻辑型

变量名	类 型	静态	数组	备 注
局_系统时间	精易_时间
局_整数返回	整数型
局_日期	文本型
局_时间	文本型
局_Flags	整数型

局_整数返回 ＝ VariantTimeToSystemTime_Date (参_欲格式化时间, 局_系统时间)
如果真 (1 ＝ 局_整数返回)
如果真 (取文本长度 (参_日期格式) ＞ 2)
局_日期 ＝ 取空白文本 (50)
GetDateFormatA (0, 0, 局_系统时间, 参_日期格式, 局_日期, 50)
如果真 (取文本长度 (参_时间格式) ＞ 2)
局_时间 ＝ 取空白文本 (50)
如果真 (参_是否为24小时制 ＝ 真)
局_Flags ＝ #TIME_FORCE24HOURFORMAT
GetTimeFormatA (0, 局_Flags, 局_系统时间, 参_时间格式, 局_时间, 50)
返回 (局_日期 ＋ 局_时间)
返回 (“”)

.版本 2<br /> <br /> .子程序 时间_格式化, 文本型, 公开, 格式化指定日期与时间，失败返回空文本   GetTimeFormatA 该函数支持的最早时间是1600.1.1<br /> .参数 参_欲格式化时间, 日期时间型<br /> .参数 参_日期格式, 文本型, 可空, 可以为空，格式：yyyy [年]，M [月],d [日],dddd [星期]，如;yyyy/M/d dddd(年/月/日 星期几)<br /> .参数 参_时间格式, 文本型, 可空, 可以为空，格式：tt [上午或下午],h [小时],m [分钟], s [秒] 。如;hh:mm:ss(小时:分钟:秒),tt hh:mm:ss(上午或下午 小时:分钟:秒)<br /> .参数 参_是否为24小时制, 逻辑型, 可空<br /> .局部变量 局_系统时间, 精易_时间<br /> .局部变量 局_整数返回, 整数型<br /> .局部变量 局_日期, 文本型<br /> .局部变量 局_时间, 文本型<br /> .局部变量 局_Flags, 整数型<br /> <br /> 局_整数返回 ＝ VariantTimeToSystemTime_Date (参_欲格式化时间, 局_系统时间)<br /> .如果真 (1 ＝ 局_整数返回)<br />     .如果真 (取文本长度 (参_日期格式) ＞ 2)<br />         局_日期 ＝ 取空白文本 (50)<br />         GetDateFormatA (0, 0, 局_系统时间, 参_日期格式, 局_日期, 50)<br />     .如果真结束<br />     .如果真 (取文本长度 (参_时间格式) ＞ 2)<br />         局_时间 ＝ 取空白文本 (50)<br />         .如果真 (参_是否为24小时制 ＝ 真)<br />             局_Flags ＝ #TIME_FORCE24HOURFORMAT<br />         .如果真结束<br />         GetTimeFormatA (0, 局_Flags, 局_系统时间, 参_时间格式, 局_时间, 50)<br />     .如果真结束<br />     返回 (局_日期 ＋ 局_时间)<br /> .如果真结束<br /> 返回 (“”)

wangqianghai2

非常感谢楼主的分享，再接再力吧!

项目部002

有重叠部分，已去重操作，感谢反馈