用VBS获取Unix时间戳的函数代码_vbs

VBS中没有类似C标准库中的time函数，怎么获取Unix时间戳呢？乍一看很简单：

复制代码 代码如下:

Function UnixTime()
UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())
End Function

一个很想当然的方法，仅仅注意到了“1970年1月1日0时0分0秒”，而忽略了“协调世界时”。

协调世界时，又称世界标准时间或世界协调时间，简称UTC，从英文“Coordinated Universal Time”而来。在中国大陆的本地时间比UTC快8小时，就会写作UTC+8。如果是在本地时间比UTC时间慢的地区，例如夏威夷的时间是比UTC时间慢10小时，就会写作UTC-10。

而VBS中的Now()函数返回的时间是包括时区的，所以获取Unix时间戳要做一些修正。

复制代码 代码如下:

Function UnixTime()
Set objWMIService = _
GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
TimeZone = objItem.CurrentTimeZone
Next
UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())
UnixTime = UnixTime - TimeZone * 60
End Function

这才是正确的写法。
参考链接：Epoch & Unix Timestamp Conversion Tools
原文：http://demon.tw/programming/vbs-unix-time-stamp.html

时间： 2024-12-29 20:15:15

用VBS获取Unix时间戳的函数代码_vbs的相关文章

vbs获取当前时间日期的代码_vbs

获取当前日期方法一: 复制代码 代码如下: Currentdate1=date()msgbox Currentdate1 获取当前日期方法二: 复制代码 代码如下: Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2 获取当前时间: 复制代码 代码如下: CurrentTime=Hour(Now)&":"&Min

VBS获取重定向的URL的代码_vbs

某个人问的问题: 我本来想获取aaa.com页面的内容,可是aaa.com跳转到bbb.com了.我想获取bbb.com 这个网址. 访问了一下他所谓的aaa.com,发现是HTTP 302重定向 复制代码 代码如下: HTTP/1.1 302 Moved Temporarily Server: nginx/0.8.53 Date: Fri, 08 Apr 2011 15:49:25 GMT Content-Type: text/html;charset=utf-8 Transfer-Encod

用vbs读取Excel文件的函数代码_vbs

核心代码 复制代码 代码如下: Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader ) ' Function : ReadExcel ' Version : 2.00 ' This function reads data from an Excel sheet without using MS-Office ' ' Arguments: ' myXlsFile [string] The path and

用VBS实现PHP的md5_file函数代码_vbs

复制代码 代码如下: Function md5_file(filename, raw_output) Dim HashedData, Utility, Stream Set HashedData = CreateObject("CAPICOM.HashedData") Set Utility = CreateObject("CAPICOM.Utilities") Set Stream = CreateObject("ADODB.Stream")

php实现兼容2038年后Unix时间戳转换函数

 这篇文章主要介绍了php实现兼容2038年后Unix时间戳转换函数,使用方法和就的函数一样,非常实用,推荐给大家,希望大家能够喜欢.     使用方法跟旧的函数一模一样.   代码如下: function fun_strtotime($var1=0,$var2=0){ if(!$var2){ $var2 = $var1; $var1 = 0; } if(is_numeric($var2)){ $var2 = '@'.$var2; } try{ $date = new DateTime($var

js获取图片大小的函数代码_javascript技巧

1.获取图片大小的函数getImageSize 复制代码 代码如下: function getImageSize(imageEl) { var i = new Image(); //新建一个图片对象 i.src = imageEl.src; //将图片的src属性赋值给新建图片对象的src return new Array(i.width, i.height); //返回图片的长宽像素 //return [i.width, i.height]; } 2.示例 复制代码 代码如下: var img

vbs后台运行bat删除自身的代码_vbs

知道真实路径的情况下 复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具体的路径情况下,可以用如下代码: 复制代码 代码如下: Set fso =CreateObject(

PHP获取MAC地址的函数代码_php技巧

复制代码 代码如下: <?php /** 获取网卡的MAC地址原码:目前支持WIN/LINUX系统 获取机器网卡的物理(MAC)地址 **/ class GetMacAddr{ var $return_array = array(); // 返回带有MAC地址的字串数组 var $mac_addr; function GetMacAddr($os_type){ switch ( strtolower($os_type) ){ case "linux": $this->for

Python获取远程文件大小的函数代码分享_python

复制代码 代码如下: def getRemoteFileSize(url, proxy=None):    """ 通过content-length头获取远程文件大小        url - 目标文件URL        proxy - 代理  """    opener = urllib2.build_opener()    if proxy:        if url.lower().startswith('https://'):