Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
San'ka7
0 / 0 / 0
Регистрация: 23.05.2012
Сообщений: 4
1

Определить порядковый номер дня по заданной дате

23.05.2012, 19:57. Просмотров 2688. Ответов 6
Метки нет (Все метки)

Здравствуйте, вот само условие задачи: Определить порядковый номер дня по заданной дате. Ограничения: високосные годы это те, у которых число делится на 400 и 4, но не делится на 100. Пояснить метод решения задачи

Я не особо силен в программирование, сделал блок-схему, а сам код написать не могу, кто знает помогите написать код.
0
Миниатюры
Определить порядковый номер дня по заданной дате   Определить порядковый номер дня по заданной дате  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2012, 19:57
Ответы с готовыми решениями:

По введенному названию дня недели выдать его порядковый номер
Составить программу, которая по введенному названию дню недели выдает его порядковый номер. ...

Как определить порядковый номер максимальной цифры числа
Дано натуральное число в котором все цифры различны. Определить: а) порядковый номер его...

Определить максимальный элемент массива и его порядковый номер
Господа-знатоки! Очень прошу помочь со следующей задачей: Определить максимальный элемент массива...

Определить номер дня недели для введенной даты
Разработать приложение, которое определяет номер дня недели для введенной даты, а также определяет...

Определить количество и порядковый номер рабочих которые выполнили задание на 100%
здравствуйте ув. пользователи форума я новичок в этом деле, и прошу помочь мне решить такую...

6
Апострофф
Заблокирован
23.05.2012, 20:10 2
San'ka7, объясни - что такое порядковый номер дня?
Число дней от рождества Христова?
Или от начала года?
Или от начала месяца?
Или от начала недели?

Не по теме:

И камерой научись пользоваться:D

1
San'ka7
0 / 0 / 0
Регистрация: 23.05.2012
Сообщений: 4
23.05.2012, 20:21  [ТС] 3
Апострофф я думаю порядковый номер дня, от начала года.

Вроде нормально сфотографировал, качество только не ахти.
0
Апострофф
Заблокирован
23.05.2012, 20:43 4
Visual Basic
1
2
3
4
5
Sub от_начала_года()
Dim Дата As Date
Дата = InputBox("Введите дату в формате ДД.ММ.ГГГГ")
MsgBox "Указанный день является " & DateDiff("d", DateSerial(Year(Дата), 1, 0), Дата) & "-м в году."
End Sub
И високосность побоку
1
San'ka7
0 / 0 / 0
Регистрация: 23.05.2012
Сообщений: 4
23.05.2012, 20:55  [ТС] 5
Апострофф спасибо огромное)) можете пояснить, что за оператор Date? и как работает 4 строка, начиная от & DateDiff("d", DateSerial(Year(Дата), 1, 0), Дата) & "-м в году."
0
Ципихович Эндрю
1412 / 322 / 28
Регистрация: 10.04.2009
Сообщений: 5,072
23.05.2012, 21:02 6
Date
Date$

Функция Date позволяет получить текущую системную дату по системному календарю компьютера

Возвращаемое значение
Date возвращает значение типа Variant субтитпа Date, Date$ возвращает данные типа String, содержащее текущую системную дату. Формат даты, возвращаемый функцией, определяется национальными системными установками

Параметры
Функция не имеет аргументов

Пример
Visual Basic
1
2
3
4
5
' Выводим текущую системную дату в заголовке формы
Dim Today
Today=Date ' узнаем текущую системную дату
' Преобразуем в строку и выводим в заголовке формы
Form1.Caption = CStr(Today)
Добавлено через 1 минуту
Функция DateSerial
DateSerial(Year,Month,Day)
Функция DateSerial используется для получения даты во внутреннем представлении системы по заданным значениям компонентов даты(года,месяца,дня). Дата во внутреннем представлении - это число дней от установленного в системе начального значения. Функция DateSerial вычисляет по значениям компонентов требуемое число дней. Значения любых компонентов могут быть отрицательными или превышать допустимые календарные значения(12 для месяца и 31 для дня), если результат при этот попадает в допустимый диапазон значений Date. Если значение какого-либо компонента превышает допустимое значение для этого компонента, то изменяется другой компонент даты. Например, 33 дня означают 1 месяц и 2 или 3 дня (в зависимости от месяца)

Возвращаемое значение
Возвращает значение типа Variant(Date). Если полученный результат не попадает допустимый диапазон календарных дат, генерируется ошибка стадии выполнения Invalid procedure call or argument

Параметры
Функция содержит именованные аргументы
Year
Обязательный аргумент типа Integer в диапазоне от 100 до 9999, задающий значение года
Windows98/2000 По умолчанию, при использовании в аргументе двух цифр, функция интерпретирует их следующим образом:
0-29 интервал между 2000 и 2029 годами
30-99 интервал между 1930 и 1999 годами
В остальных случаях используйте четыре цифры(напр., 1147)
Month
Обязательный аргумент типа Integer, задающий значение месяца. Может содержать любое числовое выражение
Day
Обязательный аргумент типа Integer, задающий значение дня. Может содержать любое числовое выражение
Примечание Если любой из аргументов выходит из допустимых значений Integer, генерируется ошибка стадии выполнения Overflow
Пример
Visual Basic
1
2
3
4
5
' Вычисляем дату, предшествующую 
' на 5 дней дате 1 августа 1966 года 
Dim MyDate
MyDate = DateSerial(1966, 8,1 -4)   ' возвращает 27.07.66
Print MyDate
1
San'ka7
0 / 0 / 0
Регистрация: 23.05.2012
Сообщений: 4
23.05.2012, 21:07  [ТС] 7
Ципихович Эндрю спасибо за информацию.
0
23.05.2012, 21:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2012, 21:07

Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате
Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате....

По дате определить порядковый номер дня в году
По введенной дате (месяц, год, число) определить порядковый номер дня в году

Определить номер дня недели по заданной дате
Задание: Определить № дня недели по заданной дате. 1/1/1 был понедельник. Нужно консольное...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru