نياز مبرم به سورس تقويم شمسي-درگشتم،سايت نبود!

[soheil_programmer]

سلام
لطفاً دوستان گرامي سورس يك تقويم شمسي را جهت استفاده براي من و ديگر دوستان گرامي قرار دهند. ضمناً كامپوننت هايي كه برخي دوستان تهيه نموده اند تكميل نبوده و با برنامه من كاملاً مچ نيست لطفا فقط سورس اگه هست قرار دهيد...

[vb.c++]

این پی دی اف شاید کمکت کنه

[Dr.Bronx]

واقعا گشتی ؟
100% به این موضوع شک دارم
چون خودم سورس کامپوننتش رو گذاشتم
یا در پست های بنده جستجو کنید
یا در تاپیک های مهم شده

[alih110]

من هم کامپوننت گذاشتم ولی بیا اینم ماژولش .

روش دریافت تاریخ


TiHejri (now,1)


قابل تغییر به هر حالتی است .


شاید بیش از 100 مورد در انجمن باشه .

[soheil_programmer]

این پی دی اف شاید کمکت کنه

دوست عزيز من بدنبال يك تقويم شمسي هستم نه صرفاً يك مبدل تاريخ!!!

[soheil_programmer]

یعنی اینجا کسی نیست که بتونه به بنده کمک کنه؟؟؟
من یک تقویم شمسی میخوام...

[mpmsoft]

http://barnamenevis.org/forum/showthread.php?t=133216&highlight=datepicker

[sina26]

یعنی اینجا کسی نیست که بتونه به بنده کمک کنه؟؟؟
من یک تقویم شمسی میخوام...
سلام دوست گرامی
تقویم فارسی تقدیم میگردد

[soheil_programmer]

http://barnamenevis.org/forum/showthread.php?t=133216&highlight=datepicker

برادر عزیز مثل اینکه متوجه نشدین من سورس لازم دارم!!!:عصبانی++:

[soheil_programmer]

دوست عزيز بنده نياز به كامپوننت ندارم! سورس ميخوام! :اشتباه:


سلام دوست گرامی
تقویم فارسی تقدیم میگردد

[soheilbehro]

Function mil2shams(miladi_mm_dd_yyyy As String) As String
Dim iran(12), CHRIS(12)
CHRIS(1) = 31: CHRIS(2) = 28: CHRIS(3) = 31
CHRIS(4) = 30: CHRIS(5) = 31: CHRIS(6) = 30
CHRIS(7) = 31: CHRIS(8) = 31: CHRIS(9) = 30
CHRIS(10) = 31: CHRIS(11) = 30: CHRIS(12) = 31
For i = 1 To 12: iran(i) = 31 - (i \ 7) - (i \ 12): Next
mo = Val(Left(miladi_mm_dd_yyyy, 2))
miladi_mm_dd_yyyyy1 = Val(Mid(miladi_mm_dd_yyyy, 4, 2))
Year1 = Val(Mid(miladi_mm_dd_yyyy, 7, 4))
leap1 = Int((Year1 - 1) / 400)
leap2 = Year1 - 1 - 400 * leap1
leap3 = leap2 \ 100
leap4 = leap2 Mod 100
leap5 = leap4 \ 4
CHRIS(2) = 28
If ((Year1 Mod 4) = 0 And (Year1 Mod 100) <> 0) Or _
(Year1 Mod 400) = 0 Then CHRIS(2) = 29
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy1
For i = 1 To mo - 1
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy11 + CHRIS(i)
Next i
miladi_mm_dd_yyyyy1num = 365 * (Year1 - 1) + _
miladi_mm_dd_yyyyy11 + 97 * leap1 + 24 * leap3 + leap5
miladi_mm_dd_yyyyy1num = miladi_mm_dd_yyyyy1num - 221056!
iry1 = Int(miladi_mm_dd_yyyyy1num / 12053)
iry2 = miladi_mm_dd_yyyyy1num - 12053 * iry1
iry = 33 * iry1 - 16
If iry2 > 365 Then iry = iry + 1: iry2 = iry2 - 365
iry3 = iry2 \ 1461
iry4 = iry2 Mod 1461
iry5 = iry4 \ 365
iry6 = iry4 Mod 365
iry = iry + 1 + 4 * iry3 + iry5
iran(12) = 29
esfand = (8 * iry + 22) / 33 - 0.001
esfand = esfand - Int(esfand)
If esfand > 0.77 Then iran(12) = 30
For i = 1 To 12
If iry6 > iran(i) Then iry6 = iry6 - iran(i) _
Else irm = i: miladi_mm_dd_yyyyy11 = iry6: Exit For
Next i
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy11 + 5
If miladi_mm_dd_yyyyy11 > iran(irm) Then
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy11 - iran(irm)
irm = irm + 1
If irm > 12 Then irm = 1: iry = iry + 1
End If
eirmiladi_mm_dd_yyyye = 3 * irm - 3
If irm > 7 Then eirmiladi_mm_dd_yyyye = _
eirmiladi_mm_dd_yyyye - irm + 7
girmiladi_mm_dd_yyyye = (8 * iry + 22) / 33 - 0.001
cirmiladi_mm_dd_yyyye = Int(girmiladi_mm_dd_yyyye) _
+ iry + eirmiladi_mm_dd_yyyye - miladi_mm_dd_yyyyy11 + 3
cirmiladi_mm_dd_yyyye = cirmiladi_mm_dd_yyyye Mod 7
If irm < 10 Then mo = "0" + LTrim(Str(irm)) Else _
mo = LTrim(Str(irm))
If miladi_mm_dd_yyyyy11 < 10 Then d = "0" + _
LTrim(Str(miladi_mm_dd_yyyyy11)) Else _
d = LTrim(Str(miladi_mm_dd_yyyyy11))
mil2shams = LTrim(Str(iry)) + "/" + mo + "/" + d
End Function
Private Sub Form_Load()
Label1 = mil2shams(Format(Now, "mm/dd/yyyy"))
End Sub

