Вопрос по дате и компоненту DateTimePicker???

[>>arty<<]

У меня на форме 2 компонента DateTimePicker, мне в итоге нужно вычислить период, вычитаю из второго первый и получаю что то типа этого:
вычитаю из 13.08.2009 13.02.1995 и получаю 30.06.1914
по идее должен получить только лишь 14 лет!!! А получаю то же самое только приписывается 19. Читал что Делфи автоматически это подставляет, но как это исправить ведь мне нужно совсем другое!:confuse d:

[Kotofff]

Мoдуль DateUtils.

Вот эти функции тебе знакомы ??

function YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;

[>>arty<<]

А можно немного пояснить? В книге про это к сожалению не описано....
А занть хотелось бы что в моём случае поможет и как....

[Kotofff]

Вот смотри.

[>>arty<<]

даже не открывает, пишет uot of memory.....

12:43

мне бы просто показать как от моей проблемы быстро избавится, ведь используя этот компонент я убиваю двух зайцев:
юзер может сам выбирать нужную дату, плюс снимается вопрос о високосных годах, ведь раз в 4 года в феврале 29 дней

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

А любая проблема запросто решается установкой курсора на название неизвестной функции и последующим нажатием на волшебную клавишу F1.

[>>arty<<]

Вот сделал по другому с применением функций, но тоже не совсем то что нужно, получается типа вот этого: 702 дней 23 месяцев 1 лет стажа!
Посмотрите пожалуйста исходник и если что подправьте и в коментах напишите что я упустил...
Приложение: Stage_7.zip

P.S. Я уже все форумы облазил и везде не могут дать чёткого ответа на мой вопрос почему так и как это исправить??? Если толком сами не знаете как нужно подправить код чтоб корректно работал, то лучше не пишите, прошу высказываться по делу!!!

[mihali4]

Вам же четко указали функции...
Что еще ?

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(YearsBetween(DateTimePicker1.Date,DateTimePicker2.Date)));
end;

Получите вожделенное 14...

З.Ы. Замечания модератора - всегда "по делу". Читаем правила.

[>>arty<<]

а сами то проверьте как с таким кодом будет работать прога! Элементарно скачать исходник который я приложил и самому попробовать, вас тоже явно результат не устроит! Мне нужно не только вожделённое 14 но и день и месяц, а с применением подобных функций расчёт ведётся не так как надо! Попробуйте сами и посмотрите что получится, я уже на это "замечание" который раз даю ответ(на разных форумах)! Просто запустите прогу и всё! Сами увидите что меня не устраивает!

Вот смотрите и попробуйте:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DateUtils;

type
  TForm1 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  d1, d2: TDateTime;
begin

  d1:= DateTimePicker1.DateTime;
  d2:= DateTimePicker2.DateTime;

Edit1.Text:=IntToStr(DaysBetween(d1,d2)) + ' дней ' +
IntToStr(MonthsBetween(d1,d2))+ ' месяцев '
+ IntToStr(YearsBetween(d1,d2)) + ' лет стажа!';
end;

end.

Еще одно замечание:
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[mihali4]

С функциями все в порядке.
Просто есть еще пара функций:
DecodeDate
EncodeDate
Вы используете во всех сравнениях одно и то же количество дней между датами.
И результат получаете один и тот же, но выраженный в днях, месяцах или годах.
Можете сделать, например, так:

razn:=d1-d2;
DecodeDate(razn, Year, Month, Day);

где

razn: TDateTime;
Year, Month, Day: Word;

И все получится.
Форум у нас тихий, психовать не стоит, тем более по такому ничтожному поводу.
Еще раз напомню о пользе F1.

[>>arty<<]

а сразу так было нельзя написать зачем всё так усложнять то надо было раз знали?

Попробовал, результат такой же как и при данном действии

Edit1.text:=DateToStr(DateTimePicker2.DateTime(14.02.2010) - DateTimePicker1.DateTime(14.05.1995));

03.10.1914 - Ответ не совсем такой который ожидал я!

Если знаете как это сделать можете описать код?

Раз ничё у меня уже неделю не получается то хочу спросить как мне написать эту прогу для вычисления стажа так чтоб учитывались годы в которых февраль равен 29 дням?
Вот пример онлайн проги: http://whoyougle.ru/time/seniority

Неужели никто не поможет?