تبدیل تاریخ شمسی به میلادی

[shahab_ss]

با سلام
اگر کسی از دوستان تابع تبدیل تاریخ شمسی به میلادی رو داره، ممنون میشم اگر اون رو به من هم بده.

فرمت تاریخ شمسی بصورت زیر :
YYYY/MM/DD

[مهدی قربانی]

سلام
این لینک رو ببین .

http://barnamenevis.org/forum/showthread.php?t=51987&highlight=%CA%C7%D1%26%231740%3B%CE

[shahab_ss]

تاریخ شمسی به میلادی ....دوست من،نه تاریخ میلادی به شمسی.
این لینک رو هم قبلا دیدم.
به هر حال از شما متشکرم

[daskar]

با سلام
دوست عزیز اگه بگردی تو همین سایت تو قسمت مشکلات فارسی و سورس های مربوطه میتونی جوابت رو بگیری

[مهدی قربانی]

آقا شرمنده لینک رو اشتباهی گذاشتم همونطور که دوستمون daskar اشاره کردن می تونید در قسمت اعلانها ، پست 8# تاپیک مشکلات فارسی و سورس های مربوطه کد مورد نظر رو ببینید
باز هم عذر خواهی می کنم .

[najafzade]

آقا یه شرکت به نام اکسین سافت یه DLL درست کرده که این کار رو میکنه.
تو اینترنت یه سرچی بکنید پیداش می کنید.

[shahab_ss]

متشکرم از شما،

تاپیک شماره #8 هم برای تبدیل میلادی به شمسی بود.و جواب کار من رو نمیداد !

آقای نجفزاده من فایل اکسین سافت رو پیدا کردم اما چون رجیستر نبودم اجازه دانلود نداشتم.
اگر شما این فایل رو موجود دارید ممنون میشم اگر اینجا قرار بدین تا هم من و هم بقیه دوستان ازش استفاده کنن.

[sohrab_a1b2c3]

اگه توابع وی بی برای این کار به دردت می خوره ایمیل بده برات بفرسیتم

[shahab_ss]

اگر این توابع در اکسس قابل اجرا هستند و نیاز به تغییر زیادی ندارن ممنون میشم که برام بفرستی.
shahab_et@yahoo.com

[مهدی قربانی]

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

[صبا9841]

این کدش


Function ShamToMil(ShamDate)
Dim Mil(12), MilK(12)
Dim ShamDayGo, MilDayGo, i
Dim MilDate, ShamSal, ShamMah, ShamRooz, MilSal, MilMah, MilDay
Mil(1) = 31: Mil(2) = 28: Mil(3) = 31: Mil(4) = 30: Mil(5) = 31: Mil(6) = 30: Mil(7) = 31: Mil(8) = 31
Mil(9) = 30: Mil(10) = 31: Mil(11) = 30: Mil(12) = 31
MilK(1) = 31: MilK(2) = 29: MilK(3) = 31: MilK(4) = 30: MilK(5) = 31: MilK(6) = 30: MilK(7) = 31: MilK(8) = 31
MilK(9) = 30: MilK(10) = 31: MilK(11) = 30: MilK(12) = 31
ShamSal = Val(Left$(CStr(ShamDate), 2)) + 1300
ShamMah = Val(Mid(CStr(ShamDate), 3, 2))
ShamRooz = Val(Mid(CStr(ShamDate), 5, 2))
ShamDayGo = ShamsiDayGo(ShamMah, ShamRooz)
If (ShamSal Mod 4 = 2 And ShamDayGo >= 287) Or _
(ShamSal Mod 4 = 3 And ShamDayGo < 286) Then 'ßÈíÓå ãíáÇÏí
If ShamDayGo > 286 Then
MilSal = ShamSal + 622
MilDayGo = ShamDayGo - 286
Else
MilSal = ShamSal + 621
MilDayGo = ShamDayGo + 79
End If
i = 1
If MilDayGo > 31 Then
While MilDayGo > MilK(i)
MilDayGo = MilDayGo - MilK(i)
i = i + 1
Wend
End If
Else 'ÓÇá ÛíÑ ßÈíÓå
If ShamDayGo > 286 Then
MilSal = ShamSal + 622
MilDayGo = ShamDayGo - 286
Else
MilSal = ShamSal + 621
MilDayGo = ShamDayGo + 79
End If
i = 1
If MilDayGo > 31 Then
While MilDayGo > Mil(i)
MilDayGo = MilDayGo - Mil(i)
i = i + 1
Wend
End If
End If
If i < 10 Then MilMah = "0" + CStr(i) Else MilMah = CStr(i)
If MilDayGo < 10 Then MilDay = "0" + CStr(MilDayGo) Else MilDay = CStr(MilDayGo)
MilDate = Val(CStr(MilSal) + MilMah + MilDay)
ShamToMil = MilDate
End Function


برای ادامه توضیحات به نمونه توی این تاییپیک (http://barnamenevis.org/forum/showthread.php?t=72558) مراجعه کن

[hbahjat]

کدتون ناقصه لطفا تکمیلش کنین ممنون