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

[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

[فرید نجفلو]

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

سلام
برای کار با تاریخ های شمسی دو تابع تو این تاپیک (http://barnamenevis.org/showthread.php?340673-كم-كردن-2-تاريخ-شمسي-موجود-در-Textbox-از-يكديگر&p=1502722&viewfull=1#post1502722)گذاشتم