时间_格式化 加一个自动添加空格的功能

shituo

.版本 2

.子程序 时间_格式化, 文本型, 公开, 格式化指定日期与时间，失败返回空文本   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 (参_欲格式化时间, 局_系统时间)
.如果真 (1 ＝ 局_整数返回)
    .如果真 (取文本长度 (参_日期格式) ＞ 2)
        局_日期 ＝ 取空白文本 (50)
        GetDateFormatA (0, 0, 局_系统时间, 参_日期格式, 局_日期, 50)
    .如果真结束
    .如果真 (取文本长度 (参_时间格式) ＞ 2)
        局_时间 ＝ 取空白文本 (50)
        .如果真 (参_是否为24小时制 ＝ 真)
            局_Flags ＝ #TIME_FORCE24HOURFORMAT
        .如果真结束
        GetTimeFormatA (0, 局_Flags, 局_系统时间, 参_时间格式, 局_时间, 50)
    .如果真结束
    返回 (局_日期 ＋ 选择 (局_日期 ＝ “” 或 局_时间 ＝ “”, “”, “ ”) ＋ 局_时间)
.如果真结束
返回 (“”)

大司命

你自己传日期格式或时间格式带上不就完事了！不懂就看时间_到文本，我记得就是调用这个命令的~