ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Найти сумму значений из цикла
9 сообщений из 9, страница 1 из 1
Найти сумму значений из цикла
    #36033744
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Доброго дня! Застопорился на видимо простой задачке... Есть цикл:
...
Рейтинг: 0 / 0
09.06.2009, 16:34
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36033769
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Mazai-XZ
> Доброго дня! Застопорился на видимо простой задачке... Есть цикл:

Отличный вопрос! Побольше бы таких
Не оно ?


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
09.06.2009, 16:41
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36033772
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Случайно нажал ENTER и собщение отправилось недопечатанным.
Доброго дня! Застопорился на видимо простой задачке... Есть цикл:
Dim numDays As Integer
Dim myDate, myMonth, myYear
For d = Month(Date) To Month(Date) + 3
myMonth = d
numDays = DateSerial(myYear, myMonth + 1, 1) - DateSerial(myYear, myMonth, 1)
Print numDays
Next d

Принцип его прост: к текущему месяцу (на момент написания сообщения текущая дата: 09.06.2009г, тоесть месяц 6-ой) прибавляем ещё 3 месяца (проект для работы с датами), переменная myMonth выдаёт кол-во дней в определённом месяце (например февраль - 28 и так далее). В общем на форму выводяться значения (кол-во дней) для каждого месяца. Нужно найти общую сумму всех дней от текущего числа до "текущее_числоплюстри_месяца", тоесть выводитьс на форму столбиком 30 31 31 30. Нужно программно подсчитать, что всего 122 дня. Вот!
...
Рейтинг: 0 / 0
09.06.2009, 16:42
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36033789
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Mazai-XZ
> Нужно программно подсчитать, что всего 122 дня. Вот!

Ну так а цикл зачем? Если функции работы с датами тебе знакомы ;)
Велосипед уже изобрели


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
09.06.2009, 16:47
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36033802
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Игорь Горбонос
> Автор: Mazai-XZ
> Нужно программно подсчитать, что всего 122 дня. Вот!

Ну так а цикл зачем? Если функции работы с датами тебе знакомы ;)
Велосипед уже изобрели



ненене, дело не в этом. Просто пишу программу для оформления полисов ОСАГО. Нужен код расчёта периода страхования. Хитрость в том, что расчитывается не постоянное кол-во дней, тоесть грубо говоря оформляется страховка на месяц. если например текущая дата 1-е февраля, то дни считаются так 28 дней в году минус один (окончание срока в предпоследний день в 23ч59м59сек.) тоесть период будет с 1го по 27е число. если например дата 1е июля, то период будет с 1 по 30е. вот и требуется узнасть сколько фактических дней )
...
Рейтинг: 0 / 0
09.06.2009, 16:52
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36033874
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Mazai-XZ
> ненене, дело не в этом. Просто пишу программу для оформления полисов ОСАГО. Нужен код расчёта периода
> страхования. Хитрость в том, что расчитывается не постоянное кол-во дней, тоесть грубо говоря оформляется страховка на
> месяц. если например текущая дата 1-е февраля, то дни считаются так 28 дней в году минус один (окончание срока в
> предпоследний день в 23ч59м59сек.) тоесть период будет с 1го по 27е число. если например дата 1е июля, то период будет
> с 1 по 30е.

Ахренеть как все непонятно, и этим людям я плачу сумашедшие суммы за страховку

> вот и требуется узнасть сколько фактических дней )
тогда в твоем случае:
Код: plaintext
1.
2.
3.
Dim n As Long
n = DateDiff("d", DateSerial(Year(Now), Month(Now),  1 ), DateSerial(Year(Now), Month(Now) +  1 ,  1 ) -  1 , vbMonday, 
vbUseSystem) *  3  -  1 
Debug.Print n
словами это выглядит так: считаем количество дней в текущем месяце, умножаем на количество месяцев срока и отнимаем один
день на успеть подбить бабки
Если я правильно понял условие


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
09.06.2009, 17:16
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36033985
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Игорь Горбонос,
благодарю за помощь, но что-то не так ((( тоесть на выходе получается 86 дней, но через 86 дней наступит тольо 03.09.2009г, а нужно 08.09.2009г. Не пойму в чём ошибка, хотя Ваш код не вызывает сомнений.
...
Рейтинг: 0 / 0
09.06.2009, 17:48
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36034061
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Mazai-XZ
> Не пойму в чём ошибка, хотя Ваш код не вызывает сомнений.

Ошибка в том что для всех месяцев принимается количество дней как в текущем. т.е (я повторяюсь, если я правильно понял)
если я пришел в феврале, то мне расчитывают исходя из 28 дней в месяце для двух последующих месяцев, а если посчитать к
дате моего прихода прибавляем 3 месяца, считаем количество дней между этими датами и отнимаем один день и получаем
наверное то что нужно:
Код: plaintext
n = DateDiff("d", Now, DateAdd("m",  3 , Now) -  1 )



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
09.06.2009, 18:17
| Ответить | Цитировать | Написать  
Найти сумму значений из цикла
    #36035630
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Игорь Горбонос, ОГРОМНОЕ спасибо!!! Теперь то, что нужно!! теперь всё как в аптеке! ))) Благодарю за код!!! =)))
...
Рейтинг: 0 / 0
10.06.2009, 14:36
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Найти сумму значений из цикла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36033874&tid=2160853]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 244ms
total:  402ms
созд. / загр.: 402ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]