Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.07.2011, 17:38   #1
rj-45
 
Аватар для rj-45
 
Регистрация: 02.07.2011
Сообщений: 3
По умолчанию Что я делаю не так

Ребят, то ли я не очень, то ли яхз, я пытаюсь написать прогу которая считает кол-во дней в году, если кл-во дней в месяце = 30. у меня почему-то получается что каждый месяц прибавляется еще 1 лишний день. посмотрите пожалуйста, если не сложно...

Sub den_Do1()
Dim i, j As Byte
Dim den As Integer
den = 0
i = 1
j = 1
Do While i <= 12
Do While j <= 30
j = j + 1
den = den + 1
Loop
i = i + 1
j = 0
Loop
MsgBox den
End Sub

С другими видами циклов все работает, а с do while loop не работает. Ткните носом в ошибку пожалуйста

Последний раз редактировалось rj-45; 09.07.2011 в 17:05.
rj-45 вне форума
Старый 08.07.2011, 17:54   #2
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Вот так попробуйте

Код:
Sub den_Do1()
Dim i, j As Byte
Dim den As Integer
den = 0
i = 1
j = 1
Do While i <= 12
    Do While j <= 30
        j = j + 1
        den = den + 1
    Loop
    i = i + 1
    If i Mod 2 = 0 Then
     j = 0
    Else
      j = 1
    End If
Loop
MsgBox den
End Sub
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума
Старый 08.07.2011, 21:16   #3
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

А зачем такие сложности?
Код:
Public Sub www()
    Dim i
    i = DateDiff("d", #1/1/2011#, #1/1/2012#) - 1
MsgBox i
End Sub
Сообщит к-во дней в 2011 году
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума
Старый 08.07.2011, 21:50   #4
R Dmitry
Форумчанин
 
Регистрация: 07.03.2010
Сообщений: 796
По умолчанию

А я пять раз перечитал топик......... так и не понял, что автор хочет
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
R Dmitry вне форума
Старый 09.07.2011, 13:40   #5
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Я тоже не понял что он хочет....
Но подогнал из того что есть %))))))))))
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума
Старый 09.07.2011, 17:04   #6
rj-45
 
Аватар для rj-45
 
Регистрация: 02.07.2011
Сообщений: 3
По умолчанию

в этой программе непраильно считается количество дней в месяце. я просил ткнуть меня носом в ошибку
Цитата:
А зачем такие сложности?
Нужно написать прогу по теме циклы используя все виды циклов

Последний раз редактировалось rj-45; 09.07.2011 в 17:07.
rj-45 вне форума
Старый 22.11.2011, 09:14   #7
Shman
 
Регистрация: 22.11.2011
Сообщений: 6
Вопрос Вычислить возраст студента.

У меня такая ситуация. Нужно вычислить возраст студента из таблицы в базе данных Access 2003.
Есть пошаговое задание:
Цитата:
Для выполнения п.1 нужно выполнить следующие действия:
1. Перейти в окне БД на вкладку < Запросы >.
2. Щелкнуть мышью на кнопке Создать.
3. Выбрать средство Конструктор.
4. В диалоговом окне <Добавление таблицы или запроса> выбрать таблицу "Студенты".
5. Щелкнуть мышью на кнопке Добавить , затем на кнопке Закрыть .
6. Перенести в таблицу QBE все поля таблицы "Студенты".
7. Щелкнуть мышью на свободном поле таблицы QBE и вызвать правой кнопкой мыши контекстное меню.
8. Выполнить команду Построить и перейти в окно Построителя выражений.
9. В наборе объектов Построителя выражений найти и открыть папку “Встроенные функции” и вывести на экран функцию DateDiff, которая подсчитывает временной интервал между двумя датами.
10. Сформировать набор параметров для функции DateDiff:
1-й параметр - константа “yyyy” - указывает, что интервал будет измеряться в годах;
2-й параметр “Дата рождения” - выбирается из набора значений полей таблицы "Студенты" средствами Построителя выражений и выводится в набор параметров DateDiff (щелчком мыши на клавише ВСТАВИТЬ);
3-й параметр “Текущая дата” определяется с использованием стандартной функции Date, которая выбирается из набора встроенных функций Access и переносится в набор параметров.
Обращение к функции DateDiff должно быть записано в поле QBE в следующем формате:
DateDiff (“yyyy”;[Студенты]![Дата рождения];Date())
11. Заменить текст “Выражение1:”, который выводится в поле QBE перед именем функции DateDiff на текст “Возраст:”
12. Запустить запрос на выполнение. На экране в списке сведений о студентах появилось новое поле “Возраст”.
13. Сохранить запрос под именем “Вычисление возраста студента”.
Я дошел до шага 11 и НЕ ВИЖУ текст “Выражение1:” перед именем функции DateDiff. То есть, DateDiff (“yyyy”;[Студенты]![Дата рождения];Date()) – это есть, а “Выражение1:” нет . Когда я пишу “Возраст:” вылазит ошибка синтаксиса . Что я делаю не так?

-----------------
Цитата:
Что я делаю не так?
1) Задаёте свои вопросы в первом попавшемся разделе форума
2) Не читаете правила форума
3) Постите в чужую тему вместо создания своей.
-----------------
модератор

Последний раз редактировалось EducatedFool; 22.11.2011 в 10:24.
Shman вне форума
Старый 22.11.2011, 10:21   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
базе данных Access 2003.
Вообще-то здесь форум Excel.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив что я делаю не так Fox-mts Общие вопросы C/C++ 3 18.04.2011 19:17
Установка Gecko - что делаю не так? spamer Работа с сетью в Delphi 0 27.09.2010 23:49
Объсните что не так делаю Crudelis Общие вопросы C/C++ 4 10.06.2010 00:26
не пойму что не так делаю Crudelis Общие вопросы C/C++ 3 23.04.2010 11:09
Visual C++: Что не так делаю? N!ckeL Помощь студентам 8 19.05.2008 11:28