易语言代码：取服务器时间-源码
易语言专区
09-12
阅读：881
评论：0
.版本 2 .子程序 取服务器时间, 日期时间型, 公开, 成功返回服务器时间，失败返回[100年1月1日];作者：新纪元 .参数 服务器地址, 文本型, 可空, 服务器IP地址或网址，默认为http://www.sina.com .局部变量 head, 文本型 .局部变量 moon, 文本型 .局部变量 tmp, 文本型, , "0" 网页_访问 (选择 (是否为空 (服务器地址), “http://www.sina.com”, 服务器地址), , , , , , head) moon ＝ “Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec” tmp ＝ 分割文本 (文本_取出中间文本 (head, “Date: ”, “GMT”), “ ”, ) .如果真 (取数组成员数 (tmp) ＜ 5) 返回 (到时间 (“100 － 1 － 1”)) .如果真结束 返回 (增减时间 (到时间 (tmp [4] ＋ “-” ＋ 到文本 ((寻找文本 (moon, tmp [3], , 假) － 1) ＼ 4 ＋ 1) ＋ “-” ＋ tmp [2] ＋ “ ” ＋ tmp [5]), #小时, 8))
版权声明
本文由牛人工作室发布。未经许可，不得转载。
