تقویم هجری شمسی

Unknow-Man · Sep 6, 2006

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

Saman · Sep 8, 2006

سلام
Unknow-Man جان من قبلا به نقل از حامد گذاشته بودم ، يكم بگردي پيدا مي‌كني ! ولي فكر نمي‌كنم اون دقيق دقيق بود.
در هر صورت...

تا بعد...!

Saman · Sep 8, 2006

سلام
پيداش كردم
لينك دانلود با حجم 1 كيلوبايت

تا بعد...!

silvercover · Sep 10, 2006

سلام دوستان،

توی نمونه ای که آقا سامان گذاشتن یه تصحیح انجام بدین:

خط :
Full_Shamsi$=CHAR(ShamsiYear)+'/'+CHAR(ShamsiMonth)+'/'+CHAR(ShamsiDay)

رو به

Full_Shamsi$=CHAR(ShamsiYear)+'/'+CHAR(ShamsiMonth)+'/'+CHAR(ShamsDay)

تغییر بدین. یعنی حرف i رو پاک کنین.

splinter cell · Sep 10, 2006

با سلام
سامان عزيز
اين فايلي رو که گذاشتين با ورژن4.9.6 باز نميشه . ميشه لطف کنين وبراي اين نسخه هم بذارينش چون منم به اون احتياج دارم اما ورژن جديدتر Mmbرو ندارم. مرسي

Saman · Sep 10, 2006

سلام

کد:

Year=CBK_Year
Month=CBK_MonthNum
Day=CBK_DateNum
**=======================
If (Month=1) Then
 ShamsiYear=Year-622
 If (Day<=20) Then
 ShamsiMonth=10
 ShamsiDay=Day+10
 Else
 ShamsiMonth=11
 ShamsiDay=Day-20
 End
End
**=======================
If (Month=2) Then
 ShamsiYear=Year-622
 If (Day<=19) Then
 ShamsiMonth=11
 ShamsiDay=Day+11
 Else
 ShamsiMonth=12
 ShamsiDay=Day-19
 End
End
**=======================
If (Month=3) Then
 If (Day<=20) Then
 ShamsiMonth=12
 ShamsiDay=Day+9
 ShamsiYear=Year-622
 Else
 ShamsiMonth=1
 ShamsiDay=Day-20
 ShamsiYear=Year-621
 End
End
**=======================
If (Month=4) Then
 ShamsiYear=Year-621
 If (Day<=20) Then
 ShamsiMonth=1
 ShamsDay=Day+11
 Else
 ShamsiMonth=2
 ShamsiDay=Day-20
 End
End
**=======================
If (Month=5) Then
 ShamsiYear=Year-621
 If (Day<=21) Then
 ShamsiMonth=2
 ShamsDay=Day+10
 Else
 ShamsiMonth=3
 ShamsDay=Day-21
 End
End
**========================
If (Month=6) Then
 ShamsiYear=Year-621
 If (Day<=21) Then
 ShamsiMonth=3
 ShamsDay=Day+10
 Else
 ShamsiMonth=4
 ShamsDay=Day-21
 End
End
**=========================
If (Month=7) Then
 ShamsiYear=Year-621
 If (Day<=22) Then
 ShamsiMonth=4
 ShamsDay=Day+9
 Else
 ShamsiMonth=5
 ShamsDay=Day-22
 End
End
**=========================
If (Month=8) Then
 ShamsiYear=Year-621
 If (Day<=22) Then
 ShamsiMonth=5
 ShamsDay=Day+9
 Else
 ShamsiMonth=6
 ShamsDay=Day-22
 End
End
**=========================
If (Month=9) Then
 ShamsiYear=Year-621
 If (Day<=22) Then
 ShamsiMonth=6
 ShamsDay=Day+9
 Else
 ShamsiMonth=7
 ShamsDay=Day-22
 End
End
**=========================
If (Month=10) Then
 ShamsiYear=Year-621
 If (Day<=22) Then
 ShamsiMonth=7
 ShamsDay=Day+8
 Else
 ShamsiMonth=8
 ShamsDay=Day-22
 End
End
**=========================
If (Month=11) Then
 ShamsiYear=Year-621
 If (Day<=21) Then
 ShamsiMonth=8
 ShamsDay=Day+9
 Else
 ShamsiMonth=9
 ShamsDay=Day-21
 End
End
**=========================
If (Month=12) Then
 ShamsiYear=Year-621
 If (Day<=21) Then
 ShamsiMonth=9
 ShamsDay=Day+9
 Else
 ShamsiMonth=10
 ShamsDay=Day-21
 End
End
Hour=CBK_Hour
If (Hour<=3) Then
 Full_Shamsi$=CHAR(ShamsiYear)+'/'+CHAR(ShamsiMonth)+'/'+CHAR(ShamsDay)
 DisplayValue("Text","Full_Shamsi$")
Else
 a=ShamsiDay+1
 Full_Shamsi$=CHAR(ShamsiYear)+'/'+CHAR(ShamsiMonth)+'/'+CHAR(a)
 DisplayValue("Text","Full_Shamsi$")
End

تا بعد...!