VBA で日付をUTC日時に変換する方法

Question

VBA で日付(yyyy/mm/dd)をUTC日時に変換する方法でCreateObjectを使わない方法を教えて頂けないでしょうか。

下記のサイトを参考にCreate Objectで実装した所、端末によってはエラーが出るためです。

http://vba-geek.jp/blog-entry-310.html

変換例
2017/06/01 → 20170601000000.000000+540

Comments

[otn]

「UTC日時」という言葉の使い方を間違っています。

Answer 1

１） まず最初に

20170601000000.000000+540

のように、UTCとの時差（"+540"の部分：540分(9時間)UTよりも進んで(+)いる事を示す)がついているのは、UTではないローカル時間を表現する方法です。
質問に書かれている変換例は、UTCへ変換ではなく、JSTの表記例でしかありません。

２） UTC日時に変換するということは時間も考慮するという事だと思われますが、2017/06/01 のように時間が判らない （2017/06/01 0:00～2017/06/01 23:59の範囲であることしか判らない）ところを起点にしたのでは、日時を確定できません。
2017/06/01 12:34:00 (JST)のように、起点を特定することが必須です。

＝＝
以下、2017/06/01 12:34:00 (JST)からUTC日時("yyyy/mm/dd hh:nn:ss"形式）を得る場合を例として、回答します。

上に書いたようにJSTはUTCより９時間進んでいますから、９時間戻せばUTCになります。
VBAのコードにすれば、以下のような感じです。

' JSTの時刻(文字列）をUTC(Date)に変換する関数jst2utcの使用例
Sub UTCに変換して表示()
  Dim nowStr As String, utcStr As String, utDate As Date
  
  nowStr = "2017/06/01 12:34:00"  'JSTの日時(サンプル）

  utDate = jst2utc(nowStr)  'UTCに変換する関数（下に定義してあります）
  
  utcStr = Format(utDate, "") 'UTCを文字列に変換

  MsgBox (nowStr & "をUTCに変換すると, " & utcStr & "になります")
End Sub

' JSTの日時(文字列）を、UTC(Date型）に変換する関数
Function jst2utc(jstString As String) As Date
  Dim jstDate As Date, utDate As Date
  
  jstDate = CDate(jstString) '日付を表す文字列を、日時（Date型)に変換する
  utDate = jstDate - TimeSerial(9, 0, 0) ' シリアル値で表現した９時間を差し引く（時間を９時間戻してUTCにする）
  
  jst2utc = utDate 'UTCを返す
End Function

Answer 2

UTC日時のフォーマットについての詳細はわかりませセんが、例示の変換なら、下記のような式で可能かと。

Function GetUTCDate(StartDate As Date)

    GetUTCDate = Format(StartDate, "yyyymmddhhnnss") & ".000000+540"

End Function

追記

そもそも、質問の「日付((JST)をUTC日時へ変換」という内容と、変換例が矛盾してますね。
変換例は、日付(JST)を特定のフォーマットに変換するものです。

質問内容に合致している回答は、coco_bauerさんの方で、変換例に合致しているが私の回答ということです。

Windowsにそのような変換をするコマンドが用意されているということは、どこかでそのようなフォーマットが使われているということですね。調べてるみるとどうやらイベントログで使われているようです。
イベント ログからの 1 日分のイベントの取得