Форум пользователей Visio
http://visio.getbb.ru/

Ругается на вложеенные ифы
http://visio.getbb.ru/viewtopic.php?f=6&t=160
Страница 1 из 1

Автор:  rakch [ 23 июл 2012, 21:52 ]
Заголовок сообщения:  Ругается на вложеенные ифы

Код:
For i = 0 To Count
        ShpDay = Day(Shps(i).Cells("Prop.Row_28").Result(visDate))
        ShpMonth = Month(Shps(i).Cells("Prop.Row_28").Result(visDate))
        ShpYear = Year(Shps(i).Cells("Prop.Row_28").Result(visDate))
        If ShpYear < YearP And ShpYear > YearB Then
            DateCount = DateCount + 1
        End If
        If ShpYear = YearP Then
            If ShpMonth < MonthP Then
                DateCount = DateCount + 1
            End If
            If ShpMonth = MonthP Then
                If ShpDay < DayP Then
                    DateCount = DateCount + 1
                End If
            End If
        End If
        If ShpYear = YearB Then
            If ShpMonth > MonthB Then
                DateCount = DateCount + 1
            End If
            If ShpMonth = MonthB Then
                If ShpDay > DayB Then
                    DateCount = DateCount + 1
                End If
            End If
        End If
    Next


не могу понять почему он говорит object variable or with block variable not set

а и программа находит обьекты которые у которых дата находится между промежутком каких то дат

Автор:  Tumanov [ 23 июл 2012, 22:12 ]
Заголовок сообщения:  Re: Ругается на вложеенные ифы

Отладчиком надо уточнять, в какой строке ругается, на что именно.

Автор:  rakch [ 23 июл 2012, 23:06 ]
Заголовок сообщения:  Re: Ругается на вложеенные ифы

А знаете как дату перевести в число?

Автор:  Surrogate [ 23 июл 2012, 23:39 ]
Заголовок сообщения:  Re: Ругается на вложеенные ифы

перечень стандартных функций VBA
http://www.on-line-teaching.com/vba/lsn0106.html

Автор:  Surrogate [ 24 июл 2012, 02:36 ]
Заголовок сообщения:  Re: Ругается на вложеенные ифы

В данном коде массив начинается с какого индекса: 0 или 1 ?
с 1 у меня этот код работает…

Автор:  rakch [ 24 июл 2012, 08:58 ]
Заголовок сообщения:  Re: Ругается на вложеенные ифы

Да, нашел свою ошибку спасибо большое :))
Просто в с++ нулевой индекс есть первый элемент :)
Запутался в особенностях языка малян ) спасибо)

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/