はい、承知いたしました。Twitter（現X）のAPIから取得したツイートの投稿日時がマイナス表示になる問題とその解決策について、エンジニア向けの技術ブログ記事を作成します。ベテランVBA講師として、実務で役立つ詳細な解説とサンプルコードを提供します。
—
### Twitter APIで取得する投稿日時がマイナス表示になる！？その原因と解決策を徹底解説！
皆さん、こんにちは！Excel VBA講師の〇〇です。今回は、多くの方が直面するであろう、Twitter（現X）のAPIから取得したツイートの投稿日時表示に関する、ちょっとした「あるある」とその解決策について、エンジニアの皆さんに役立つ情報をお届けします。
API連携でTwitterのデータを扱っていると、時折「あれ？投稿日時がおかしいぞ？」と感じる場面に遭遇しませんか？特に、過去のツイートを取得した際などに、日付や時刻がマイナスで表示されてしまうという現象です。これは一体なぜなのでしょうか？そして、どうすればこの問題をスマートに解決できるのでしょうか？
本記事では、この「Twitter APIにおける投稿日時のマイナス表示問題」の原因を深く掘り下げ、具体的な解決方法をサンプルコード（主にVBAを想定しますが、考え方は他の言語でも応用可能です）を交えながら、詳細に解説していきます。実務でAPI連携を行う際の、まさに「痒い所に手が届く」ような内容を目指しますので、ぜひ最後までお付き合いください。
### 概要：なぜTwitter APIの投稿日時はマイナスになるのか？
Twitter API（現在はX API）からツイート情報を取得する際、投稿日時を表すフィールドとして `created_at` という項目があります。この `created_at` は、通常ISO 8601形式のタイムスタンプ文字列として返されます。例えば、「2023-10-27T10:30:00Z」のような形式です。
しかし、この `created_at` をそのまま日付や時刻として扱おうとした際に、特に過去のツイートや、APIの仕様変更、あるいはクライアント側の処理方法によっては、予期せぬマイナス表示が発生することがあります。
このマイナス表示の主な原因は、以下の2点に集約されます。
1. **タイムゾーンの扱いに関する誤解または不整合:**
Twitter APIが返す `created_at` は、一般的にUTC（協定世界時）で提供されます。しかし、これを日本のローカルタイムゾーン（JST: 日本標準時、UTC+9）として直接解釈しようとしたり、あるいはサーバー側の設定やクライアント側の処理でタイムゾーンの変換が正しく行われなかったりすると、日付や時刻の計算にずれが生じ、結果としてマイナス表示につながることがあります。特に、夏時間（Daylight Saving Time – DST）の有無や、APIのバージョンによってタイムゾーンの扱いに微妙な違いがある場合も考えられます。
2. **数値表現への無理な変換:**
APIから取得したタイムスタンプ文字列を、そのまま日付や時刻を扱うための数値型（例: Excel VBAのシリアル値）に直接変換しようとした場合に、文字列の形式が正しくない、あるいは期待されるフォーマットと異なると、エラーが発生したり、意図しない数値（マイナス値を含む）に変換されてしまったりすることがあります。例えば、タイムスタンプの末尾にある「Z」（UTCであることを示す）を正しく処理できない場合などが該当します。
これらの原因を踏まえ、次章では具体的な解決策を解説していきます。
### 詳細解説：マイナス表示の原因を特定し、正しく処理する方法
#### 1. `created_at` のフォーマットとタイムゾーンの理解
まず、Twitter API v2の場合、`created_at` は通常、以下のようなISO 8601形式で返されます。
YYYY-MM-DDTHH:MM:SS.sssZ
* `YYYY-MM-DD`: 年-月-日
* `T`: 日付と時刻の区切り文字
* `HH:MM:SS`: 時:分:秒
* `.sss`: ミリ秒（省略される場合もあります）
* `Z`: UTC（協定世界時）であることを示します。
この「Z」が重要です。これは、返されている時刻が「協定世界時」であり、「日本標準時（JST）」ではないことを意味します。日本はUTCより9時間進んでいます (UTC+9)。
**問題が発生しやすいシナリオ:**
* APIから取得した `created_at` 文字列を、そのままExcelのシリアル値などに変換しようとする。
* 「Z」を無視して、UTCの時刻をJSTの時刻としてそのまま扱ってしまう。
* APIのバージョンや取得方法によっては、フォーマットが微妙に異なる場合がある。
#### 2. UTCからJSTへの正確な変換
Twitter APIが返すUTC時刻を、日本のユーザーが理解しやすいJSTに変換する必要があります。この変換は、単に9時間を足せば良いというわけではありません。日付をまたぐ場合（例: UTCで23時台のツイートがJSTで翌朝8時台になる）などを考慮する必要があります。
**Excel VBAでの日付・時刻処理の基本:**
Excel VBAでは、日付や時刻は内部的に「シリアル値」という数値で管理されています。1日は1、1時間は1/24、1分は1/(24\*60)のように表現されます。このシリアル値の基準日は、通常1900年1月1日です。
Twitter APIから取得したISO 8601形式のタイムスタンプ文字列を、VBAで日付・時刻として正しく扱うためには、以下のステップを踏むのが一般的です。
1. **文字列のパース（解析）:** ISO 8601形式の文字列から、年、月、日、時、分、秒といった各要素を抽出します。
2. **UTC時刻の構築:** 抽出した要素を使って、VBAで扱える日付・時刻型（`Date`型）の変数にUTC時刻として格納します。
3. **タイムゾーン変換:** UTC時刻に対して、9時間を加算してJSTに変換します。
4. **フォーマット:** 変換されたJSTの日時を、表示しやすい形式の文字列に整形します。
#### 3. VBAでの具体的な処理方法
VBAでISO 8601形式のタイムスタンプを扱う場合、いくつかのアプローチが考えられます。
**アプローチA: 文字列操作と日付関数による手動変換（比較的シンプル）**
この方法は、ISO 8601形式の文字列から必要な部分を抽出し、VBAの日付関数を使って日付・時刻オブジェクトを組み立てる方法です。
**アプローチB: `CDate` 関数や `DateValue`/`TimeValue` 関数を補助的に利用**
VBAには、日付や時刻を表す文字列を `Date` 型に変換する `CDate` 関数などがありますが、ISO 8601形式（特に「Z」が付いている場合）を直接 `CDate` で変換しようとすると、エラーになるか、期待通りの結果にならないことがあります。そのため、前処理が必要になることが多いです。
**アプローチC: `Format` 関数と `DateAdd` 関数を駆使する（推奨）**
このアプローチが最も柔軟で、かつ正確に処理できます。APIから取得した文字列の「Z」を取り除き、VBAの `CDate` 関数などで一旦日付型に変換した後、`DateAdd` 関数で9時間を加算し、最後に `Format` 関数で整形するのが一般的です。
##### サンプルコード（VBA）
ここでは、アプローチCをベースにしたサンプルコードを示します。
Sub ConvertTwitterTimestamp()
‘ テスト用のTwitter APIから取得したcreated_at（UTC）
‘ 例1: 2023年10月27日 10時30分00秒 UTC
Dim twitterTimestampUTC As String
twitterTimestampUTC = “2023-10-27T10:30:00Z”
‘ 例2: 日付をまたぐ場合（UTC 23時 → JST 翌朝8時）
Dim twitterTimestampUTC_Late As String
twitterTimestampUTC_Late = “2023-10-27T15:00:00Z” ‘ UTC 15時 → JST 翌日 00時
‘ 例3: ミリ秒が含まれる場合
Dim twitterTimestampUTC_Millis As String
twitterTimestampUTC_Millis = “2023-10-27T10:30:00.123Z”
‘ 変換結果を表示するセル
Dim targetCell As Range
Set targetCell = ThisWorkbook.Sheets(“Sheet1”).Range(“A1”)
‘ 変換処理の実行と表示
targetCell.Value = “元のUTCタイムスタンプ”
targetCell.Offset(1, 0).Value = twitterTimestampUTC
targetCell.Offset(1, 1).Value = “変換後のJST日時”
targetCell.Offset(1, 2).Value = ConvertUTCToJST(twitterTimestampUTC)
targetCell.Offset(2, 0).Value = “” ‘ 空行
targetCell.Offset(3, 0).Value = twitterTimestampUTC_Late
targetCell.Offset(3, 1).Value = “変換後のJST日時”
targetCell.Offset(3, 2).Value = ConvertUTCToJST(twitterTimestampUTC_Late)
targetCell.Offset(4, 0).Value = “” ‘ 空行
targetCell.Offset(5, 0).Value = twitterTimestampUTC_Millis
targetCell.Offset(5, 1).Value = “変換後のJST日時”
targetCell.Offset(5, 2).Value = ConvertUTCToJST(twitterTimestampUTC_Millis)
MsgBox “変換が完了しました。Sheet1のA1セルから結果をご確認ください。”, vbInformation
End Sub
‘===============================================================================
‘ 関数名: ConvertUTCToJST
‘ 概要: Twitter APIから取得したUTCのISO 8601形式タイムスタンプ文字列を
‘ 日本標準時(JST)のDateTime型に変換する。
‘ 引数: utcTimestamp (String) – 例: “2023-10-27T10:30:00Z”
‘ 戻り値: JSTのDateTime型。変換できない場合はNothingを返す。
‘===============================================================================
Function ConvertUTCToJST(utcTimestamp As String) As Variant
Dim jstDateTime As Variant
jstDateTime = CVErr(xlErrNA) ‘ エラー値で初期化
On Error GoTo ErrorHandler
‘ 1. 末尾の ‘Z’ を取り除く (UTCを示すマーカー)
Dim timestampWithoutZ As String
If Right(utcTimestamp, 1) = “Z” Then
timestampWithoutZ = Left(utcTimestamp, Len(utcTimestamp) – 1)
Else
‘ ‘Z’ がない場合も処理できるようにする（APIの仕様変更や異なるフォーマットに対応）
‘ ただし、この場合はUTCであることを前提とする。
timestampWithoutZ = utcTimestamp
End If
‘ 2. VBAのCDate関数で日付/時刻型に変換
‘ CDateは、ロケール設定に依存するため、ISO 8601形式を直接解釈できない場合がある。
‘ より安全なのは、ParseISO8601関数などを自作するか、
‘ 外部ライブラリを利用することだが、ここではVBA標準機能で試みる。
‘ Excelのバージョンや設定によっては、ここでエラーになる可能性あり。
‘ もしエラーになる場合は、文字列解析してDateSerial, TimeSerialで組み立てる必要がある。
Dim utcDate As Date
‘ CDateがISO 8601形式を解釈できるよう、一時的にロケール設定を変更する方法もあるが、
‘ それは環境依存性が高いため、ここでは文字列分割で安全に処理する例を示す。
Dim yearPart As Integer, monthPart As Integer, dayPart As Integer
Dim hourPart As Integer, minutePart As Integer, secondPart As Integer
Dim millisecondPart As Double
‘ YYYY-MM-DDTHH:MM:SS.sss の形式を想定
On Error Resume Next ‘ 文字列解析中のエラーを一時的に無視
yearPart = CInt(Mid(timestampWithoutZ, 1, 4))
monthPart = CInt(Mid(timestampWithoutZ, 6, 2))
dayPart = CInt(Mid(timestampWithoutZ, 9, 2))
hourPart = CInt(Mid(timestampWithoutZ, 12, 2))
minutePart = CInt(Mid(timestampWithoutZ, 15, 2))
secondPart = CInt(Mid(timestampWithoutZ, 18, 2))
‘ ミリ秒部分の処理（存在する場合）
If InStr(timestampWithoutZ, “.”) > 0 Then
Dim msString As String
msString = Mid(timestampWithoutZ, InStr(timestampWithoutZ, “.”) + 1)
‘ ミリ秒を秒の小数部分に変換 (例: 123ms -> 0.123秒)
millisecondPart = CDbl(“0.” & msString) * secondPart ‘ ここで秒の小数部分に変換
‘ 実際には、ミリ秒は秒の小数部分として直接扱うのが一般的
‘ 例: 123ms -> 0.123秒
‘ millisecondPart = CDbl(msString) / 1000
Else
millisecondPart = 0
End If
‘ DateSerialとTimeSerialでDate型を構築する方が確実
‘ DateSerial(Year, Month, Day)
‘ TimeSerial(Hour, Minute, Second)
Dim tempDate As Date
tempDate = DateSerial(yearPart, monthPart, dayPart) + TimeSerial(hourPart, minutePart, secondPart)
‘ ミリ秒を加算 (VBAのDate型はミリ秒を直接扱えないため、後でFormatで調整するか、
‘ より高精度なライブラリが必要になるが、ここでは無視するか、
‘ 秒の小数部分として扱う)
‘ もしミリ秒も考慮したい場合は、別途管理するか、String型で保持して後で結合するなどの工夫が必要。
‘ ここでは、単純化のため秒までで処理する。
‘ UTC時刻に9時間を加算してJSTに変換
‘ DateAdd(“h”, 9, utcDate) を使う
jstDateTime = DateAdd(“h”, 9, tempDate)
‘ 戻り値はVariant型で、必要に応じてFormat関数で整形する
‘ 例: YYYY/MM/DD HH:MM:SS の形式にする場合
‘ ConvertUTCToJST = Format(jstDateTime, “yyyy/mm/dd hh:nn:ss”)
‘ Date型で返すのが汎用的
ConvertUTCToJST = jstDateTime
Exit Function
ErrorHandler:
‘ エラーが発生した場合
ConvertUTCToJST = CVErr(xlErrNA) ‘ エラー値を返す
End Function
‘ —
‘ 上記のConvertUTCToJST関数を、よりVBAのCDate関数を使いやすくした例（ただし、ISO 8601の解釈に依存）
‘ これは環境によってはうまく動かない可能性があるので、注意が必要です。
‘ Sub TestConvertWithCDate()
‘ Dim twitterTimestampUTC As String
‘ twitterTimestampUTC = “2023-10-27T10:30:00Z”
‘
‘ ‘ 末尾のZを削除
‘ Dim cleanTimestamp As String
‘ cleanTimestamp = Replace(twitterTimestampUTC, “Z”, “”)
‘
‘ ‘ CDateで変換（ロケール依存）
‘ Dim utcDate As Date
‘ On Error Resume Next
‘ utcDate = CDate(cleanTimestamp)
‘ On Error GoTo 0
‘
‘ If utcDate = 0 Then ‘ 変換失敗
‘ MsgBox “CDateでの変換に失敗しました。”
‘ Exit Sub
‘ End If
‘
‘ ‘ 9時間加算
‘ Dim jstDate As Date
‘ jstDate = DateAdd(“h”, 9, utcDate)
‘
‘ ‘ 表示
‘ MsgBox “UTC: ” & twitterTimestampUTC & vbCrLf & _
‘ “JST: ” & Format(jstDate, “yyyy/mm/dd hh:nn:ss”)
‘ End Sub
‘ —
**コードの解説:**
1. **`ConvertUTCToJST` 関数:**
* 引数 `utcTimestamp` として、APIから取得したUTCのタイムスタンプ文字列を受け取ります。
* まず、文字列の末尾にある「Z」を削除します。これはUTCであることを示すマーカーであり、VBAの標準関数で直接日付型に変換する際に邪魔になることがあるためです。
* 次に、文字列を `Mid` 関数などで分割し、年、月、日、時、分、秒の各要素を数値として抽出します。
* `DateSerial` 関数と `TimeSerial` 関数を組み合わせて、抽出した要素からVBAの `Date` 型でUTCの日時を構築します。この方法は `CDate` 関数よりもロケール設定に依存せず、安全に日付・時刻を組み立てられます。
* `DateAdd(“h”, 9, tempDate)` を使用して、構築した
