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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

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

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

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	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