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
'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
コメント