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

[hadi7112000]

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

[hadi7112000]

کسی کمک نمی کنه ؟

[amirzazadeh]

سلام
از ماژول تبديل تاريخ آقاي آزادي ميتونيد استفاده كنيد.
http://barnamenevis.org/showthread.php?51987-مشکلات-فارسی-و-سورس-های-مربوطه&p=262569&viewfull=1#post262569

Public Function Shamsi() As Long
'تاریخ جاری سیستم را به تاریخ هجری شمسی تبدیل می کند
Dim Shamsi_Mabna As Long
Dim Miladi_mabna As Date
Dim Dif As Long
'در اینجا 80/10/11 با 2002/01/01 معادل قرارداده شده
Shamsi_Mabna = 791012
Miladi_mabna = #1/1/01#
Dif = DateDiff("d", Miladi_mabna, Date)
If Dif < 0 Then
MsgBox "تاریخ جاری سیستم شما نادرست است , آنرا اصلاح کنید."
Else
Shamsi = AddDay(Shamsi_Mabna, Dif)
End If
End Function

[mohammadsaleh]

من از ماژولهاي مختلفي براي تاريخ شمسي استفاده كردم ولي ماژول تاريخ شمسي آقاي نبيل پيروز مهر بهترينه . تقريبا همه فانكشنهاي date() را داره. اگر براي كارهاي حسابداري بخواي استفاده كني ماژولهاي اكثرا با تاريخ ميلادي مخصوصا در چند ماه 31 روزه مشكل دارند. توصيه مي كنم از اول كار يه ماژول درست و درمون و كامل رو استفاده كني .
اينم آدرس
http://www.cpsd.ir/pdc.asp

[alirezabahrami]

من از ماژولهاي مختلفي براي تاريخ شمسي استفاده كردم ولي ماژول تاريخ شمسي آقاي نبيل پيروز مهر بهترينه . تقريبا همه فانكشنهاي date() را داره. اگر براي كارهاي حسابداري بخواي استفاده كني ماژولهاي اكثرا با تاريخ ميلادي مخصوصا در چند ماه 31 روزه مشكل دارند. توصيه مي كنم از اول كار يه ماژول درست و درمون و كامل رو استفاده كني .
اينم آدرس
http://www.cpsd.ir/pdc.asp
سلام جناب محمد صالح !
آیا با ماژول تاریخ شمسی جناب آزادی هم کار کرده اید ؟ اگر جواب مثبت است ممکن است بفرمائید چه مشکلی در این ماژول بخصوص در ماههای 31 روزه آن دیده اید؟
یا علی

[javadrajabihakami]

امان از دست اين ماژول هاي شمسي ! من كه در به در دنبالش مي گردم....
عجايب الاماراتيه!