تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836170690
تبديل تاريخ ميلادي به شمسي -
واضح آرشیو وب فارسی:سایت ریسک: t=22425">تبديل تاريخ ميلادي به شمسي amineh 11 آبان 1383, 22:33سلام دوستان كد تبديل تاريخ ميلادي به شمسي (تاريخ سيستم) با vb.net یا c# را می خواستم هر کی می دونه لینکی چیزی ... یه دنیا ممنون می شم پروژه ام بد جوری گیر کرده mazoolagh 13 آبان 1383, 23:50Function SHAMSI_MILADI(YYYY, MM, DD) As Date If MM > 6 Then DIF = 186 + (MM - 7) * 30 + DD Else DIF = 31 * (MM - 1) + DD End If For YY = 0 To YYYY - 1301 If YY Mod 4 = 3 Then DIF = DIF + 366 Else DIF = DIF + 365 End If Next SHAMSI_MILADI = DateAdd("D", DIF, "1921/3/20") End Function Function MILADI_SHAMSI(YYYY, MM, DD) As String D 1 = DateSerial(YYYY, MM, DD) DIF = DateDiff("d", D 1, "1921/3/20") Y = 1300 DAYS = 365 Do While DIF > DAYS DIF = DIF - DAYS Y = Y + 1 If Y Mod 4 = 3 Then DAYS = 366 Else DAYS = 365 End If Loop If DIF > 186 Then DIF = DIF - 186 M = (DIF 30) + 7 D = DIF Mod 30 Else M = (DIF 31) + 1 D = DIF Mod 31 End If MILADI_SHAMSI = CStr(Y) & "/" & CStr(M) & "/" & CStr(D) End Function amineh 15 آبان 1383, 21:47دستتون درد نكنه خيلي به كارم اومد البته بعضي از تاريخ ها را اشتباه حساب مي كنه برام جالب بود اين همه چند روزه گشتم چيزي ژيدا نكردم تا اينكه شما اين كد را گفتيد امروز يه سرچ مي كردم اصلا ربطي به تاريخ نداشت در فورم پرشين تولز همين تاپيك را ديدم كه شما كد را گذاشته بوديد mazoolagh 15 آبان 1383, 21:58از نظر لطف شما ممنونم - خواهش ميكنم اشتباهات محاسبه را مطرح بفرماييد تا حتما اصلاح كنم.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1191]
-
گوناگون
پربازدیدترینها