【精益模块】时间_格式化 改进小建议

Harry·

刚才在问答区看见个帖子问为什么不是24小时制，回去翻了翻源码，发现源码里面对GetTimeFormat这个dll中的dwFlags解释的不够详细，而在调用的时候直接以0赋值，这就造成了有关功能并不能够实现。同理还有GetDateFormat这个dll也存在一样的问题。当然，也有可能是我理解的不是很透彻。
我就稍微改了一下。
源码如下

  

子程序名	返回值类型	公开	备 注
时间_格式化	文本型		格式化指定日期与时间，失败返回空文本
参数名	类 型	参考	可空	数组	备 注
参_欲格式化时间	日期时间型
参_日期格式	文本型				可以为空，格式：yyyy [年]，M [月],d [日],dddd [星期]，如;yyyy/M/d dddd(年/月/日 星期几)
参_时间格式	文本型				可以为空，格式：tt [上午或下午],H [小时],m [分钟], s [秒]，如;hh:mm:ss(小时:分钟:秒),tt hh:mm:ss(上午或下午 小时:分钟:秒)
参_时间_dwFlags	整数型				1.无分钟和秒,2.无秒4./无时间标记 8.强制使用24小时制

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

局_整数返回 ＝ VariantTimeToSystemTime_Date (参_欲格式化时间, 局_系统时间)
如果真 (是否为空 (参_时间_dwFlags))
参_时间_dwFlags ＝ 0

如果真 (1 ＝ 局_整数返回)
如果真 (取文本长度 (参_日期格式) ＞ 2)
局_日期 ＝ 取空白文本 (50)
GetDateFormatA (0, 0, 局_系统时间, 参_日期格式, 局_日期, 50)
如果真 (取文本长度 (参_时间格式) ＞ 2)
局_时间 ＝ 取空白文本 (50)
GetTimeFormatA (0, 参_时间_dwFlags, 局_系统时间, 参_时间格式, 局_时间, 50)
返回 (局_日期 ＋ 局_时间)
返回 (“”)

.版本 2<br /> <br /> .子程序 时间_格式化, 文本型, , 格式化指定日期与时间，失败返回空文本<br /> .参数 参_欲格式化时间, 日期时间型<br /> .参数 参_日期格式, 文本型, 可空, 可以为空，格式：yyyy [年]，M [月],d [日],dddd [星期]，如;yyyy/M/d dddd(年/月/日 星期几)<br /> .参数 参_时间格式, 文本型, 可空, 可以为空，格式：tt [上午或下午],H [小时],m [分钟], s [秒]，如;hh:mm:ss(小时:分钟:秒),tt hh:mm:ss(上午或下午 小时:分钟:秒)<br /> .参数 参_时间_dwFlags, 整数型, 可空, 1.无分钟和秒,2.无秒4./无时间标记 8.强制使用24小时制<br /> .局部变量 局_系统时间, 系统时间<br /> .局部变量 局_整数返回<br /> .局部变量 局_日期, 文本型<br /> .局部变量 局_时间, 文本型<br /> <br /> 局_整数返回 ＝ VariantTimeToSystemTime_Date (参_欲格式化时间, 局_系统时间)<br /> .如果真 (是否为空 (参_时间_dwFlags))<br />     参_时间_dwFlags ＝ 0<br /> .如果真结束<br /> <br /> .如果真 (1 ＝ 局_整数返回)<br />     .如果真 (取文本长度 (参_日期格式) ＞ 2)<br />         局_日期 ＝ 取空白文本 (50)<br />         GetDateFormatA (0, 0, 局_系统时间, 参_日期格式, 局_日期, 50)<br />     .如果真结束<br />     .如果真 (取文本长度 (参_时间格式) ＞ 2)<br />         局_时间 ＝ 取空白文本 (50)<br />         GetTimeFormatA (0, 参_时间_dwFlags, 局_系统时间, 参_时间格式, 局_时间, 50)<br />     .如果真结束<br />     返回 (局_日期 ＋ 局_时间)<br /> .如果真结束<br /> 返回 (“”)

大牛勿喷，如果有更好的解决办法请回复。。共同进步。。

ULTRAYAN

不错

公竞渡河

很不错 支持一下

萧阳天

有个函数叫  时间_取制式  或把时间格式化文本写成大写也可以实现

项目部002

该问题已修复。感谢您的反馈。请在模块更新后下载最新版本。