Office関連

RSSの日付を変換するVBAマクロ

RSSから取得した日付(「Wed, 20 Dec 2017 00:02:41 +0000」のようなRFC-822形式)を【年/月/日 時間:分:秒】形式に変換する必要があったので、ScriptControl経由で処理するマクロを書いてみました。

Option Explicit

Public Sub Sample()
  Debug.Print ConvertDate("Wed, 20 Dec 2017 00:02:41 +0000")
End Sub

Private Function ConvertDate(ByVal dt As String) As String
'RFC 822形式の日付を変換
  Dim dtYear As String
  Dim dtMonth As String
  Dim dtDate As String
  Dim dtHours As String
  Dim dtMinutes As String
  Dim dtSeconds As String
  Dim ret As String
  Dim d As Object
  
  With CreateObject("ScriptControl")
    .Language = "JScript"
    .AddCode "function getDate(dt){return new Date(dt);}"
    Set d = .CodeObject.getDate(dt)
    dtYear = CallByName(d, "getFullYear", VbMethod)
    dtMonth = ZeroPadding(CLng(CallByName(d, "getMonth", VbMethod)) + 1, 2)
    dtDate = ZeroPadding(CallByName(d, "getDate", VbMethod), 2)
    dtHours = ZeroPadding(CallByName(d, "getHours", VbMethod), 2)
    dtMinutes = ZeroPadding(CallByName(d, "getMinutes", VbMethod), 2)
    dtSeconds = ZeroPadding(CallByName(d, "getSeconds", VbMethod), 2)
  End With
  ret = dtYear & "/" & dtMonth & "/" & dtDate & " " & dtHours & ":" & dtMinutes & ":" & dtSeconds
  ConvertDate = ret
End Function

Private Function ZeroPadding(ByVal str As String, _
                             ByVal digit As Long) As String
'ゼロ埋め
  ZeroPadding = Right(String(digit, "0") & str, digit)
End Function

上記の通りScriptControlを使用しているので、64ビット版のOfficeでは使えませんが、とりあえずこれで扱いやすい日付形式に変換することができました。

Visual Basic Advent Calendar 2017

Qiitaの「Visual Basic Advent Calendar 2017」に“Officeでも発表できるAdvent Calendar”とあったので、折角なので参加させていただくことにしました!
(大したネタでなくて申し訳ない・・・)

関連記事

  1. Office関連

    [Word]隠し文字をクイックアクセスツールバーから設定する。

    Wordで、部分的に印刷したくない文字列がある場合には「隠し文字」がよ…

  2. Office関連

    セル内の改行をカウントするExcelマクロ

    「Excel セルの内容 改行を数える VBA」といったキーワード検索…

  3. Office関連

    アクティブなIEのタブを閉じるVBAマクロ

    「VBA アクティブ IE タブ 閉じる」といったキーワード検索でのア…

  4. Windows 10

    Microsoft Edgeを操作するVBAマクロ(DOM編)

    2017/1/31 追記:一部コードを修正した記事を公開しました。…

  5. Office関連

    [Word VBA]引数の型がVariantになっているのはなぜ?

    インストラクターのネタ帳でお馴染みの伊藤さんが先日下記の記事をアップさ…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP