VBS 日付をyyyyMMdd形式に変換する

※Mainファイルと部品ファイルは同じ階層に置くものとする

部品ファイル（yyyyMMdd形式に変換するファイル）
fncDateFormat.vbs

Function fncDateFormat(targetDate)
    Dim YYYY
    Dim MM
    Dim DD
    YYYY = Year(targetDate)
    MM = Month(targetDate)
    DD = Day(targetDate)
    fncDateFormat = YYYY & MM & DD
End Function

Mainファイル（部品を呼び出すファイル）
Main.vbs

Const ForReading = 1
Dim FileShell
  Set FileShell = WScript.CreateObject("Scripting.FileSystemObject")
Function ReadFile(ByVal FileName)
  ReadFile = FileShell.OpenTextFile(FileName, ForReading, False).ReadAll()
End Function
Execute ReadFile("fncDateFormat.vbs")
MsgBox fncDateFormat(Date())

ちなみに、部品ファイルとMainファイルに分けない場合は以下の様になる

Function fncDateFormat(targetDate)
    Dim YYYY
    Dim MM
    Dim DD
    YYYY = Year(targetDate)
    MM = Month(targetDate)
    DD = Day(targetDate)
    fncDateFormat = YYYY & MM & DD
End Function
MsgBox fncDateFormat(Date())

参考URL
VBScript:VBScriptで日付用のFormat関数を作成するサンプルプログラム | SE Life Log – VBAを中心にその他IT備忘録 –