![]() |
|
Модераторы: volvo877, Snowy, MetalFan |
![]()
|
|
| n0xi0uzz |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 73 Регистрация: 29.12.2004 Где: Санкт-Петербург Репутация: нет Всего: 1 |
В общем надо написать простенькую программку, которая считает, сколько дней прошло с 27 ноября 2004 г.
Сам я Паскаль слабенько знаю, такое сам не напишу. Помогите с кодом плз |
|||
|
||||
| ida |
|
|||
![]() замужем ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2277 Регистрация: 14.5.2002 Где: Санкт-Петербург Репутация: нет Всего: 58 |
До какого момента?...
|
|||
|
||||
| Fedor |
|
|||
![]() Днепрянин ![]() ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 2090 Регистрация: 8.2.2003 Где: Великий Репутация: нет Всего: 32 |
-------------------- Мы - Днепряне. Мы всех сильней. |
|||
|
||||
| dm9 |
|
|||
![]() Дмитрий Копытин ![]() ![]() ![]() ![]() Профиль Группа: Vingrad developer Сообщений: 3876 Регистрация: 22.7.2002 Где: Москва Репутация: нет Всего: 137 |
Напиши ф-цию, определяющую количество дней с 1 января какого-то года.
Например, function Дней_с_1_января_2004_года (число, месяц, год : Longint) : Longint; Примерно так: if номер_месяца >= 1 then дни := дни + 31 else дни := дни + число - 1; if номер_месяца >= 2 then дни := дни + 28 (или 29, если високосный) else дни := дни + число - 1; if номер_месяца >= 3 then дни := дни + 31 else дни := дни + число - 1; и так далее до 12... Затем определяешь челое число лет и умножаешь на 365, плюс надо учесть високосные годы. Складываешь число дней в целом числе лет и в текущем году с 1-го января. В конце ответ равен: Ответ := Дней_с_1_января_2004_года (число_сегодня, месяц_сегодня, год_сегодня) - Дней_с_1_января_2004_года (27, 11, 2004); Добавлено @ 22:18 PS На Алголисте решение красивее |
|||
|
||||
![]()
|
| Правила форума "Delphi" | |
|
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |