Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Декабрь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Орловский Дмитрий
Статус: Профессор
Рейтинг: 2946
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2552
∙ повысить рейтинг » 		Евгений/Genia007/
Статус: Профессионал
Рейтинг: 1140
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Delphi и Lazarus

Номер выпуска:1569
Дата выхода:05.12.2010, 11:00
Администратор рассылки:Калашников О.А. (Руководитель)
Подписчиков / экспертов:275 / 189
Вопросов / ответов:1 / 1

Вопрос № 181016: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос: 1) Вычислить дату выхода на пенсию,учитывая,что мужчины выходят на пенсию в 60 лет, а женщины в 55. и учитывая так же високосный год. Вот моя программка.(

Вопрос № 181016:

Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
1) Вычислить дату выхода на пенсию,учитывая,что мужчины выходят на пенсию в 60 лет, а женщины в 55. и учитывая так же високосный год.
Вот моя программка.(http://rfpro.ru/upload/3764)

Отправлен: 29.11.2010, 15:22
Вопрос задал: Павел Сергеенко (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает Евгений/Genia007/ (Профессионал) :
Здравствуйте, Павел Сергеенко!
Могу предложить такой вариант вычисления, как Вы хотели с учётом високосных годов:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var 
  p: integer;
  y, m, d: word;
begin

 DecodeDate(StrToDate(Edit3.Text), y, m, d);  //  Получили исходный год
  d:= 0;
  Case RadioGroup1.ItemIndex of  //  Выбираем тип счёта
    0: begin
         for p:= y to y + 59 do  //  Считаем количество дней для мужчин
          if IsLeapYear(p) then  //  Если год высокосный
            d:= d + 366
          else  //  Если нет
            d:= d + 365;
         label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d);  //  Считаем и выводим
  результат
       end;
    1: begin
         for p:= y to y + 54 do  //  Считаем количество дней для женщин
          if IsLeapYear(p) then
            d:= d + 366
          else
            d:= d + 365;
         label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d);
       end;
  end;
end;
Прикрепленный файл: загрузить »

-----
Помогли тебе, помоги и ты.

Ответ отправил: Евгений/Genia007/ (Профессионал)
Ответ отправлен: 29.11.2010, 22:34
Номер ответа: 264421

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 264421 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.24 от 30.11.2010
    В избранное