Como calcular ano, mês e dia

Delphi

09/06/2004

estou com um problema preciso saber como calcular ano, mes e dia
por exemplo:

Vem um camarada para efetuar a sua matricula e me informa a sua data de Nascimento 08/06/1989 o programa deverar comparar está data com a atual 08/06/2004 se ele for < = 15 um combobox será preenchido com
EM = ´Ensino Médio´ e se for >= 18 EF = ´Ensino Fundamental´

agradeço desde já a atenção.


Eder.lopes

Eder.lopes

Curtidas 0

Respostas

Xanatos

Xanatos

09/06/2004

uses DateUtils;

Tente usar a funcao YearOF(TDateTime);

InttoStr(yearof(Date)- yearof(StrtoDate(´10/05/1989´)))

:roll:


GOSTEI 0
Chicorinthiano

Chicorinthiano

09/06/2004

As datas nada mais são do que um numero Real!

A data 0 é 30/12/1899, a 1 é 31/12/1899, a 2 é 01/01/1900, e assim consequentemente. Se você subtrair as duas datas, ela te traz a quantidade de dias entre a data1 e a data2! Ex: 

var x:Real;  
          var y:integer
          x :=  date -  StrToDate(´13/02/1988´);
          y := int(x / 365);


neste caso, y vai valer o INTEIRO da divisão entre a quantidade de dias e os 365, que equivale a 1 ano! Sendo assim, y é a idade completa de uma determinada pessoa.

Espero ter ajudado!

Qualquer coisa, escreve para francisco@mercosistem.com.br


GOSTEI 0
POSTAR