Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подсчет кол-ва дней, пАмАгитИ! %) 
:(
    Опции темы
n0xi0uzz
Дата 2.1.2005, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 29.12.2004
Где: Санкт-Петербург

Репутация: нет
Всего: 1



В общем надо написать простенькую программку, которая считает, сколько дней прошло с 27 ноября 2004 г.
Сам я Паскаль слабенько знаю, такое сам не напишу. Помогите с кодом плз
PM MAIL WWW ICQ   Вверх
ida
Дата 4.1.2005, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


замужем
****


Профиль
Группа: Завсегдатай
Сообщений: 2277
Регистрация: 14.5.2002
Где: Санкт-Петербург

Репутация: нет
Всего: 58



До какого момента?...
PM WWW   Вверх
Fedor
Дата 4.1.2005, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32



Вот здесь посмотри
http://alglib.manual.ru/dates/difd.php


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
dm9
Дата 4.1.2005, 22:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дмитрий Копытин
****


Профиль
Группа: 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 На Алголисте решение красивее smile)
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0473 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.