IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
uses Math;

 

function YilAyGun (Index: Integer): Integer;

var

  Yil, Ay, Gun: Word;

begin

  DecodeDate(Date, Yil, Ay, Gun);

case Index of

  1: Result := Yil;

  2: Result := Ay;

  3: Result := Gun;

end;

end;

 

function IntPart(FloatNum: Double): Double;

begin

  if FloatNum < - 0.0000001 then

    Result := Ceil(FloatNum - 0.0000001)

  else

    Result := Floor(FloatNum + 0.0000001);

end;

 

procedure Hijri;

var

  Tarix: TDateTime;

  JD, L, N, J: TDateTime;

  Gun, Ay, Yil: Word;

  AyStr: string;

begin

  Tarix := Date;

  DecodeDate(Tarix, Yil, Ay, Gun);

  jd := IntPart((1461 * (Yil + 4800 + IntPart((Ay - 14) / 12))) / 4) + IntPart(( 367 * (Ay - 2 - 12 * (IntPart((Ay - 14) / 12)))) / 12) - IntPart((3 *(IntPart((Yil + 4900 + IntPart((Ay - 14) / 12)) / 100))) / 4) + Gun - 32075;

  L := Jd - 1948440 + 10632;

  N := IntPart((l - 1) / 10631);

  L := L - 10631 * N + 354;

  J := (IntPart((10985 - L) / 5316)) * (IntPart((50 * L) / 17719)) + (IntPart(L / 5670)) * (IntPart((43 * L) / 15238));

  L := L - (IntPart((30 - J) / 15))*(IntPart((17719 * J) / 50 ))-(IntPart(J / 16))*(IntPart((15238 * J) / 43 )) + 29;

  Ay := Ceil(((IntPart((24 * L) / 709))));

  Gun := Ceil(L - IntPart((709 * ay) / 24));

  Yil := Ceil(30 * N + J - 30);

 

  case (Ay) of

  1: AyStr:= 'M?h?rr?m';

  2: AyStr:= 'S?f?r';

  3: AyStr:= 'R?biul-?vvel';

  4: AyStr:= 'R?biul-ax?r';

  5: AyStr:= 'C?madiy?l-?vv?l';

  6: AyStr:= 'C?madiy?l-ax?r';

  7: AyStr:= 'R?c?b';

  8: AyStr:= 'Saban';

  9: AyStr:= 'Ramazan';

  10: AyStr:= 'Sevval';

  11: AyStr:= 'Zil-Q?d?';

  12: AyStr:= 'Zil-Hicc?';

end;

  if AyStr = 'S?vval' then

begin

  if (Gun >= 1) and (Gun <= 3) then

  ShowMessage('Ramazan Bayram?');

end

  else

  if AyStr = 'ZilHicc?' then

  if (Gun >= 10) and (Gun <= 13) then

  ShowMessage('Qurban Bayram?');

  Main.HijriLabel.Caption := ('Hicri: ' + IntToStr(Gun) + ' ' + AyStr+ ' ' + IntToStr(Yil));

end;

 

procedure Miladi;

var

  Ay: Word;

  AyStr: string;

begin

  Ay := (YilAyGun (2));

  case (Ay) of

  1: AyStr:= 'Yanvar';

  2: AyStr:= 'Fevral';

  3: AyStr:= 'Mart';

  4: AyStr:= 'Aprel';

  5: AyStr:= 'May';

  6: AyStr:= 'Iyun';

  7: AyStr:= 'Iyul';

  8: AyStr:= 'Avqust';

  9: AyStr:= 'Sentyabr';

  10: AyStr:= 'Oktyabr';

  11: AyStr:= 'Noyabr';

  12: AyStr:= 'Dekabr';

  end;

  Main.MIladiLabel.Caption := ('Miladi: ' + IntToStr(YilAyGun (3)) + ' ' + AyStr + ' ' + IntToStr(YilAyGun (1)));

end;