Calculo

[Fernando_Ramos]

Como posso fazer calculo de datas, por exemplo saber quantos dias faltam para o fim do ano!

[Progr'amador]

Isso aqui serve?

procedure TForm1.Button1Click(Sender: TObject);
var i : real;
begin
  i := StrToDate('31/12/2004') - Date;
  ShowMessage('Faltam '+FloatToStr(i)+' para o final do ano. Feliz ano Novo. AUHAUHAUHAUHA!!! ');
end;

Abs. Progr'amador.

[Fernando_Ramos]

amigo e se eu quizesse usar um tdatetimepicker para escolher uma data e saber quantos dias faltam para o ano novo,

por exemplo no tdatetimepicker eu escolho 15/12/2004 ai vinha o resultado de quantos dias faltavam para o ano novo

[Progr'amador]

Ae você faz assim:

procedure TForm1.Button1Click(Sender: TObject);
var i : real;
begin
  i := StrToDate('31/12/2004') - DateTimePicker.Date;
  ShowMessage('Faltam '+FloatToStr(i)+' para o final do ano. Feliz ano Novo. AUHAUHAUHAUHA!!! ');
end;

Ok!?

Abs. Progr'amador.