日期时间_格式化 分享

大漠小鸟

写日志或者时间相关处理时，时间格式化还是很常用的，最早是用的精易模块的时间_格式化()，不过精易模块的灵活度给写死了，还存在缓冲区溢出风险重写了一份时间格式化函数，可以格式化成各种各样的时间格式。

完整源码例子下载：

游客，如果您要查看本帖隐藏内容请回复

源码预览：

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

_临时子程序 ()
返回 (0)

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
当前时间	日期时间型

当前时间 ＝ 取现行时间 ()
当前时间 ＝ 增减时间 (当前时间, #小时, -8)
调试输出 (日期时间_格式化 (当前时间, “ddd MMM dd yyyy ”, “HH:mm:ss GMT+0800”, 127))

子程序名	返回值类型	公开	备 注
日期时间_格式化	文本型		格式化指定日期与时间，失败返回空文本   GetTimeFormatA 该函数支持的最早时间是1601.1.1；格式化效率约：30万/s
参数名	类 型	参考	可空	数组	备 注
欲格式化时间	日期时间型
日期格式	文本型				y/yy/yyyy=年份；M/MM=月份；MMM/MMMM=中英文月份(1月/一月、Jan/January)；d/dd=日；ddd/dddd=星期（周一/星期一、Mon/Monday）；g/gg=公元、A.D；用单引号包裹的字符将忽略
时间格式	文本型				h/hh=12小时制；H/HH=24小时制；m/mm=分钟；s/ss=秒；t/tt=上下午（A/AM、P/PM）；用单引号包裹的字符将忽略
区域	整数型				0=默认，127=美国；1024=用户区域设置；2048=系统设置区域

变量名	类 型	静态	数组	备 注
系统时间	_系统时间
字节数	整数型
缓冲区	文本型
缓冲区指针	整数型

如果真 (_VariantTimeToSystemTime (欲格式化时间, 系统时间))
字节数 ＝ _GetDateFormatA (区域, 0, 系统时间, 日期格式, 0, 0)
字节数 ＝ 字节数 ＋ _GetTimeFormatA (区域, 0, 系统时间, 时间格式, 0, 0)
' 字节数 ＝ 字节数 － 2
缓冲区 ＝ 取空白文本 (字节数)
缓冲区指针 ＝ 取变量数据地址 (缓冲区)
_GetDateFormatA (区域, 0, 系统时间, 日期格式, 缓冲区指针, 字节数)
_GetTimeFormatA (区域, 0, 系统时间, 时间格式, 缓冲区指针 ＋ _strlen (缓冲区指针), 字节数)
返回 (缓冲区)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> _临时子程序 ()<br /> 返回 (0)<br /> <br /> .子程序 _临时子程序<br /> .局部变量 当前时间, 日期时间型<br /> <br /> 当前时间 ＝ 取现行时间 ()<br /> 当前时间 ＝ 增减时间 (当前时间, #小时, -8)<br /> 调试输出 (日期时间_格式化 (当前时间, “ddd MMM dd yyyy ”, “HH:mm:ss GMT+0800”, 127))<br /> <br /> <br /> <br /> <br /> .子程序 日期时间_格式化, 文本型, , 格式化指定日期与时间，失败返回空文本   GetTimeFormatA 该函数支持的最早时间是1601.1.1；格式化效率约：30万/s<br /> .参数 欲格式化时间, 日期时间型<br /> .参数 日期格式, 文本型, 可空, y/yy/yyyy=年份；M/MM=月份；MMM/MMMM=中英文月份(1月/一月、Jan/January)；d/dd=日；ddd/dddd=星期（周一/星期一、Mon/Monday）；g/gg=公元、A.D；用单引号包裹的字符将忽略<br /> .参数 时间格式, 文本型, 可空, h/hh=12小时制；H/HH=24小时制；m/mm=分钟；s/ss=秒；t/tt=上下午（A/AM、P/PM）；用单引号包裹的字符将忽略<br /> .参数 区域, 整数型, 可空, 0=默认，127=美国；1024=用户区域设置；2048=系统设置区域<br /> .局部变量 系统时间, _系统时间<br /> .局部变量 字节数, 整数型<br /> .局部变量 缓冲区, 文本型<br /> .局部变量 缓冲区指针, 整数型<br /> <br /> .如果真 (_VariantTimeToSystemTime (欲格式化时间, 系统时间))<br />     字节数 ＝ _GetDateFormatA (区域, 0, 系统时间, 日期格式, 0, 0)<br />     字节数 ＝ 字节数 ＋ _GetTimeFormatA (区域, 0, 系统时间, 时间格式, 0, 0)<br />     ' 字节数 ＝ 字节数 － 2<br />     缓冲区 ＝ 取空白文本 (字节数)<br />     缓冲区指针 ＝ 取变量数据地址 (缓冲区)<br />     _GetDateFormatA (区域, 0, 系统时间, 日期格式, 缓冲区指针, 字节数)<br />     _GetTimeFormatA (区域, 0, 系统时间, 时间格式, 缓冲区指针 ＋ _strlen (缓冲区指针), 字节数)<br /> .如果真结束<br /> 返回 (缓冲区)

星空的物语

8888888888888888

wdmcxodcw

学习 我也在弄时间 特别是毫秒级的不太会

a3960382663

支持开源~！感谢分享

atzhfy

这么给力

ΒΜΧ

bbb620

感谢分享，很给力！~

九条命

感谢分享，很给力！~

woshiwangzheACE

66666666666666666666

chuchen

看一下，感谢楼主分享