Добавление календарных меток с помощью цикла и функции DateAdd

'BEGIN DESCRIPTION
'Пример добавления календарных меток с использованием цикла и функции DataAdd.
'END DESCRIPTION
'Перевод: А. Балабанов, 14.11.2008

Option Explicit

Sub Main
	FREQUENCIES_Syntax	
End Sub

Sub FREQUENCIES_Syntax()
'Пример добавления меток с датами к числовым значениям
Dim  strDate As String

	Dim strCommand As String, count As Integer
	For count=1 To 4
		Let strDate = " '" & DateAdd("yyyy",count,#1/1/2000#)&"'"
		strCommand = "ADD VALUE LABELS var1 " &count & strDate
		objSpssApp.ExecuteCommands strCommand, True
		strCommand = "execute."
		objSpssApp.ExecuteCommands strCommand, True
	Next count
End Sub