Usando funções!!!
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á!!!
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
Curtidas 0
Respostas
Biscalquini
23/09/2003
Ao invés de passar (Avalor) passe dentro dos parentêses um campo do tipo data
GOSTEI 0