بدهکار کردن افراد در اول ماه به طور اتوماتیک

[aknj56]

با سلام خدمت دوستان عزیز
چطور میشه یک کاری کرد که برنامه اول هر ماه به طور خودکار افراد رو به هر مبلغی که خواستیم بدهکار کنه تا با پرداخت آن بدهی افراد تسویه شود مثلا یک دکمه بزاریم تا اول هر ماه با زدن اون دکمه همه افراد دیتا بیس بدهکار شوند یا با هر روشی که بشود این کار رو انجام داد و ضمنا ما بتوانیم مثلا در یک تکس باکس مبلغی رو که افراد رو میخایم بدهکار کنیم رو وارد کنیم
لطفا راهنمایی کنید
با تشکر از زحمات شما

[vali82]

سلام
شما باید در فرم لود برنامه کدی بنویسید که هر بار که وارد برنامه می شوید به طور اتماتیک برنامه تاریخ سیستم را با تاریخی که شما قبلا وارد شده اید چک کند اگر تفاوت این دو تاریخ یک ماه باشد کلیه افراد را به مبلغی که قبلا در دیتابیس خود وارد کرده اید بدهکار کند
در ضمن می توانید در ضمان لود برنامه از شما پرسیده شود که این عملیات اتوماتیک باشد یا دستی اگر اتوماتیک باشد به روش بالا می شود و اگر دستی باشد فرم دیگری باز شود که لیست افراد داخل آن باشد که با تیک زدن جلوی هر اسم این عمل انجام گیرد

[aknj56]

با سلام و تشکر از شما دوست عزیز
چطوری اختلاف دو تاریخ رو چک کنم اگر امکان داره کدی که این کار ور میکنه برام بذارید

[ROSTAM2]

این کده هست ولی بهینه نشده!!!! اگه بهینه اش کردید بزارید تو یه پست تا دیگران ازش استفاده کنند

Sub ColorAccount(Optional ByVal index As Integer = 0)

        Dim colr As Color = Color.White

        Dim Myear, MMonth, MDay As Integer

        With ListView1.Items(index)

            Myear = Val(Split(.SubItems(3).Text, "/")(2))

            MMonth = Val(Split(.SubItems(3).Text, "/")(1))

            MDay = Val(Split(.SubItems(3).Text, "/")(0))

            If Val(Split(GetShamsiDate, "/")(2)) > Myear Or Val(Split(GetShamsiDate, "/")(1)) > MMonth Or _

           Val(Split(GetShamsiDate, "/")(0)) > MDay Then

                colr = Color.LightSteelBlue

            ElseIf Val(Split(GetShamsiDate, "/")(1)) = MMonth Or Val(Split(GetShamsiDate, "/")(0)) = MDay Then

                colr = Color.Lime

            ElseIf Val(Split(GetShamsiDate, "/")(2)) < Myear Or Val(Split(GetShamsiDate, "/")(1)) < MMonth Or _

       Val(Split(GetShamsiDate, "/")(0)) < MDay Then

                colr = Color.White

            End If

            .BackColor = colr

        End With

    End Sub

[vali82]

سلام خط اول تاریخی هست که قبلا ذخیره شده می تونه در یک فایل تکس باشه یا پایگاه داده شما خط دوم تاریخ اجرای برنامه هست خط سوم تا ششم تفاوت دو تاریخ فقط ماه شون را بدست میاره و دستور شرطی اگر تفاوت یک باشه دستورات شمارو اجرا میکنه

 Dim Tarikh = "2012/04/12"

        Dim TarikhSys = Date.Today

        Dim Mah1 = Val(Mid(Tarikh, 6, 2))

        Dim Mah2 = Val(Mid(TarikhSys, 6, 2))

        Dim Mah = Mah2 - Mah1

        If Mah = 1 Then

            MsgBox("! یک ماه شده است")

        End If

[فرید نجفلو]

با سلام و تشکر از شما دوست عزیز
چطوری اختلاف دو تاریخ رو چک کنم اگر امکان داره کدی که این کار ور میکنه برام بذارید

سلام
برای کار با تاریخ های شمسی دو تابع تو این تاپیک گذاشتم