[soheil_programmer]

دوست عزيز
برادر گرامي
ضمن تشكر از شما...
بنده 100 بار عرض كردم من سورس تقويم شمسي ميخوام نه تبديل تاريخ و نه تقويم ميلادي و نه كامپوننت تقويم!!!
:عصبانی++:

Function mil2shams(miladi_mm_dd_yyyy As String) As String
Dim iran(12), CHRIS(12)
CHRIS(1) = 31: CHRIS(2) = 28: CHRIS(3) = 31
CHRIS(4) = 30: CHRIS(5) = 31: CHRIS(6) = 30
CHRIS(7) = 31: CHRIS(8) = 31: CHRIS(9) = 30
CHRIS(10) = 31: CHRIS(11) = 30: CHRIS(12) = 31
For i = 1 To 12: iran(i) = 31 - (i \ 7) - (i \ 12): Next
mo = Val(Left(miladi_mm_dd_yyyy, 2))
miladi_mm_dd_yyyyy1 = Val(Mid(miladi_mm_dd_yyyy, 4, 2))
Year1 = Val(Mid(miladi_mm_dd_yyyy, 7, 4))
leap1 = Int((Year1 - 1) / 400)
leap2 = Year1 - 1 - 400 * leap1
leap3 = leap2 \ 100
leap4 = leap2 Mod 100
leap5 = leap4 \ 4
CHRIS(2) = 28
If ((Year1 Mod 4) = 0 And (Year1 Mod 100) <> 0) Or _
(Year1 Mod 400) = 0 Then CHRIS(2) = 29
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy1
For i = 1 To mo - 1
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy11 + CHRIS(i)
Next i
miladi_mm_dd_yyyyy1num = 365 * (Year1 - 1) + _
miladi_mm_dd_yyyyy11 + 97 * leap1 + 24 * leap3 + leap5
miladi_mm_dd_yyyyy1num = miladi_mm_dd_yyyyy1num - 221056!
iry1 = Int(miladi_mm_dd_yyyyy1num / 12053)
iry2 = miladi_mm_dd_yyyyy1num - 12053 * iry1
iry = 33 * iry1 - 16
If iry2 > 365 Then iry = iry + 1: iry2 = iry2 - 365
iry3 = iry2 \ 1461
iry4 = iry2 Mod 1461
iry5 = iry4 \ 365
iry6 = iry4 Mod 365
iry = iry + 1 + 4 * iry3 + iry5
iran(12) = 29
esfand = (8 * iry + 22) / 33 - 0.001
esfand = esfand - Int(esfand)
If esfand > 0.77 Then iran(12) = 30
For i = 1 To 12
If iry6 > iran(i) Then iry6 = iry6 - iran(i) _
Else irm = i: miladi_mm_dd_yyyyy11 = iry6: Exit For
Next i
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy11 + 5
If miladi_mm_dd_yyyyy11 > iran(irm) Then
miladi_mm_dd_yyyyy11 = miladi_mm_dd_yyyyy11 - iran(irm)
irm = irm + 1
If irm > 12 Then irm = 1: iry = iry + 1
End If
eirmiladi_mm_dd_yyyye = 3 * irm - 3
If irm > 7 Then eirmiladi_mm_dd_yyyye = _
eirmiladi_mm_dd_yyyye - irm + 7
girmiladi_mm_dd_yyyye = (8 * iry + 22) / 33 - 0.001
cirmiladi_mm_dd_yyyye = Int(girmiladi_mm_dd_yyyye) _
+ iry + eirmiladi_mm_dd_yyyye - miladi_mm_dd_yyyyy11 + 3
cirmiladi_mm_dd_yyyye = cirmiladi_mm_dd_yyyye Mod 7
If irm < 10 Then mo = "0" + LTrim(Str(irm)) Else _
mo = LTrim(Str(irm))
If miladi_mm_dd_yyyyy11 < 10 Then d = "0" + _
LTrim(Str(miladi_mm_dd_yyyyy11)) Else _
d = LTrim(Str(miladi_mm_dd_yyyyy11))
mil2shams = LTrim(Str(iry)) + "/" + mo + "/" + d
End Function
Private Sub Form_Load()
Label1 = mil2shams(Format(Now, "mm/dd/yyyy"))
End Sub

