استفاده از تاريخ قمري ويندوز

[ahmadbh]

با سلام خدمت همه استادان
چطوري ميشه ار DLLيا OCX قمري ويندوز استفاده كرد آيا همچين فايلي در ويندوز وجود دارد يا خير ؟
يا روش ديگري سراغ داريد ؟

[nsco_nsco]

سلام قبلا در این باره خودم پرسیده بودم داخل پستهای من نگاه کن پیدا می کنی (خودت می سازی) احتیاج نیست از دی ال الی استفاده کنی موفق باشی :قلب:

[ahmadbh]

كاشكي لينكش را مي گذاشتي
اگر زحمتي نيست
با تشكر

[ahmadbh]

با سلام خدمت همه
يك كتابخانه كه در دات نت استفاده شده پيدا كردم ولي نميدونم كه ميشه تو دلفي استفاده كرد يا نه
اگر كسي تونست استفاده كنه لطفا براي بقيه هم توضيح بديد يا سورس آن را براي بقيه بگذاريد
توضيحات بيشتر را از لينك زير دريافت كنيد
http://www.persiadevelopers.com/articles/Persia.NET.aspx

[nsco_nsco]

سلام یکی پیدا کردم هنوز دارم برات می گردم پیدا کنم بگذارم :
اینجا (http://barnamenevis.org/showthread.php?164343-%D8%AA%D8%A8%D8%AF%D9%8A%D9%84-%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE-%D9%85%D9%8A%D9%84%D8%A7%D8%AF%D9%8A-%D9%8A%D8%A7-%D8%B4%D9%85%D8%B3%D9%8A-%D8%A8%D9%87-%D9%82%D9%85%D8%B1%D9%8A)

:قلب:

[nsco_nsco]

سلام بیا این برنامش هست :



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,StrUtils, ExtCtrls, ComCtrls, TabNotBk,
HTTPApp, ColorGrd,DateUtils, Math;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

type
THijriDate = record
HijriDate: integer;
HijriMonth: integer;
HijriYear: integer;
JulianDate: integer;
HijriDay: string;
end;

function IntPart(Num : real) : integer;
//function WeekDay(Wdn : integer) : string;
function Gre2Hijri( D, M, Y : word): THijriDate;


var
Form1: TForm1;


implementation
{$R *.dfm}

function IntPart(Num : real) : integer;
begin
if Num < -0.0000001 then
Result := Ceil(Num - 0.0000001)
else
Result := Floor(Num + 0.0000001);
end;



function Gre2Hijri( D, M, Y : word): THijriDate;
var
jd, l, n, j : integer;
begin
if ((Y > 1582) or ((Y = 582) and (M > 10))
or ((Y = 1582) and (M = 10) and (D>14))) then
begin
jd := IntPart((1461 * (Y + 4800 +
IntPart((M - 14)/12)))/4) +
IntPart((367 * (M - 2 - 12 *
(IntPart((M - 14)/12))))/12) -
IntPart((3 * (IntPart((Y + 4900 +
IntPart((M - 14)/12))/100)))/4) + D - 32075;
end
else
begin
jd := 367 * Y - IntPart((7 * (Y + 5001 +
IntPart((M - 9)/7)))/4) + IntPart((275 * M)/9)
+ D + 1729777;
end;

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;

m := IntPart((24 * l)/709);
d := l - IntPart((709 * m)/24);
y := 30 * n + j - 30;

Result.HijriDate := d;
Result.HijriMonth := m;
Result.HijriYear := y;
Result.JulianDate := jd;
//Result.HijriDay := WeekDay(jd mod 7);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
s1:string;
hdate:Thijridate;
begin
label1.caption :=DateToStr(Now );
//hdate:=Gre2Hijri(20,1,2011);
hdate:=Gre2Hijri(dayof(now),MonthOf(now),yearof(no w));

edit1.Text:=inttostr(hdate.HijriDate)+' '+

inttostr(hdate.HijriMonth)+' '+
inttostr(hdate.HijriYear);

end;
end.


:قلب:

[nsco_nsco]

این هم لینکی که بهت گفتم پنج دقیقه وقت می گذاشتی پیدا می کردی :

این هم لینک اصلی (http://barnamenevis.org/showthread.php?270885-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%82%D9%85%D8%B1%DB%8C-(-%D8%A8%D8%A8%D8%AE%D8%B4%DB%8C%D8%AF-%D9%82%D8%A8%D9%84%DB%8C-%D8%B1%D8%A7-%DA%86%D9%88%D9%86-%D8%AD%D8%B0%D9%81-%DA%A9%D8%B1%D8%AF%D9%87-%D8%A8%D9%88%D8%AF%D9%85-%D8%AF%D9%88%D8%A8%D8%A7%D8%B1%D9%87-%D9%BE%D8%B1%D8%B3%DB%8C%D8%AF%D9%85-))

موفق باشی :قلب:

[ahmadbh]

ممنون از نظرات شما
ولي گفته بودم كه چطور ميشه از كتابخانه كه در دات نت استفاده شده ، استفاده كرد

[nsco_nsco]

سلام می تونی با کمی تغییرات این برنامه را در زبانهای دیگه پیاده کنی چون فکر نمی کنم چیز خوبی پیدا کنی موفق باشی :قلب:

[ahmadbh]

با تشكر از جواب شما
ولي اگه ميگفتيد چطوري بايد از آن استفاده كرد خيلي خوب بود
چون چيز كاملي هستش سالهاي كبيسه و اعداد نيز بصورت فارسي مينويسه
اگه سري به وب سايتش زده باشيد توضيحات كاملتري نوشته

[nsco_nsco]

سلام کلیه توضیحات در لینکی که دادم وجود دارد از اول گفته شده تا اخرش لطفا بشینید و کامل اون رو بخوانید حتما متوجه می شوید .:قلب:

[ahmadbh]

با تشكر
من ميخواهم كه از كتابخانه مورد نظر استفاده كنم مثل Persian.dll

[ahmadbh]

كسي نيست كمكي بكنه

[nsco_nsco]

سلام
اون هم اومده و همین برنامه رو در دی ال ال کرده تو بهتره خودت بنویسی نه از فایل اماده استفاده کنی موفق باشی :قلب:

[ahmadbh]

با تشكر
اگه بلد بودم انجام ميدادم و از كسي كمك نميخواستم

[nsco_nsco]

سلام
طبق اون تاپینگ که گفتم و همچنین اگر در داخل پست هام جستجو کنی می تونی اموزش کامل دی ال ال را پیدا کنی و به راحتی با قرار دادن این برنامه قمری یک فایل دی ال ال بسازی و در برنامه هات استفاده کنی موفق باشی :قلب: