09-01-17, 02:33 PM
(آخر تعديل لهذه المشاركة : 09-01-17, 02:55 PM {2} بواسطة silverlight.)
أعتقد أنك تحاول إغلاق سنة مالية ثم بعد ذلك تريد بدء عام جديد
اولا السنة المالية لها تاريخ تبدا منه و في حالتك هنا هذه البداية يجب ان تكون 1/1/2106 00:00:01 Am , أما تاريخ اغلاق السنة المالية يجب ان يكون31/12/2106 11:59:59 Pm و هذان التاريخان هما الشرطان اللذان تحتاج اليهما
وهذا علي اعتبار انك سقوم بإيقاف تسجيل البيانات في اخر ثانية من سنة 2016 و ايضا تفتح باب التسجيل في اول ثانية من عام 2016
تاريخ الاغلاق هنا هو الذي يجب ان تقارن به التاريخ الحالي فإن كان الاثنان متساويان تقوم بإظهار رسالة للمستخدم تفيد اغلاق التسجيل و ان كان التاريخ الحالي اقل من تاريخ الاغلاق و اكبر من تاريخ بداية التسجيل هنا تسمح للمستخدم بالتسجيل
انت تحتاج لكلاس بسيط مثل هذا الكلاس او يمكنك ان تكتب الفكرة كما يحلو لك
وهذه هي المقارنة التي يجب ان تقوم بها
اولا السنة المالية لها تاريخ تبدا منه و في حالتك هنا هذه البداية يجب ان تكون 1/1/2106 00:00:01 Am , أما تاريخ اغلاق السنة المالية يجب ان يكون31/12/2106 11:59:59 Pm و هذان التاريخان هما الشرطان اللذان تحتاج اليهما
وهذا علي اعتبار انك سقوم بإيقاف تسجيل البيانات في اخر ثانية من سنة 2016 و ايضا تفتح باب التسجيل في اول ثانية من عام 2016
تاريخ الاغلاق هنا هو الذي يجب ان تقارن به التاريخ الحالي فإن كان الاثنان متساويان تقوم بإظهار رسالة للمستخدم تفيد اغلاق التسجيل و ان كان التاريخ الحالي اقل من تاريخ الاغلاق و اكبر من تاريخ بداية التسجيل هنا تسمح للمستخدم بالتسجيل
انت تحتاج لكلاس بسيط مثل هذا الكلاس او يمكنك ان تكتب الفكرة كما يحلو لك
PHP كود :
Public Class FinanceComplete
Private now As DateTime = DateTime.Now
Public Sub New()
End Sub
Public ReadOnly Property StartDate As DateTime
Get
Return New DateTime(now.Year, 1, 1, 0, 0, 1)
End Get
End Property
Public ReadOnly Property EndDate As DateTime
Get
Return New DateTime(now.Year, 12, 31, 11, 59, 59)
End Get
End Property
End Class
وهذه هي المقارنة التي يجب ان تقوم بها
PHP كود :
Dim fc As New FinanceComplete
If Me.DateTimePicker1.Value = fc.EndDate Then
' show message box
End If
If Me.DateTimePicker1.Value < fc.EndDate AndAlso Me.DateTimePicker1.Value > fc.StartDate Then
' ثم بتسجيل البيانات
End If

