1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'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