اگه ميدونستم اينجوري غرررررراااا سخنراني ميكني شش ياهفت هزار تا ديگه علامت سئوال ميذاشتم تا اون شش يا هفت هزارتاي بقيه رو هم بگي و هم استفاده كنيم . دمت گرم
Printable View
اگه ميدونستم اينجوري غرررررراااا سخنراني ميكني شش ياهفت هزار تا ديگه علامت سئوال ميذاشتم تا اون شش يا هفت هزارتاي بقيه رو هم بگي و هم استفاده كنيم . دمت گرم
من آدم انتقادپذيري هستم و اصلا هم ناراحت نشدم. اتفاقا خيلي هم ذوق كردم.نقل قول:
حالا مي‌خواستم ببينم من فرم 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 ساله تقسیم کنیم، بهتر میتونیم کبیسه رو حساب کنیم. شاید مثال زیر گویا باشه:
سالهای کبیسه یک قرن اخیر با توجه به دوره‌ها:
(دورهٔ ۳۳ساله): ۱۲۸۰ - ۱۲۸۴ - ۱۲۸۸ - ۱۲۹۲ - ۱۲۹۶ - ۱۳۰۰ - ۱۳۰۴ - ۱۳۰۸
(دورهٔ ۳۳ساله): ۱۳۱۳ - ۱۳۱۷ - ۱۳۲۱ - ۱۳۲۵ - ۱۳۲۹ - ۱۳۳۳ - ۱۳۳۷ - ۱۳۴۱
(دورهٔ ۲۹ساله): ۱۳۴۶ - ۱۳۵۰ - ۱۳۵۴ - ۱۳۵۸ - ۱۳۶۲ - ۱۳۶۶ - ۱۳۷۰
(دورهٔ ۳۳ساله): ۱۳۷۵ - ۱۳۷۹ - ۱۳۸۳ - ۱۳۸۷ - ۱۳۹۱ - ۱۳۹۵ - ۱۳۹۹ -
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] رو مطالعه کنید. اگه خواستین و تونستم بیشتر توضیح میدم.۱۴۰۳