VBScript向けにFormat関数を作ってみた。でも、コマンドプロンプトが表示される。

gistfile1.vb

Option Explicit

MsgBox Format(Date, "yyyyMMdd")

Function Format(DateTime, Pattern)
    Dim command, wshShell, wshShellStatus, Stream
    
    command = "PowerShell -Command Get-Date """ & DateTime & """ -Format """ & Pattern & """"
    
    Set wshShell = CreateObject("WScript.Shell")
    Set wshShellStatus = wshShell.Exec(command)
    Set Stream = wshShellStatus.StdOut
    wshShellStatus.Terminate
    Format = Stream.ReadAll
End Function