日期时间_格式化分享 - 精易论坛

窗口程序集名	保留	保留	备注
程序集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 />
返回 (缓冲区)