[alih110]

دوست عزیز به نظر من کسی که میاد زحمت میکشه سورس سختی هم هست رو درست میکنه . سورسش رو فکر نکنم بده ولی در نهایت میفروشه . نظر شما چیه ؟؟

[butterfly8528]

دوست عزیز به نظر من کسی که میاد زحمت میکشه سورس سختی هم هست رو درست میکنه . سورسش رو فکر نکنم بده ولی در نهایت میفروشه . نظر شما چیه ؟؟


بستگی به شخصش داره .

یه نگاه به Planet-Source-Code بندازید اونوقت نظرتون شاید عوض شه :چشمک:

موفق باشید .

[soheil_programmer]

با سلام

دوست عزیز ممنون از نمونه ای که گذاشتید بسیار خوبه اما خیلی باید روش کار بشه تا بصورت یک datepicker جهت استفاده در برنامه ها در بیاد!!!



بستگی به شخصش داره .

یه نگاه به Planet-Source-Code بندازید اونوقت نظرتون شاید عوض شه :چشمک:

موفق باشید .

[soheil_programmer]

كسي سورس درست حسابي از تقويم شمسي نداره؟؟ :ناراحت:

[Apache66]

ببینید این چه طور هست

[soheil_programmer]

من يك تقويم ميخام واسه انتخاب يك روز واسه يك TextBox بابا جون!!! :اشتباه::افسرده:
http://barnamenevis.org/forum/attachment.php?attachmentid=37502&stc=1&thumb=1&d=1253943537

[soheil_programmer]

با سلام

بالاخره من یک سورس توپ در اینترنت پیدا کردم که اون را بدون هیچ عذر و منتی واسه استفاده همگان و به صورت همگانی میذارم اینجا همه حالشو ببرن!

[Dr.Bronx]

ببینید در صفحه اول من به شما گفتم که جستجو کنید
شما حتی حاظر به جستجو نشدید و وقت خودتون رو هم الکی طلف کردید
پستی که من دادم مربوط میشه به : چهارشنبه 13 آذر 1387, 07:48 صبح

نام تاپیک: ابزارهای اکتیوایکس کاربردی و زیبا

این آدرس پست : http://barnamenevis.org/forum/showpost.php?p=643402&postcount=288

[sina26]

دوست عزيز بنده نياز به كامپوننت ندارم! سورس ميخوام! :اشتباه:

سلام سهیل عزیز
شما که فرمودید من کامپوننت نمیخوام در سومین یا چهارمین پست من کامپوننت براتون گذاشته بودم حالا این کامپوننت رو خودتون پیدا کردین مبارکه

[soheil_programmer]

دوست عزيز من يك كامپوننت ميخواستم بهمراه سورس همان كامپوننت نه صرفاً و فقط يك كامپوننت!!!


سلام سهیل عزیز
شما که فرمودید من کامپوننت نمیخوام در سومین یا چهارمین پست من کامپوننت براتون گذاشته بودم حالا این کامپوننت رو خودتون پیدا کردین مبارکه

[soheil_programmer]

دوست عزيز شما به من يك تاپيك لينك داده بودي كه توش Nتا پست داشت و من از اون ميون تقويمي را كه ميگي پيدا نكردم ولي ايكاش زودتر اين لينك ميانبر به پست مورد نظر را داده بودي...


ببینید در صفحه اول من به شما گفتم که جستجو کنید
شما حتی حاظر به جستجو نشدید و وقت خودتون رو هم الکی طلف کردید
پستی که من دادم مربوط میشه به : چهارشنبه 13 آذر 1387, 07:48 صبح

نام تاپیک: ابزارهای اکتیوایکس کاربردی و زیبا

این آدرس پست : http://barnamenevis.org/forum/showpost.php?p=643402&postcount=288

[mahmood744]

این هم یک نمونه کار من بدون استفاده از هر کامپونت

81173