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

@San'ka7 · Регистрация: 23.05.2012

Студворк — интернет-сервис помощи студентам

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

Я не особо силен в программирование, сделал блок-схему, а сам код написать не могу, кто знает помогите написать код.

@Апострофф · 23.05.2012, 20:10

San'ka7, объясни - что такое порядковый номер дня?
Число дней от рождества Христова?
Или от начала года?
Или от начала месяца?
Или от начала недели?

Не по теме:

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

@San'ka7 · 23.05.2012, 20:21 **[ТС]**

Апострофф я думаю порядковый номер дня, от начала года.

Вроде нормально сфотографировал, качество только не ахти.

@Апострофф · 23.05.2012, 20:43

Visual Basic
1
2
3
4
5
Sub от_начала_года()
Dim Дата As Date
Дата = InputBox("Введите дату в формате ДД.ММ.ГГГГ")
MsgBox "Указанный день является " & DateDiff("d", DateSerial(Year(Дата), 1, 0), Дата) & "-м в году."
End Sub

И високосность побоку

@San'ka7 · 23.05.2012, 20:55 **[ТС]**

Апострофф спасибо огромное)) можете пояснить, что за оператор Date? и как работает 4 строка, начиная от & DateDiff("d", DateSerial(Year(Дата), 1, 0), Дата) & "-м в году."

@Ципихович Эндрю · 23.05.2012, 21:02

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

@San'ka7 · 23.05.2012, 21:07 **[ТС]**

Ципихович Эндрю спасибо за информацию.

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@San'ka7 0 / 0 / 0 Регистрация: 23.05.2012 Сообщений: 4

	Определить порядковый номер дня по заданной дате 23.05.2012, 19:57. Показов 5394. Ответов 6 Метки нет (Все метки) Здравствуйте, вот само условие задачи: Определить порядковый номер дня по заданной дате. Ограничения: високосные годы это те, у которых число делится на 400 и 4, но не делится на 100. Пояснить метод решения задачи Я не особо силен в программирование, сделал блок-схему, а сам код написать не могу, кто знает помогите написать код. Миниатюры 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	23.05.2012, 20:10
	San'ka7, объясни - что такое порядковый номер дня? Число дней от рождества Христова? Или от начала года? Или от начала месяца? Или от начала недели? Не по теме: И камерой научись пользоваться:D 1

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

@San'ka7 0 / 0 / 0 Регистрация: 23.05.2012 Сообщений: 4
	23.05.2012, 20:55 [ТС]
	Апострофф спасибо огромное)) можете пояснить, что за оператор Date? и как работает 4 строка, начиная от & DateDiff("d", DateSerial(Year(Дата), 1, 0), Дата) & "-м в году." 0

@San'ka7 0 / 0 / 0 Регистрация: 23.05.2012 Сообщений: 4
	23.05.2012, 21:07 [ТС]
	Ципихович Эндрю спасибо за информацию. 0