VPF::Как поделить дату пополам? - Форум программистов

dikiy

Дата 1.3.2006, 09:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Есть проблемка, необходимо стаж сотрудника в формате "25.11.1985" разделить пополам как это можно реализовать?

Guedda

Дата 1.3.2006, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

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

Репутация: 14
Всего: 78

Это стаж сотрудника: 1985 лет, одиннадцать месяцев и двадцать пять дней??? smile

По существу:

Код


var
  CurDate : TDateTime;
  StageDate : TDateTime;
begin
  CurDate := StrToDate('25.11.1985');
  StageDate := Now - CurDate;
  StageDate := StageDate / 2;
end;

--------------------

Ll 2

dikiy

Дата 1.3.2006, 09:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Не катит

Мне надо дату в том же формате записывать только поделенную пополам

Yanis

Дата 1.3.2006, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Guedda @ 1.3.2006, 09:19)

Это стаж сотрудника: 1985 лет, одиннадцать месяцев и двадцать пять дней??? smile

По существу:

Код


var
  CurDate : TDateTime;
  StageDate : TDateTime;
begin
  CurDate := StrToDate('25.11.1985');
  StageDate := Now - CurDate;
  StageDate := StageDate / 2;
end;

Бедный сотрудник.

--------------------

*щёлк*

Snowy

Дата 1.3.2006, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Так тебе дату середины стажа нужно или стаж в годах?
P.S. Надеюсь, стаж не северный? А то он считается совсем по другому...
Добавлено @ 10:10

Код


var
  CurDate : TDateTime;
  StageDate : TDateTime;
  stage:    string;
begin
  CurDate := StrToDate('25.11.1985');
  StageDate := Now - CurDate;
  StageDate := StageDate / 2;
  s := DateToStr(StageDate); // стаж
  s := DateToStr(CurDate + StageDate); // середина стажа
end;

dikiy

Дата 1.3.2006, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Спасибо помогло smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »