24.09.2017, 22:24 [+3 UTC]
в нашей команде: 2 128 чел. | участники онлайн: 3 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.41 (25.02.2017)

Общие новости:
23.02.2017, 09:51

Форум:
24.09.2017, 16:39

Последний вопрос:
24.09.2017, 14:40

Последний ответ:
24.09.2017, 15:05

Последняя рассылка:
24.09.2017, 14:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
28.09.2009, 18:03 »
AkaProc
Огромное спасибо! В Mozilla Firefox все отлично показывает! [вопрос № 172676, ответ № 254800]
18.12.2009, 18:31 »
Кузнецов Валентин Олегович
Огромное спасибо за развернутый ответ! А в будущем все равно куплю видеокарту помощнее. И опять-таки обращусь к палочке-выручалочке, а это - ПОРТАЛ RFpro.ru. [вопрос № 175320, ответ № 257830]
16.11.2009, 11:57 »
megamaks
За упорство и настойчивость! [вопрос № 174217, ответ № 256568]

РАЗДЕЛ • Basic

Создание программ на языке Basic.

[администратор рассылки: Андреенков Владимир (Профессор)]

Лучшие эксперты в этом разделе

Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 76
Megaloman
Статус: Академик
Рейтинг: 22
Асмик Гаряка
Статус: Советник
Рейтинг: 0

Перейти к консультации №:
 

Консультация онлайн # 190703
Раздел: • Basic
Автор вопроса: lexabossa (Посетитель)
Отправлена: 14.03.2017, 21:22
Поступило ответов: 2

Здравствуйте! Прошу помощи в следующем вопросе:

Написать программу на Visual Basic которая преобразует введенное пользователем количество дней в количество полных недель и оставшихся дней. Например, пользователь ввел 17 дней, программа должна вывести на экран 2 недели и 3 дня.

Приложение:

Вопрос перенесен из раздела • Информатика
--------

• Отредактировал: Зенченко Константин Николаевич (Модератор)
• Дата редактирования: 15.03.2017, 09:40

Состояние: Консультация закрыта

Ответ # 274766 от PsySex (Профессионал)

Здравствуйте, lexabossa!

Dim vsego As Long
Dim nedeli As Long
Dim s As String
s = InputBox("Введите количество дней: ")
vsego = CLng(s)
nedeli = Fix(vsego / 7)
MsgBox CStr(nedeli) + " недели и " + CStr(vsego - nedeli * 7) + " дня"


Консультировал: PsySex (Профессионал)
Дата отправки: 15.03.2017, 13:37

5
нет комментария
-----
Дата оценки: 17.03.2017, 19:24

Рейтинг ответа:

+2

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 274767 от Megaloman (Академик)

Здравствуйте, lexabossa! То же самое в VBS

Days = InputBox("Введите количество дней")
If Days <> "" Then
    nDays = CLng(Days)

    Answer = "          Недель:     " + CStr(Int(nDays / 7))
    Answer = Answer + vbCrLf + "          Дней:         " + CStr(nDays - Int(nDays / 7) * 7)

    MsgBox Answer, vbOKOnly, "Всего дней: " + Days
End If


Консультировал: Megaloman (Академик)
Дата отправки: 15.03.2017, 13:50

5
нет комментария
-----
Дата оценки: 17.03.2017, 19:24

Рейтинг ответа:

+2

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 190703

Зенченко Константин Николаевич
Модератор

ID: 31795

# 1

= общий = | 15.03.2017, 10:47 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Экспертам раздела:

Обратите внимание на этот вопрос!
Спасибо!

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.13782 сек.

© 2001-2017, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.41 от 25.02.2017
Бесплатные консультации онлайн