Printable View
اين كامپوننت رو خودم نوشتم. چيز جالبيه.
توي چند تا سايت ديگه هم گذاشتمش، خيليا دانلودش كردن.
گفتم اينجا هم بذارم تا كاربر p30word از قافله عقب نمونن. :cool:
ويرايش:
آقا منو ببخشيد
تازگيها خيلي حواس پرت شدم.
اينم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
حجم: 36kb
پس كو؟؟؟؟؟؟
آها حالا شد ocx رو داونلود كردم ولي معمولا يه فايل كمكي هم همراه كامپوننت ها ميذارن و نحوه استفاده از اونو توضيح ميدن . من رجيسترش كردم رو سيستم . حالا نحوه استفاده؟
منم ميدونم كه يه فايل براي توضيح نحوه استفاده ميذارن
ولي اين كامپوننت كه چيز خاصي نداره.
دو تا تابع داره كه براي تبديل تاريخ بايد از اونا استفاده كني
ConvertMiladiToShamsi و ConvertShamsiToMiladi
مثلا مينويسي
به همين راحتي :biggrin:کد:a=ConvertShamsiToMiladi("1385/11/24")
تو سايتهاي ديگه كه گذاشتم هم استقبال بيشتر بود، هم كلي نظر دادن!!! ولي اينجا ...
خوب اينم يه sample براي آشنايي با روش كار DateC.ocx
از اينجا بگيريد : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
:biggrin:
سلام دوست عزيز كار جالبي بود فقط يه چيزي ناراحت نشي يوقت ها اينجوري يگم كه كارتون خوب بود فقط از نظر گرافيكتون مثلا همون about تون خيلي بد بود شما يه ocxدرست كردين كه نه فقط در بين ما يك وقت ديدي در ميان مبتدي ها كشورهاي خارجي هم رسيد..... و آنها هم استفاده كردن.اينجوري بگم كه about تون بچه گونه .
ممنون
با اجازه
سلام
میبخشید مزاحم شدم، ولی من از اغفال دیگران به سمت ورژن های جدید خوشم میاد!
البته شاید بدانید ولی بحرحال در Vb8 یک ماژول کلاس مخصوص تبدیلات تاریخ هجری شمسی وجود دارد، در نتیجه اگه متحول شدید و خواستید با Vb8 کار کنید دیگه نیازی به اینها نیست.
vb8 ????????????????????
سلام مجدد
آقا از آن همه علامت سوال ما هم تعجب کردیم. ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
اگر نمیدانید بدانید که Microsoft Visual Basic.Net 2005 همان VB8 است.
میدونید Visual Studio 6 خودشو را در کجا میریخت! X:\Program Files\Microsoft Visual Studio
حالا اگر نصب نکردید حدس بزنید Visual Studio.Net 2005 خودشو کجا می ریزه؟
در X:\Program Files\Microsoft Visual Studio.Net 2005 نه اصلاَ
خودشو در مسیر X:\Program Files\Microsoft Visual Studio 8 میریزه.
حالا میدونید Visual Basic 6 تنظیماتشو کجای رجیستری ذخیره میکنه، بله راحته درHKCU\Software\Microsoft\VisualStudio\6.0
و اینجور که معلومه نمیدونید VB.Net 2005 تنظیمات خودشو در HKCU\Software\Microsoft\VisualStudio\8.0 رجیستری ذخیره میکنه.
پس اینجوری که متوجه شدم اگه احیاناَ هنوز در خواب خوش اومدن VB7 هستید بدونید که خیلی از قافله عقب افتادید و بیشتر امکاناتی را که در VB6 خوابشم نمیبینید یا باید صدها و هزاران خط کد نویسی کنید VB8 داره.
مثلاَ همین تقویم هجری شمسی، قابلیت فشرده سازی اطلاعات (بر اساس الگوریتم مشهور ZIP)، توانایی طراحی ویندوز سرویس و وب سرویس و طراحی سایت، قابلیت اتصال راه دور برنامه ها، قابلیت اتصال برنامه به وب (مثل یاهو مسنجر) قابلیت .... چیزی نیست قابلیت هاش داره تموم میشه، فقط یک شش یا هفت هزارتایی مونده که بگم :blink: :blink: :blink: :blink: :blink: (اینم تلافی اون علامت سوالها!)
آقا سخنرانی خوبی بود؟ نظر بدید.
اگه ميدونستم اينجوري غرررررراااا سخنراني ميكني شش ياهفت هزار تا ديگه علامت سئوال ميذاشتم تا اون شش يا هفت هزارتاي بقيه رو هم بگي و هم استفاده كنيم . دمت گرم
من آدم انتقادپذيري هستم و اصلا هم ناراحت نشدم. اتفاقا خيلي هم ذوق كردم.نقل قول:
حالا ميخواستم ببينم من فرم about رو چجوري طراحي كنم كه بچهگونه نباشه؟
اگه شما يكي از ocx هايي رو كه خودتون نوشتيد بذاريد تا من فرم About اون رو ببينم، فكر كنم بهتر باشه.
سلام دوست عزيز
1 اينكه شما زياد نبايد از حروفهاي بزرگ استفاده كني زياد هم به ocx هاي بنده نياز نيست اگر هم خواستي ocx هاي منو ببيني سرچ كني پيدا مي شه و اينكه الكي زياد از رنگ هاي كه چشم و اذيت مي كنه استفاده نكن ؟؟؟
با اجازه
خوب كدوم رنگها چشم شما رو اذيت كرد ؟
بگيد تا منم بدونم.
آخه حدود دو ساعت وقت صرف طراحي اون كرده بودم.
در ضمن اگه منظورتون از بچهگونه بودنش اون عكس بالاييشه بايد بگم كه اون لوگوي منه و كلي هم وقت صرف طراحي اون شده.
اينم يك حركت كه بدون استفاده از ocx هست حال كنيد
در ماژول
در فرمکد:Public Function ndm1()
Dim ch As Integer, Y As Variant, m As Variant, D As Variant
Dim mm As Variant, i As Integer
Y = Year(Date)
m = Month(Date)
D = Day(Date)
mm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
If Val(m) < 13 And Val(m) > 0 Then
If Y Mod 4 = 0 Then mm(1) = 29
If Y < 0 Or D < 1 Or D > Val(mm(m - 1)) Then
ndm1 = "Invalid date"
Else
If Y Mod 4 <> 0 Then mm(1) = 28
If Y <> 0 Then ndm1 = Y * 365 + Int((Y - 1) / 4) + 1
For i = 1 To m - 1
ndm1 = ndm1 + mm(i - 1)
Next
ndm1 = ndm1 + D
End If
Else
ndm1 = "Invalid Date"
End If
End Function
Public Function mtos1()
mtos1 = ds1(Val(ndm1) - 226900)
End Function
Private Sub Command1_Click()
End Sub
Function ds1(ns As String)
Dim nd As Long, Y As Long
Dim m As Integer, mms As Variant
Dim M1 As String
Dim D1 As String
Dim i As Long, nk As Long, yl As Long, sy As Long
Dim k As Integer, D As Integer
nd = Val(ns)
If nd > 0 Then
Do
If (i + 1) Mod 4 = 0 Then
yl = 366
nk = nk + 1
Else
yl = 365
End If
i = i + 1
sy = sy + yl
If nd <= sy Then Exit Do
Loop
Y = i - 1
If (Y + 1) Mod 4 = 0 Then
mms = Array(31, 62, 93, 124, 155, 186, 216, 246, 276, 306, 336, 366)
nk = nk - 1
Else
mms = Array(31, 62, 93, 124, 155, 186, 216, 246, 276, 306, 336, 365)
End If
nd = nd - (Y * 365 + nk)
For m = 1 To 12
If nd <= mms(m - 1) Then Exit For
Next
If m > 1 Then k = mms(m - 2)
D = nd - k
If m < 10 Then
M1 = "0" & Str(m)
Else
M1 = Str(m)
End If
If D < 10 Then
D1 = "0" & Str(D)
Else
D1 = Str(D)
End If
ds1 = Y & "/" & m & "/" & D
Else
ds1 = "Invalid Number"
End If
End Function
:evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil: :evil:کد:text1.text = mtos1
سلام
آقای [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] نمیخواستم بگم ولی دیگه...
تبدیلات شما هم مثل همه نمونه های مشابه که بدون تحقیق خاصی روی سالنامه هجری شمسی انجام شده (و قالباَ شامل دستورات IF فراوان و عدد دهی های بسیار است)، فقط در محدوده 33 ساله جاری از شروع از اولین کبیسه پنج ساله فعلی درست کار میکند، و خارج از این محدوده اشتباه کار میکند، مثال بارز آن هم که در جای دیگری هم گفته بودم این است که 30/12/1370 مطابق است با 20/03/1992 و تقویم شما اشتباه جواب میدهد.
(این اشتباه برای تمام تاریخ های خارج از محدوده 33 ساله ادامه پیدا میکنه چه قبل و چه بعد از آن، البته شاید اتفاقی تاریخی خارج از محدوده هم باشه و درست جواب بدهد.)
اينقدر سخت گير نباش همينم خوبه!! _____ يك توضيح راجع به ocx نويسي ميديد و با چه زباني هست
خوب معلومه زبونش VB6 هستش ديگه.
مگه اينجا انجمن ويژوال بيسيك سايت p30world نيست.
اگر هم در اين باره توضيح ميخواهي بايد به كتابفروشيها مراجعه كني چون من كه تا حالا يه E-Book درست و حسابي در اين باره نديدم. ميتوني كتاب آموزش اينترنت با ويژوال بيسيك در 21 روز ( انتشارات نص) رو تهيه كني. يه چند فصلي در اين باره توش توضيح داده.
عزیز دل من واقعاً گل کاشتی،خیلی عالی دست گلت درد نکنه.:11:نقل قول:
سلام. روش های گفته شده برای تبدیل تاریخ هیچکدوم صحیح نیست. دلیلش هم اشتباه در محاسبه سال کبیسه است. بدست اوردن سال کبیسه خودش داستانی داره. تا حالا بهترین روشی که برای تعیین کبیسه بودن سال پیشنهاد شده توسط احمد بیرشک و موسی اکرامی بوده.
برای تقویم جلالی، و بدنبال آن هجری خورشیدی و ایرانی، تا کنون توسط محققان، الگوریتمهایی ارائه شدهاست که یکی از این محاسبات بعنوان تقویم حسابی توسط احمد بیرشک به مجامع علمی ارائه شدهاست و بعنوان تقویم حسابی در کنار تقویم رسمی مشهور بوده و بعلت خطی بودن این تقویم کاربرد آن آسانتر است. این تقویم با توجه به زیردورهها و دورههای میانی تقویم جلالی و تکمیل آن در قالب یکدوره بزرگتر ۲۸۲۰ ساله ایجاد شدهاست. دوره بزرگ مذکور ابتدا توسط ذبیح بهروز محاسبه، کشف و پیشنهاد داده شد آنگاه توسط احمد بیرشک دورههای میانی آن تعریف شد و مدون گردید.
دیگر گاهشماری حسابی که دقیقترین کبیسه بندی -رایانهای- را داراست گاهشماری حسابی رایانهای توسط موسی اکرمی تدوین شدهاست.همه برای مخاسبه سال کبیسه هر 4 سال یکبار رو سال کبیسه بحساب میارن. اما در تقویم ایرانی بعضی اوقات بعد از 5 سال کبیسه اتفاق میافته. در واقع از اولین کبیسه 4 ساله بعد از یک دوره 33 ساله کبیسه 5 ساله پیش میاد. اما این هم همیشه ثابت نیست و گاهی بعد از یک دوره 29 ساله کبیسه 5 ساله پیش میاد. در واقع اگه ما یک دوره 128 ساله رو در نظر بگیریم و اون رو به سه دوره 33 ساله و یک دوره 29 ساله تقسیم کنیم، بهتر میتونیم کبیسه رو حساب کنیم. شاید مثال زیر گویا باشه:
سالهای کبیسه یک قرن اخیر با توجه به دورهها:
(دورهٔ ۳۳ساله): ۱۲۸۰ - ۱۲۸۴ - ۱۲۸۸ - ۱۲۹۲ - ۱۲۹۶ - ۱۳۰۰ - ۱۳۰۴ - ۱۳۰۸
(دورهٔ ۳۳ساله): ۱۳۱۳ - ۱۳۱۷ - ۱۳۲۱ - ۱۳۲۵ - ۱۳۲۹ - ۱۳۳۳ - ۱۳۳۷ - ۱۳۴۱
(دورهٔ ۲۹ساله): ۱۳۴۶ - ۱۳۵۰ - ۱۳۵۴ - ۱۳۵۸ - ۱۳۶۲ - ۱۳۶۶ - ۱۳۷۰
(دورهٔ ۳۳ساله): ۱۳۷۵ - ۱۳۷۹ - ۱۳۸۳ - ۱۳۸۷ - ۱۳۹۱ - ۱۳۹۵ - ۱۳۹۹ -
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] رو مطالعه کنید. اگه خواستین و تونستم بیشتر توضیح میدم.۱۴۰۳