Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная

Как узнать возраст человека

Оцените материал
(3 голосов)

Как узнать возраст человека

Узнаем возраст, плюс функция, для форматирования возраста в строковом представлении.

Вот код:

unit DelphiNotesAge;
 
interface
 
type
  // склонение числа - 0 (ноль), 1 (один) или 2 (два)
  TNumDeclination = (ndZero, ndOne, ndTwo);
 
// возвращает склонение числа
function GetNumDeclination(Num: Integer): TNumDeclination;
 
type
  T3Strs = array [TNumDeclination] of string;
 
const
  sYears: T3Strs = ('лет', 'год', 'года');
  sMonths: T3Strs = ('месяцев', 'месяц', 'месяца');
  sDays: T3Strs = ('дней', 'день', 'дня');
 
  sShortYears: T3Strs = ('л.', 'г.', 'г.');
  sShortMonths: T3Strs = ('мес.', 'мес.', 'мес.');
  sShortDays: T3Strs = ('д.', 'д.', 'д.');
 
type
  TAgeFormat = (afFull, afRoundDays, afRoundMonths);
  // afFull         : 15 лет 7 месяцев 24 дня
  // afRoundDays    : 15 лет 8 месяцев
  // afRoundMonths  : 16 лет
 
// считает возраст (количество лет, месяцев и дней между Birthday и Today)
procedure DecodeAge(const Birthday, Today: TDateTime;
                var Years, Months, Days: Word);
// форматирует возраст в виде строки
function FormatAge(const Birthday, Today: TDateTime; const sY, sM, sD: T3Strs;
                Format: TAgeFormat = afFull): string; overload;
function FormatAge(const Birthday, Today: TDateTime; Short: Boolean = False;
                Format: TAgeFormat = afFull): string; overload;
 
implementation
 
uses
  SysUtils;
 
function GetNumDeclination(Num: Integer): TNumDeclination;
begin
  num := num mod 100;
  if num > 20 then
    num := num mod 10;
 
  case num of
    1:        Result := ndOne;
    2, 3, 4:  Result := ndTwo;
    else      Result := ndZero;  //0, 5..20:
  end;
end;
 
procedure DecodeAge(const Birthday, Today: TDateTime; var Years, Months, Days: Word);
var
  BY, BM, BD,
  TY, TM, TD: Word;
  dY, dM, dD: Integer;
begin
  if Birthday <= Today then
  begin
    DecodeDate(Birthday, BY, BM, BD);
    DecodeDate(Today, TY, TM, TD);
  end else
  begin
    DecodeDate(Today, BY, BM, BD);
    DecodeDate(Birthday, TY, TM, TD);
  end;
 
  dY := TY - BY;
  dM := TM - BM;
  dD := TD - BD;
 
  if dD < 0 then
  begin
    // отнимаем один месяц
    dec(dM);
 
// корректируем кол-во дней: добавляем кол-во дней предыдущего месяца (чтобы "выйти из нуля")
    dec(TM);
    if TM = 0 then
      TM := 12;
    dD := dD + MonthDays[IsLeapYear(TY), TM];
  end;
  if dM < 0 then
  begin
    // отнимаем 1 год
    dec(dY);
    // корректируем кол-во месяцев: добавляем 12 месяцев (что составляет один год)
    dM := dM + 12;
  end;
  // if dY < 0 then raise ERangeError.Create('');
 
  Years := dY;
  Months := dM;
  Days := dD;
end;
 
function FormatAge(const Birthday, Today: TDateTime; const sY, sM, sD: T3Strs;
                Format: TAgeFormat = afFull): string;
  function Add(const Left, Right: string): string;
  begin
    if Left <> ''
      then Result := Left + ' ' + Right
      else Result := Right;
  end;
var
  Y, M, D: Word;
begin
  DecodeAge(Birthday, Today, Y, M, D);
 
  if Format in [afRoundDays, afRoundMonths] then
  begin
    // Round Date To Month:
    if D >= 15 then
    begin
      inc(M);
      if M >= 12 then
      begin
        M := M - 12;
        inc(Y);
      end;
    end;
    D := 0;
 
    if Format = afRoundMonths then
    begin
      // Round Date To Year:
      if M >= 6 then
      begin
        inc(Y);
      end;
      M := 0;
    end;
  end;
 
  Result := '';
  if Y > 0 then
    Result := Add(IntToStr(Y), sY[GetNumDeclination(Y)]);
  if M > 0 then
    Result := Add(Result, Add(IntToStr(M), sM[GetNumDeclination(M)]));
  if D > 0 then
    Result := Add(Result, Add(IntToStr(D), sD[GetNumDeclination(D)]));
end;
 
function FormatAge(const Birthday, Today: TDateTime; Short: Boolean = False;
                Format: TAgeFormat = afFull): string;
begin
  if Short
    then Result := FormatAge(Birthday, Today, sShortYears, sShortMonths, sShortDays, Format)
    else Result := FormatAge(Birthday, Today, sYears, sMonths, sDays, Format);
end;
 
end.

Пример использования:

// Проверка склонения:
FormatAge(Now, Now - 3);          // 3 дня
FormatAge(Now, Now - 300);        // 9 месяцев 27 дней
FormatAge(Now, Now - 2984);       // 8 лет 2 месяца 1 день
FormatAge(Now, Now - 395);        // 1 год 1 месяц
 
// Краткий/полный формат:
FormatAge(Now, Now - 10100);      // 27 лет 7 месяцев 24 дня
FormatAge(Now - 10100, Now, True);// 27 л. 7 мес. 24 д.
 
// Округление:
FormatAge(Now - 10100, Now, False, afFull);       //27 лет 7 месяцев 24 дня
FormatAge(Now - 10100, Now, False, afRoundDays);  //27 лет 8 месяцев
FormatAge(Now - 10100, Now, False, afRoundMonths);//28 лет
Прочитано 2802 раз
Авторизуйтесь, чтобы получить возможность оставлять комментарии

Авторизация



Счетчики