Usando funções!!!

Delphi

23/09/2003

Olá pessoal, nunca usei funções em delphi, mas agora tenho a necessidade de usar, como faço isso? Tenho as seguintes funções:

function DateTimeToJulianDate(const AValue: TDateTime): Double;
var
LYear, LMonth, LDay: Word;
begin
DecodeDate(AValue, LYear, LMonth, LDay);
Result := (1461 * (LYear + 4800 + (LMonth - 14) div 12)) div 4 +
(367 * (LMonth - 2 - 12 * ((LMonth - 14) div 12))) div 12 -
(3 * ((LYear + 4900 + (LMonth - 14) div 12) div 100)) div 4 +
LDay - 32075.5 + Frac(AValue);
end;

function DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;
const
CJDToMJDOffset = 2400000.5;
begin
Result := DateTimeToJulianDate(AValue) - CJDToMJDOffset;
end;

Usando o evento click de um button, como passo informações para a função? E como jogo elas para um edit?

Grato desde já!!!


Marciobrignol

Marciobrignol

Curtidas 0

Respostas

Biscalquini

Biscalquini

23/09/2003

Ao invés de passar (Avalor) passe dentro dos parentêses um campo do tipo data


GOSTEI 0
POSTAR