分享给懒人的GMT时间格式化代码，需要写HTTP服务器的可入

redpiggy

.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 周几, 文本型
.局部变量 日, 文本型
.局部变量 月, 文本型
.局部变量 年, 文本型
.局部变量 时, 文本型
.局部变量 当前时间, 文本型
.局部变量 秒, 文本型
.局部变量 分, 文本型
.局部变量 Date, 文本型
当前时间 ＝ 到文本 (取现行时间 ())
当前时间 ＝ 到文本 (增减时间 (到时间 (当前时间), 6, -8))
调试输出 (当前时间)
年 ＝ 到文本 (取年份 (到时间 (当前时间)))
周几 ＝ 到文本 (取星期几 (到时间 (当前时间)))
日 ＝ 到文本 (取日 (到时间 (当前时间)))
月 ＝ 到文本 (取月份 (到时间 (当前时间)))
调试输出 (月)
时 ＝ 到文本 (取小时 (到时间 (当前时间)))
分 ＝ 到文本 (取分钟 (到时间 (当前时间)))
秒 ＝ 到文本 (取秒 (到时间 (当前时间)))
.如果真 (取文本长度 (时) ＝ 1)
    时 ＝ “0” ＋ 时
.如果真结束
.如果真 (取文本长度 (分) ＝ 1)
    分 ＝ “0” ＋ 分
.如果真结束
.如果真 (取文本长度 (秒) ＝ 1)
    秒 ＝ “0” ＋ 秒
.如果真结束
.如果真 (取文本长度 (日) ＝ 1)
    日 ＝ “0” ＋ 日
.如果真结束
.判断开始 (周几 ＝ “1”)
    周几 ＝ “Sun,”
.判断 (周几 ＝ “2”)
    周几 ＝ “Mon,”
.判断 (周几 ＝ “3”)
    周几 ＝ “Tue,”
.判断 (周几 ＝ “4”)
    周几 ＝ “Wed,”
.判断 (周几 ＝ “5”)
    周几 ＝ “Thu,”
.判断 (周几 ＝ “6”)
    周几 ＝ “Fri,”
.判断 (周几 ＝ “7”)
    周几 ＝ “Sat,”
.默认
.判断结束
.判断开始 (月 ＝ “1”)
    月 ＝ “Jan”
.判断 (月 ＝ “2”)
    月 ＝ “Feb”
.判断 (月 ＝ “3”)
    月 ＝ “Mar”
.判断 (月 ＝ “4”)
    月 ＝ “Apr”
.判断 (月 ＝ “5”)
    月 ＝ “May”
.判断 (月 ＝ “6”)
    月 ＝ “Jun”
.判断 (月 ＝ “7”)
    月 ＝ “Jul”
.判断 (月 ＝ “8”)
    月 ＝ “Aug”
.判断 (月 ＝ “9”)
    月 ＝ “Sep”
.判断 (月 ＝ “10”)
    月 ＝ “Oct”
.判断 (月 ＝ “11”)
    月 ＝ “Nov”
.判断 (月 ＝ “12”)
    月 ＝ “Dec”
.默认
.判断结束
Date ＝ “Date: ” ＋ 周几 ＋ “ ” ＋ 日 ＋ “ ” ＋ 月 ＋ “ ” ＋ 年 ＋ “ ” ＋ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒 ＋ “ GMT”
调试输出 (Date)