网抓实例:自动修正系统日期和时间

电脑系统日期和时间,用户可以自己修改。下面的工具可以自动获取标准的北京日期和时间,并修正系统时间。

代码:

‘By 刘永富,QQ群:61840693
Public IE As InternetExplorer
Sub GetDateTime()
    On Error GoTo Err1:
    Dim span_date As MSHTML.HTMLSpanElement
    Dim span_time As MSHTML.HTMLSpanElement
    Dim Sdate As String, Stime As String
    Set IE = New InternetExplorer
    With IE
        .Silent = True
        .Visible = False
        .navigate "https://www.baidu.com/s?wd=%E5%8C%97%E4%BA%AC%E6%97%B6%E9%97%B4"
        While .readyState <> READYSTATE_COMPLETE
            DoEvents
        Wend
        Do
            Set span_date = .document.getElementsByClassName("op-beijingtime-date").Item(0)
            DoEvents
            If span_date Is Nothing = False Then
                If IsDate(span_date.innerText) Then Exit Do
            End If
        Loop
        Sdate = Trim(span_date.innerText)
        Set span_time = .document.getElementsByClassName("op-beijingtime-time").Item(0)
        Stime = Trim(span_time.innerText)
        Date = CDate(Sdate)
        Time = CDate(Left(Stime, 5) & ":" & Right(Stime, 2))
        .Quit
    End With
    Exit Sub
Err1:
    MsgBox Err.Description
End Sub

附件下载:

下载地址

原文地址:https://www.cnblogs.com/ryueifu-VBA/p/9215309.html

时间: 2024-11-05 12:06:34

网抓实例:自动修正系统日期和时间的相关文章

Linux date命令-显示和设置系统日期与时间 压缩包以YYMMDD格式命令

date --help用法:date [选项]... [+格式] 或:date [-u|--utc|--universal] [MMDDhhmm[[CC]YY][.ss]]以给定的格式显示当前时间,或是设置系统日期. -d,--date=字符串        显示指定字符串所描述的时间,而非当前时间  -f,--file=日期文件        类似--date,从日期文件中按行读入时间描述  -r, --reference=文件        显示文件指定文件的最后修改时间  -R, --rf

CentOS下date命令 - 显示和设置系统日期与时间

显示系统日期 要显示系统日期,只要输入: $ date Thu Dec 5 22:55:41 WIB 2013 格式化显示日期 日期有很多格式.如果你不喜欢默认的格式,你可以换一种格式.你可能会想"为什么我需要改变格式? 默认的输出对我足够了." 是的,你说的对,但是当你在编程时,默认输出或许无法满足你的需求,因此需要一些自定义输出. RFC 2822 的日期与时间输出格式 $ date -R Thu, 05 Dec 2013 23:40:53 +0700 RFC 2822 的格式像这

Android 通过应用设置系统日期和时间的方法

android 2.3 android 4.0 测试可行,不过需要ROOT权限. import java.io.DataOutputStream; import java.io.File; import java.io.IOException; import java.util.Calendar; import android.os.SystemClock; public class SystemDateTime { static final String TAG = "SystemDateTi

bat 获取系统日期,时间,并去掉时间小时前面的空格和时间后面的空格

@echo off rem BAT获取系统日期,时间,并去掉时间小时前面的空格和时间后面的空格 echo *** %DATE% echo *** %TIME% set THISDATE=%DATE:~0,4%%DATE:~5,2%%DATE:~8,2% echo %THISDATE% rem 去掉小时前的空格 set h=%time:~0,2% set h=%h: =0% set log_filename=%date:~0,4%%date:~5,2%%date:~8,2%%h%%time:~3,

date-打印或者设置系统日期和时间

date:打印或者设置系统日期和时间. 语法: date [OPTION]... [+FORMAT] date [-u|--utc|--universal] [MMDDhhmm[[CC]YY][.ss]] 选项: -s:设置日期和时间: -d:通过描述时间的字符串来显示时间: -f:读取文件中的日期和时间: -I:使用ISO 8601格式输出日期.时间: -r:显示文件的最近的修改时间: -R:使用RFC 2822格式输出日期和时间: -u:打印或者设置世界标准时间. 格式: %Y:年: %m:

oracle获取系统日期--当前时间+前一天+当前月+前一个月

目录 获取系统日期: SYSDATE 当前日: 前一天: 前一天转换为日期格式: 前一个月日期: 前一个月: 后一个月转换为字符串: 补充:格式化日期 获取系统日期: SYSDATE当前日:select TRUNC(SYSDATE) from dual;前一天:select TRUNC(SYSDATE-1) from dual;前一天转换为日期格式:select to_char(TRUNC(SYSDATE-1),'fmdd') from dual;前一个月日期:select add_months

Linux设置系统日期和时间CentOS6.3

本文参考过网络文章,这是自己练习后总结的文档: [[email protected] ~]# date -s 07/19/2015    设置日期 2015年 07月 19日 星期日 00:00:00 CST [[email protected] ~]# date -s 21:02:30      设置时间 2015年 07月 19日 星期日 21:02:30 CST [[email protected] ~]# date 071921052015.20  同时设置日期时间(MMDDhhmmYY

获取系统日期与时间

运行命令:Get-Date 查看星期几: 查看短时间,长时间: 获取一年中的第几天: 查看长短日期格式: 一个月后的日期: 一百年后的今天: 原文地址:https://www.cnblogs.com/feiyucha/p/9981022.html

关于系统日期的转换与操作

日期时间转字符串: 1.Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2006 10:57AM 2.Select CONVERT(varchar(100), GETDATE(), 1): 05/16/06 3.Select CONVERT(varchar(100), GETDATE(), 2): 06.05.16 4.Select CONVERT(varchar(100), GETDATE(), 3): 16/05/06 5.Select C