Включение даты из файла данных в имя этого файла

Option Explicit

'Перед запуском скрипта в редакторе данных должен быть открыт файл данных
'Скрипт находит наиболее раннюю дату, содержащуюся в переменной date1,
'а затем сохраняет файл данных с именем RRDDMMYYYY, где DD,MM и YYYY,
'соответственно, день, месяц и год той даты, которая была найдена в date1.
'Автор: неизвестен

'Работоспособность скрипта может зависеть от того, какой именно формат даты выбран для переменной
'date1. Он должен совпадать с форматом даты, установленным в операционной системе - примеч. перев.

Sub Main
Dim objDataDoc As ISpssDataDoc
Dim dateval As Variant
Dim NOC As Integer
Dim i As Integer
Dim min As Date
Dim date1 As Date
Dim strCommand As String
Dim strtest As String

Set objDataDoc = objSpssApp.Documents.GetDataDoc (0)
NOC = objDataDoc.GetNumberOfCases
dateval = objDataDoc.GetTextData ("date1", "date1", 1, NOC)
min = CDate(dateval(0,1))
For i = 1 To NOC - 1
    date1 = CDate(dateval(0, i))
    If date1 < min Then min = date1
Next i

If Day(min)<10 Then
strtest="'c:\\temp\\RR0"+CStr(Day(min)*1000000+Month(min)*10000+Year(min))+".sav'"
Else
strtest="'c:\\temp\\RR"+CStr(Day(min)*1000000+Month(min)*10000+Year(min))+".sav'"
End If

strCommand="save outfile="+strtest+"."+vbCrLf
objSpssApp.ExecuteCommands strCommand, False
   
End Sub
...
Navigate from here