دلفــي
یک شنبه 28 تیر 1394, 15:09 عصر
Tarikh's Component written for Delphi 7 and XE5. This Component convert From Solar date to Gregorian date and Conversely and Get the day, month and year from Solar date and Gregorian date.
133382
مثالي براي توابع موجود در كامپوننت :
procedure TForm1.Button1Click(Sender: TObject);
begin
J1.Text := Tarikh1.IntMiladiToShamsi(E1.Text);
J2.Text := Tarikh1.StrMiladiToShamsi(E2.Text);
J3.Text := Tarikh1.IntShamsiToMiladi(E3.Text);
J4.Text := Tarikh1.StrShamsiToMiladi(E4.Text);
J5.Text := Tarikh1.IntDayOfShamsi(E5.Text);
J6.Text := Tarikh1.IntMounthOfShamsi(E6.Text);
J7.Text := Tarikh1.IntYearOfShamsi(E7.Text);
J8.Text := Tarikh1.StrDayOfShamsi(E8.Text);
J9.Text := Tarikh1.StrMounthOfShamsi(E9.Text);
J10.Text := Tarikh1.IntDayOfMiladi(E10.Text);
J11.Text := Tarikh1.IntMounthOfMiladi(E11.Text);
J12.Text := Tarikh1.IntYearOfMiladi(E12.Text);
J13.Text := Tarikh1.StrDayOfMiladi(E13.Text);
J14.Text := Tarikh1.StrMounthOfMiladi(E14.Text);
J15.Text := Tarikh1.GetIntTodayShamsi;
J16.Text := Tarikh1.GetStrTodayShamsi;
end;
آدرس كامپوننت در Planet Source Code (https://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1587&lngWId=7)
133382
مثالي براي توابع موجود در كامپوننت :
procedure TForm1.Button1Click(Sender: TObject);
begin
J1.Text := Tarikh1.IntMiladiToShamsi(E1.Text);
J2.Text := Tarikh1.StrMiladiToShamsi(E2.Text);
J3.Text := Tarikh1.IntShamsiToMiladi(E3.Text);
J4.Text := Tarikh1.StrShamsiToMiladi(E4.Text);
J5.Text := Tarikh1.IntDayOfShamsi(E5.Text);
J6.Text := Tarikh1.IntMounthOfShamsi(E6.Text);
J7.Text := Tarikh1.IntYearOfShamsi(E7.Text);
J8.Text := Tarikh1.StrDayOfShamsi(E8.Text);
J9.Text := Tarikh1.StrMounthOfShamsi(E9.Text);
J10.Text := Tarikh1.IntDayOfMiladi(E10.Text);
J11.Text := Tarikh1.IntMounthOfMiladi(E11.Text);
J12.Text := Tarikh1.IntYearOfMiladi(E12.Text);
J13.Text := Tarikh1.StrDayOfMiladi(E13.Text);
J14.Text := Tarikh1.StrMounthOfMiladi(E14.Text);
J15.Text := Tarikh1.GetIntTodayShamsi;
J16.Text := Tarikh1.GetStrTodayShamsi;
end;
آدرس كامپوننت در Planet Source Code (https://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1587&lngWId=7)