17.01.2018, 06:17 [+3 UTC]
в нашей команде: 2 474 чел. | участники онлайн: 2 (рекорд: 21)

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

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

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

Версия системы:
7.42 (30.12.2017)

Общие новости:
02.01.2018, 09:46

Форум:
12.01.2018, 10:25

Последний вопрос:
17.01.2018, 01:00

Последний ответ:
16.01.2018, 13:00

Последняя рассылка:
17.01.2018, 04:45

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

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

Наша кнопка:

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

Отзывы о нас:
06.04.2012, 20:48 »
Иванов Анатолий Николаевич
+5 Отлично! [вопрос № 185716, ответ № 270450]
10.03.2011, 22:23 »
Dzhey
Спасибо. И отдельное спасибо за приятное оформление smile [вопрос № 182441, ответ № 266182]
12.10.2010, 00:31 »
Vladislav
Огромное спасибо за быстрый и развернутый ответ) Очень благодарен:) [вопрос № 180283, ответ № 263455]

РАЗДЕЛ • Basic

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

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

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

Megaloman
Статус: Академик
Рейтинг: 147
Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 37
mklokov
Статус: 6-й класс
Рейтинг: 19

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

Консультация онлайн # 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

=DBD::mysql::st execute failed: Incorrect key file for table '.\masterexpertpro_rfpro\todayvisitscounter.MYI'; try to repair it at C:\inetpub\vhosts\rfpro.ru\index.cgi line 139. общий = | 15.03.2017, 10:47 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Экспертам раздела:

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

 

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

Яндекс Rambler's Top100

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

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

© 2001-2018, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.42 от 30.12.2017