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

[saeed1234n]

با سلام
به تمامی دوستان و اساتید گرامی !:لبخندساده:
بنده یک نرم افزار طراحی کردم با موضوع بدست آوردن اختلاف روز ماه سال بین دو تاریخ شمسی .
ممنون می شود دوستان و اساتید بزرگوار بررسی نمایند و نظر خودشان را اعلام دارند .
با کمال تشکر از تمامی خوبان که عنایت مینمایند.:خجالت::خجالت::خجال ت:

108826

[Abbas Amiri]

با سلام
به تمامی دوستان و اساتید گرامی !:لبخندساده:
بنده یک نرم افزار طراحی کردم با موضوع بدست آوردن اختلاف روز ماه سال بین دو تاریخ شمسی .
ممنون می شود دوستان و اساتید بزرگوار بررسی نمایند و نظر خودشان را اعلام دارند .
با کمال تشکر از تمامی خوبان که عنایت مینمایند.:خجالت::خجالت::خجال ت:

108826

سلام

برای تمرین شروع تابع نویسی بد نیست . ولی شما فقط اختلاف روز را برمی گردانید ضمن اینکه خطا هم دارد . ( اختلاف 1391/01/01 تا 1392/01/01 ، 366 روز است)

ضمنا مقدار یک ماه یا یک سال را بایستی برحسب روز های ثابت (30 روز و 365 روز) حساب کنیم و یا بر اساس تعداد روزهای ماههای سپری شده ( 1392/05/11 تا 1392/06/10 سی روز است ولی روز مشابه ماه قبل نیست همچنین برای سال کبیسه)

به فرض مثال چنانچه تعداد ماههای بین دو تاریخ مشابه در فاصله 6 سال را بدون مفروضات فوق محاسبه کنیم یک ماه اضافه محاسبه خواهد شد .

باید ابتدا این ها مشخص شوند بعد به ریزه کاریها پرداخته شود.

شخصا برای بدست آوردن اختلاف روزها ابتدا تاریخ ها را به میلادی تغییر می دهم و بعد با DateDiff آنرا بدست می آورم.

موفق باشید

[saeed1234n]

با سلام
ضمن تشکر از استاد بهرامی و استاد امیری که مثل همیشه به ما آماتورها لطف دارند و تشکر از دیگر دوستانی که قبول زحمت کردند و برنامه را بررسی کردند .


برای تمرین شروع تابع نویسی بد نیست . ولی شما فقط اختلاف روز را برمی گردانید ضمن اینکه خطا هم دارد . ( اختلاف 1391/01/01 تا 1392/01/01 ، 366 روز است)

جناب امیری اختلاف روز دو تاریخ اصلاح شد .


ضمنا مقدار یک ماه یا یک سال را بایستی برحسب روز های ثابت (30 روز و 365 روز) حساب کنیم و یا بر اساس تعداد روزهای ماههای سپری شده ( 1392/05/11 تا 1392/06/10 سی روز است ولی روز مشابه ماه قبل نیست همچنین برای سال کبیسه)

مطلب فوق نیز در نظر گرفته و رعایت شد.


به فرض مثال چنانچه تعداد ماههای بین دو تاریخ مشابه در فاصله 6 سال را بدون مفروضات فوق محاسبه کنیم یک ماه اضافه محاسبه خواهد شد .



فکر کنم با وجود تصحیح (البته به گمان خودم - پس از چند بار تست) دو مورد اول خود بخود مورد اخیر نیز اصلاح شود .

بازهم چشم به راه عنایت و التفات شما خوبان هستم .:لبخندساده:

108883

[Abbas Amiri]

با سلام
ضمن تشکر از استاد بهرامی و استاد امیری که مثل همیشه به ما آماتورها لطف دارند و تشکر از دیگر دوستانی که قبول زحمت کردند و برنامه را بررسی کردند .



جناب امیری اختلاف روز دو تاریخ اصلاح شد .



مطلب فوق نیز در نظر گرفته و رعایت شد.



فکر کنم با وجود تصحیح (البته به گمان خودم - پس از چند بار تست) دو مورد اول خود بخود مورد اخیر نیز اصلاح شود .

بازهم چشم به راه عنایت و التفات شما خوبان هستم .:لبخندساده:

108883

در عبارات Select Case می توانید از مزایای آن نسبت به If استفاده کنید



Select Case m_d1
Case 1 To 6
dm_d1 = (m_d1 - 1) * 31
Case 7 To 12
dm_d1 = 186 + (m_d1 - 7) * 30
End Select



در یک قسمت دیگه Select Case هم می توان بهینه کرد

[mousani]

با سلام کد vb اختلاف بین 2 تاریخ شمسی رو میخواستم

[saeed1234n]

با سلام


با سلام کد vb اختلاف بین 2 تاریخ شمسی رو میخواستم


http://barnamenevis.org/showthread.php?509973-%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D9%87-%D8%AA%D8%B9%D8%AF%D8%A7%D8%AF-%D8%B1%D9%88%D8%B2&p=2272485&viewfull=1#post2272485