Twitterの日付形式をExcelのシリアル値に変換

Pocket

Twitterの日付形式をExcelのシリアル値に変換する、VBAのコードです。

Function twitter_dateserial(td)
    'Twitterの日付形式をExcelのシリアル値に変換する。
    '変換前「Tue Jul 21 03:23:04 +0000 2009」
    ds = Split(td, " ")hs = Split(ds(3), ":")
    mstr = (InStr("JanFebMarAprMayJunJulAugSepOctNovDec", ds(1)) + 2) / 3
    twitter_dateserial = DateSerial(ds(5), mstr, ds(2)) + TimeSerial(hs(0) + 9, hs(1), hs(2))
End Function

[ 2009年8月9日 | カテゴリー: デジタル | タグ: , , , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報