SQLの窓 イラストAC フリー素材

2014年07月05日

VBScript : 現在のUnixタイムスタンプを求める

PHP で、mktime は、『日付を Unix のタイムスタンプとして取得する』関数です。返される値の意味は、『Unix epoch(1970年1月1日00:00:00 GMT)から 指定された時刻までの通算秒を表す長整数』です

タイムゾーンは、"Asia/Tokyo" で設定しています。
<?php
// 1404658800

date_default_timezone_set( "Asia/Tokyo" );
print mktime(0,0,0,7,7,2014);


?>
VBScript で、DateDiff は、『指定された 2 つの日付の時間間隔を返す』関数です。また、DateAdd は、『指定された時間間隔を加算した日付を返す』関数です

DateDiff の最初の引数の "s" は、秒を表し、1970/1/1 0:00:00 からの経過秒数を求める事によって、Unixタイムスタンプの仕様に合致させています。DateAdd の "h" も同様(この場合は1時間)ですが、-9 は、タイムゾーンの調整です("Asia/Tokyo")
' 1404658800
Wscript.Echo DateDiff("s", "1970/1/1 0:00:00",DateAdd("h",-9,"2014/07/07"))

当時(2010-05-27)、こんな事やっていた目的ですが・・・

VBScript で Twitter API を呼び出す準備の一つで、nonce 関数は以下のようになります。
Function Nonce(  )

	Dim base_str,str,I,nLen,Random
	base_str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

	nLen = Len(base_str)

	str = ""
	For I = 1 to 32
		Randomize
		Random = 1 + Int(Rnd * nLen)
		str = str & Mid(base_str,Random,1)
	Next

	Nonce = str

End function
Base64 を含む、Twitter の処理は、crypto-js が優れています。実際に利用したコードを以下のリンク先からダウンロードできます。

WSH : VBScript と JavaScript で Twitter に投稿する


以下は単純な Base64 の処理に適しています

Bsee64 は、以下を参照して下さい
VBScript : Base64 エンコード( UTF-8 )


タグ:twitter VBScript
【VBScriptの最新記事】
posted by at 2014-07-05 13:17 | VBScript | このブログの読者になる | 更新情報をチェックする


Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX