خواهش میکنم کمک کنید: دریافت تاریخ و برگرداندن روز هفته!

واضح آرشیو وب فارسی:سایت ریسک: paria 13608-02-2010, 11:49 PMسلام من میخوام تاریخ شمسی رو از ورودی بگیره و روز هفته اون تاریخ رو برگردونه! خواهش میکنم کمکم کنید خیلی حیاتیه!!!!!:sad::sad: farshidshd09-02-2010, 10:53 AMسلام من میخوام تاریخ شمسی رو از ورودی بگیره و روز هفته اون تاریخ رو برگردونه! خواهش میکنم کمکم کنید خیلی حیاتیه!!!!!:sad::sad: این چیزی که شما میخواین کار زیادی نداره. اما واسه اینکه هم به شما کمک کرده باشم هم قوانین رو رعایت کرده باشم هم ترغیبت کنم خودت سعی کنی این کد رو نوشتم که به چیزی که میخوای نزدیکه در ضمن شما باید اول تاریخ شمسی رو به سیستم بشناسونی. ویژوال بیسیک که نمیدونه شمسی چیه!! یک Label و یک Timer تو فرم ایجاد کن Enabeld تامیر رو True بزار و Interval شو برابر با 500 قرار بده روی تایمر دابل کلیک کن و اینا رو بنویس::: Month_days = Array(0, 31, 59, 90, 120, 151, 181, 212, 242, 272, 303, 333) my_week_days = Array("shanbe", "yek", "Do", "3shanbe", "4shanbe", "5shanbe", "jome") Months_name = Array("farvardin", "ordi", "khor", "Tir", "Mordad", "shahrivar", "mehr", "Aban", "azar", "dey", "bahman", "esfand") mdtn = Day(Now) + Month_days(Month(Now)) my_week_day = my_week_days(Weekday(Now)) If mdtn > 79 Then my_1 = mdtn - 79 If my_1 <= 186 Then If (my_1 Mod 31) = 0 Then shamsi_day = 31 shamsi_month = Int(my_1 / 31) Else shamsi_day = (my_1 Mod 31) shamsi_month = Int(my_1 / 31) + 1 End If Else my_1 = (my_1 - 186) If (my_1 Mod 30) = 0 Then shamsi_day = 30 shamsi_month = Int(my_1 / 30) + 6 Else shamsi_day = (my_1 Mod 30) shamsi_month = Int(my_1 / 30) + 7 End If End If shamsi_year = Year(Now) - 621 Else If ((Year(Now) Mod 100) = 0 And (Year(Now) Mod 400) = 0) Or ((Year(Now) Mod 100) <> 0 And (Year(Now) Mod 4) = 0) Then my_day_diff = 11 Else my_day_diff = 10 End If my_1 = (mdtn + my_day_diff) / 30 If (my_1 Mod 30) = 0 Then shamsi_day = 30 shamsi_month = Int(my_1 / 30) + 9 Else shamsi_day = (my_1 Mod 30) + 14 shamsi_month = Int(my_1 / 30) + 10 End If shamsi_year = Year(Now) - 622 End If my_shamsi_month = Months_name(shamsi_month) Persian_Date_String = "Emrooz " & my_week_day & "===" & shamsi_day + 3 & " " & my_shamsi_month & " " & shamsi_year Label1.Caption = Persian_Date_String End Sub ممکنه بعضی روزا روز shamsi_day اشتباه بزنه که میتونی اعداد جمع شده رو تغییر بدی موفق باشی paria 13609-02-2010, 11:44 AMممنون بابت برنامه ای که نوشتید ولی فکر میکنم اون چیزی که من میخوام در واقع تبدیل شمسی به میلادیه( چون از ورودی تاریخ شمسی رو میخونه و روز هفته اش رو برمیگردونه)ولی این برنامه تاریخ میلادی سیستم رو داره به شمسی تبدیل میکنه! اگر دارم اشتباه میکنم بهم بگید چون دیگه اصلا نمیفهمم چی درسته چی غلط! farshidshd09-02-2010, 03:39 PMعزیزم تاریخ باید به شمسی باشه که تبدیلش کنی به میلادی ویژوال بیسیک که تاریخ شمسی نمیدونه چیه. اصلا تاریخ خودش میلادی هست دیگه باز می خای تبدیلش کنی به میلادی؟؟؟!! نمیشه که. SMNsoft09-02-2010, 09:41 PMالبته برای راحتی کارت می تونی از اکتویکس Shamsi.dllاستفاده کنی Rishter09-02-2010, 11:06 PMشما در واقع يه برنامه اي ميخواييد كه تاريخ شمسي رو به ميلادي و بلعكس تبديل كنه ؟ اگه منظورتون اينه من ميتونم بهتون كمك كنم . :11::40: paria 13609-02-2010, 11:32 PMاین برنامه ای هست که با shamsi.dll نوشته شده حالا اگر تاریخ داخل text box رو عوض کنیم دیگه درست جواب نمیده. لینکش رو میزارم ببینید. اگه همین درست جواب میداد خیلی خوب بودfile:///C:/DOCUME%7E1/Parastoo/LOCALS%7E1/Temp/moz-screenshot-2.jpg !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! file:///C:/DOCUME%7E1/Parastoo/LOCALS%7E1/Temp/moz-screenshot.jpgfile:///C:/DOCUME%7E1/Parastoo/LOCALS%7E1/Temp/moz-screenshot-1.jpg _H2_10-02-2010, 07:18 PMسلام اگر خواستید میتوانید از پک زیر استفاده کنید support.h02.ir/fwlink/?LinkId=1001687457 !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! این پک کاملاً با موارد تشریحی در تاپیک زیر منطبق است و بر اساس الگوریتم جلالی 33 ساله کار میکند: 378990 این فایل dll قبلاً در تاپیک زیر معرفی شده بود: 277941 ولی متاسفانه ضمن عضر خواهی از دوستان و مخصوصاً جناب "بهرام_62" دیگر دسترسی درستی به VB 6 قدیمی ندارم و نتوانستم سمپلی درست کنم. ولی هر کدام از دوستان بخواهد از dll فوق استفاده کند و سوال و مشکلی داشته باشد میتوانم کمکش کنم. مثلاً برای به دست آوردن روز هفته میتوان چنین نوشت: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! یا !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! و... ===== برای استفاده هم کافی است در زمان کار در VB فایل dll در محل پروژه کپی شود (یا در System32) و برای کارکرد صحیح برنامه نهایی هم کافی است فایل در کنار Exe برنامه نهایی باشد. دو فایل کد vb هم وجود دارد که باید با فرمان Project->Add File این دو فایل cs.* و bas.* را به پروژه VB 6 خودتان اضافه کنید. (البته اضافه کردن یکی شان هم کافی است! چون هر دو یک کار مشابه را از دو روش استفاده متفاوت انجام میدهند) ===== البته لازم به ذکر است که مایکروسافت تقویم هجری شمسی از نسخه VB 8 اضافه کرده است و در VB 8/9/10 با چنین کدی در دسترس است: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! یا !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! ===== مشکلی داشتید میتوانید همینجا بیان کنید. موفق باشید. paria 13610-02-2010, 11:39 PMاول از همه از همه کسانی که راهنماییم کردن تشکر میکنم مشکل من با این دستورات برطرف شد !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! فقط مشکل این دستورات اینکه که قبل از دادن خروجی خطای not valid میده نمیدونم خطاش چطوری باید برطرف بشه! سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 2712]