Procedure, Function belirlemek

[naturelmania]

Arkadaşlar şöyle bir kod yazdım ama nerde yanlış yapıyorum? bir türlü çalıştıramadım.

Kod: Tümünü seç

procedure JD;
var
gun,ay,yil:extended;
saat,dakika,saniye:extended;
c:integer;
begin
        gun:=strtoint(copy(datetostr(date),1,2));
        ay:=strtoint(copy(datetostr(date),4,2));
        yil:=strtoint(copy(datetostr(date),7,4));
        gun:=strtoint(copy(timetostr(time),1,2));
        ay:=strtoint(copy(timetostr(time),4,2));
        yil:=strtoint(copy(timetostr(time),7,4));

        if ay=1 then C :=0;
        if ay=2 then C :=31;
        if ay=3 then C :=59;
        if ay=4 then C :=90;
        if ay=5 then C :=120;
        if ay=6 then C :=151;
        if ay=7 then C :=181;
        if ay=8 then C :=212;
        if ay=9 then C :=243;
        if ay=10 then C :=273;
        if ay=11 then C :=304;
        if ay=12 then C :=334;

        JD :=(2415020+(365*(Yil-1900))+C+gun+(((((Saniye/60)+Dakika)/60)+Saat)/24)+Int((Yil-1900)/4)-0.5);
end;

"left side can not be assaigned" hatası alıyorum.
İstediğim jd hesaplayan bir fonksiyon yazmak. Programın içinde nerde JD yazarsam orda bana bi extended halde Julian Date versin...
Bu yazdığım kodda nerede hata yapıyorum acaba???

[Battosai]

Kod: Tümünü seç

JD :=(2415020+(365*(Yil-1900))+C+gun+(((((Saniye/60)+Dakika)/60)+Saat)/24)+Int((Yil-1900)/4)-0.5);

"JD" diye tanımlı bir değişkenin yok...

[mrmarman]

Procedure diye tanımladığın başlığı

Kod: Tümünü seç

Function JD : Extended;

şeklinde değiştir istersen. Geriye değer döndürmek istiyorsan iki seçeneğin var. Ancak sadece JD yazınca extended değer görmek istiyorsan tek seçenek.

Kod: Tümünü seç

Function JD : Extended;

[TRSoft]

Arkadaşlar şöyle bir kod yazdım ama nerde yanlış yapıyorum? bir türlü çalıştıramadım.

Kod: Tümünü seç

procedure JD;
.....
        gun:=strtoint(copy(datetostr(date),1,2));
        ay:=strtoint(copy(datetostr(date),4,2));
        yil:=strtoint(copy(datetostr(date),7,4));
        gun:=strtoint(copy(timetostr(time),1,2));
        ay:=strtoint(copy(timetostr(time),4,2));
        yil:=strtoint(copy(timetostr(time),7,4));
.......
 JD :=(2415020+(365*(Yil-1900))+C+gun+(((((Saniye/60)+Dakika)/60)+Saat)/24)+Int((Yil-1900)/4)-0.5);
end;

@mrarman hocamın söylediği gibi function kullanmalısın ayrıca yukarıda aldığım kod parçasında saat,dakika, saniye değişkenlerini eşitlemek yerine gun,ay,yil değişkenlerine tekrar değer atamışsın..

[naturelmania]

Arkadaşlar cevaplarınız için teşekkür ederim. Function ve procedure'u yeni yeni öğreniyomuşum
Function JD: extended;
kullandım ve sorunum çözüldü. Ayrıca @TRSoft uyardığın için teşekkür ederim ben de niye hatalı hesaplıyo diyodum gözümden kaçmış

[ikutluay]

ek olarak

////////////////////////////////////
Procedure JuliandateToDate(juliandate:Integer);
var day,month,year:integer;
Begin
Year := INT((4 * JulianDate - 1) / 1461);
Day := (4 * JulianDate - 1) - (1461 * Year);
Day := INT((Day + 4) / 4);
Month := INT((5 * Day - 3) / 153);
Day := 5 * Day - 3 - 153 * Month;
Day := INT((Day + 5) / 5);
IF Month < 10 THEN
Month := Month + 3;
ELSE
Begin
Month := Month - 9;
Year := Year + 1;
End;
End;
////////////////////////////////////
procedure DateToJulianDate(day,month,year:Integer);
var juliandate:Integer;
Begin
IF Month <= 2 THEN begin
Month := Month + 9;
Year := Year - 1;
end
ELSE
begin
Month := Month - 3;
End;
JulianDate := INT((1461 * Year) / 4) + INT((153 * Month + 2) / 5) + Day;
End;
////////////////////////////////////

http://www.delphi3000.com