易语言通过百度错误页面获取北京时间的代码

利用百度取北京时间源码

.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型
.局部变量 网络时间, 日期时间型
.如果真 (XML对象.创建 (“WinHttp.WinHttpRequest.5.1”, ))
  XML对象.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)
  XML对象.写属性 (“Option”, 6, 0)
  XML对象.方法 (“open”, “HEAD”, “http://www.baidu.com/jb51.net”, 假)
  XML对象.方法 (“send”, )
  时间文本 = XML对象.读属性 (“GetResponseHeader”, “Date”).取文本 ()
.如果真结束
网络时间 = 时间格式化 (时间文本)
时间编辑框.内容 = 到文本 (时间文本) + #换行符 + 到文本 (网络时间)
.子程序 时间格式化, 日期时间型
.参数 时间文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 临时变量, 文本型
.局部变量 时间变量, 日期时间型
.局部变量 临时时间, 日期时间型
.局部变量 日, 文本型
.局部变量 月, 文本型
.局部变量 年, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型
临时数组 = 分割文本 (时间文本, “, ”, )
临时变量 = 临时数组 [2]
临时变量 = 子文本替换 (临时变量, “ GMT”, , , , 真)
清除数组 (临时数组)
临时数组 = 分割文本 (临时变量, “ ”, )
日 = 临时数组 [1]
.判断开始 (临时数组 [2] = “Jan”)
  月 = “01”
.判断 (临时数组 [2] = “Feb”)
  月 = “02”
.判断 (临时数组 [2] = “Mar”)
  月 = “03”
.判断 (临时数组 [2] = “Apr”)
  月 = “04”
.判断 (临时数组 [2] = “Mar”)
  月 = “05”
.判断 (临时数组 [2] = “Jun”)
  月 = “06”
.判断 (临时数组 [2] = “Jul”)
  月 = “07”
.判断 (临时数组 [2] = “Aug”)
  月 = “08”
.判断 (临时数组 [2] = “Sep”)
  月 = “09”
.判断 (临时数组 [2] = “Oct”)
  月 = “10”
.判断 (临时数组 [2] = “Nov”)
  月 = “11”
.判断 (临时数组 [2] = “Dec”)
  月 = “12”
.默认
.判断结束
年 = 临时数组 [3]
临时变量 = 临时数组 [4]
清除数组 (临时数组)
临时数组 = 分割文本 (临时变量, “:”, )
时 = 到文本 (到整数 (临时数组 [1]))
分 = 临时数组 [2]
秒 = 临时数组 [3]
时间变量 = 到时间 (年 + “/” + 月 + “/” + 日 + “/” + 时 + “/” + 分 + “/” + 秒)
时间变量 = 增减时间 (时间变量, #小时, 8)
返回 (时间变量)

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言按时间范围搜索指定类型文件的代码

    按时间搜索文件代码 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _按钮_搜索_被单击 文件搜索 ("C:", "*.*") .子程序 文件搜索 .参数 欲寻找的目录, 文本型, , 如:C:,表示C盘,记得C字后面两点一定要写 .参数 欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*或*.txt只找txt文件 .局部变量 局部_子目录, 文本型 .局部变量 局部_文件名, 文本型 .局部变量 局部_文件时间, 日期时间型 .局部变

  • 易语言将日期时间转换成纯数字格式的代码

    将时间转换到纯数字格式的代码 .版本 2 .程序集 窗口程序集1 .程序集变量 年, 文本型 .程序集变量 月, 文本型 .程序集变量 日, 文本型 .程序集变量 时, 文本型 .程序集变量 分, 文本型 .程序集变量 秒, 文本型 .子程序 获取时间 年 = 到文本 (取年份 (取现行时间 ())) .判断开始 (取月份 (取现行时间 ()) < 10) 月 = 到文本 ("0") + 到文本 (取月份 (取现行时间 ())) .默认 月 = 到文本 (取月份 (取现行时间 (

  • 易语言获取程序已运行时间的代码

    获取程序已运行时间 .版本 2 .支持库 iext .程序集 窗口程序集1 .子程序 _时钟1_周期事件 .局部变量 hr, 整数型, 静态 .局部变量 min, 整数型, 静态 .局部变量 sec, 整数型, 静态 sec = sec + 1 .如果真 (sec = 60) sec = 0 min = min + 1 .如果真结束 .如果真 (min = 60) min = 0 hr = hr + 1 .如果真结束 状态条1.置文本 (0, "已运行:" + 取文本右边 ("

  • 易语言获取开机时间dll代码

    易语言怎么获取开机时间dll代码 下面是代码dll(复制即可): .版本 2 .DLL命令 GetTickCount, 整数型, "kernel32.dll", "GetTickCount", , www.2ex.top 使用方式: 调试输出 (四舍五入 (GetTickCount () ÷ 1000, 0)) 一个代码就可以实现查看开机时间代码哦!赶快试一试吧! 下面是复制粘贴在易语言dll命令里面的代码例子,如果你复制的不一样,就辛苦下照着打下. 以上内容大家可

  • 易语言获取北京时间的方法

    在使用易语言编程的时候需要取北京时间来完成软件的其它功能,比如验证软件的使用期限等等功能,我这里便分享一下易语言怎么取北京时间,简简单单的几步便可完成!如果这篇经验对你有所帮助,请也帮助我一下,点一下投票!谢谢 1.先运行易语言,新建windos窗口程序,并且在新建的窗口程序中画: 一.两个标签,并改好名字,标签1标题为"现在北京时间是:",第二个标题为空 二.时钟 如下图: 2.在浏览器中打开百度首页,在百度首页中输入"北京时间"并点击"百度一下&quo

  • 易语言取秒的用法和实例

    易语言取秒,这个是时间操作命令,我给大家演示. 1.打开易语言新建一个windows程序进入下图界面 2.我们输入 取秒() 3.我们展开这个函数发现 只有一个参数 4.为了这个参数 我们需要定义一个 日期时间型数据 并赋值 5.我们输入这个参数 调试输出 (取秒 (a)) 6.结果为15 这个就是日期时间里面的 15秒

  • 易语言增减时间命令使用讲解

    增减时间命令 英文命令:TimeChg 操作系统支持:Windows.Linux  所属类别:时间操作 返回一个时间,这一时间被加上或减去了一段间隔.如果改变后的时间无效,将自动靠近最近的有效时间. 语法:  日期时间型  增减时间 (时间,被增加部分,增加值) 例程 说明 用一个调节钮组件来控制编辑框中的时间,当上调节钮被按下,编辑框中时间的"日"部分就增加1,下调节钮被按下,编辑框中时间"日"部分就减1.用"增减时间"命令控制时间增减,会按照

  • 易语言取时间的方法

    有时候编写一个软件需要取时间,怎么取呢,往下面看吧! 1.打开易语言,新建一个窗口. 2.加入两个组件:标签.时钟. 3.把时钟周期调到1000. 4.双击时钟,开始写源码. 5.源码:标签1.标题=到文本(取现行时间()) 6.开始调试一下吧.调试开始过后等1秒,会出现现在的时间. 总结:以上就是关于易语言取时间的操作方法,感谢大家的阅读和对我们的支持.

  • 易语言取时间年月日格式化

    怎么才能取出时间的年月日的代码形式?目前易语言自带代码取出的很精准!一般都取到秒了.但是在实际应用中或许用到的年月日是最多的一种格式. 下图为代码例子: 可以直接复制下面的代码到易语言 .版本 2 .子程序 时间格式化, 文本型, 公开 .参数 时间, 日期时间型 .局部变量 日期, 文本型 日期 = 时间到文本 (时间, #日期部分) 日期 = 子文本替换 (日期, "年", ".", , , 真) 日期 = 子文本替换 (日期, "月", &

  • 易语言取时间间隔方法详解

    易语言取时间间隔,时间操作,教给大家. 1.打开易语言新建一个windows程序进入下图界面 2.输入 取时间间隔 3.展开发现这个函数有3个参数 4.第一.二个参数 很简单就是时间我们分别输入 到时间 ("1972年1月15日11时30分15秒") 到时间 ("1973年1月15日11时30分15秒") 5.第三个参数我们输入 1就是取间隔年份的意思 6.我们输入 调试输出 (取时间间隔 (到时间 ("1972年1月15日11时30分15秒")

  • 易语言显示指定日期时间的方法

    指定时间命令 英文命令:GetSpecTime 操作系统支持:Windows.Linux  所属类别:时间操作 返回包含指定年.月.日.小时.分.秒的时间.如果指定了无效时间,将自动使用最相近的有效时间代替. 语法:  日期时间型  指定时间 (年,[月],[日],[小时],[分钟],[秒]) 例程 说明 点击不同的按钮指定不同的时间,"指定错误时间"按钮将指定一个无效的时间,所以"指定时间"命令会自动使用最相近的有效时间代替,标签会显示2004年2月29日12时2

  • 易语言取时间间隔命令使用讲解

    取时间间隔命令 英文命令:TimeDiff 操作系统支持:Windows.Linux  所属类别:时间操作 返回一个数值,表示"时间1"减去"时间2"之后的间隔数目.注意:每个星期以星期天为第一天. 语法:  双精度小数型  取时间间隔 (时间1,时间2,取间隔部分) 例程: 说明: 程序运行后,"当前时间标签"显示出当前时间,在"目的时间编辑框"中输入一个时间,通过"取时间间隔"命令,取出2个时间相差多少

随机推荐