'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