تبلیغات
تبلیغات متنی
محبوبترینها
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
سه برند برتر کلید و پریز خارجی، لگراند، ویکو و اشنایدر
مراحل قانونی انحصار وراثت در یک نگاه: از کجا شروع کنیم؟
چگونه برای دریافت ویزای ایران اقدام کنیم؟ مدارک لازم و نکات کاربردی
راهنمای خرید یو پی اس برای مراکز درمانی و بیمارستانی مطابق الزامات قانونی
آیا طلاق توافقی نیاز به وکیل دارد؟
چگونه ویزای آفریقای جنوبی را به آسانی دریافت کنیم؟ راهنمای قدم به قدم
همه چیز درباره ویزای آلمان و مراحل دریافت آن
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1821311600
تبديل تاريخ ميلادي به شمسي -
واضح آرشیو وب فارسی:سایت ریسک: 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]
[تعداد بازديد از اين مطلب: 1186]
-
گوناگون
پربازدیدترینها