برنامج تحديد اليوم لتاريخ معين

السلام عليكم

حياك الله اخي ايوب , إن شاء الله من المتفوقين في الدراسة دائما و ابداً

طالت الغيبة وطال الانتظار. و عودة حميدة و العودُ احمدُ.

وهذه مشاركة متواضعة لمعرفة تاريخ انتهاء الاجازة .

Imports System.Globalization

Public Class Form1


#Region " Declaring variables "

	Private smallD As Date 'Declare variables.
	Private Days As Double
	Private IntervalType As DateInterval
	Private EndDate As String

#End Region


#Region " Form painting event "

	Private Sub Form1_Paint(ByVal sender As Object, _
	ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

		Try
			' Fill the rectangle with a gradient.
			Dim lBrush As New _
			  Drawing2D.LinearGradientBrush(New Point(0, 0), _
			  New Point(Me.Width, Me.Height), Color.MidnightBlue, _
			  Color.RoyalBlue)
			e.Graphics.FillRectangle(lBrush, Me.ClientRectangle)
			lBrush.Dispose()
		Catch ex As Exception
		End Try

	End Sub

#End Region


#Region " Form loading event "

	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		'Load Calculation
		With cboxPeriodPicker
			.BeginUpdate()
			For i As Integer = 1 To 200
				.Items.Add(i)
			Next
			.EndUpdate()
		End With
	End Sub

#End Region


#Region " Button Click event "

	Private Sub btnCalculate_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles btnCalculate.Click

		Try

			IntervalType = DateInterval.Day  ' Specifies Days as interval.
			Days = Val(cboxPeriodPicker.Text)
			EndDate = DateAdd(IntervalType, Days, DTPick.Value)
			smallD = EndDate
			Me.lblResult.Text = "سيكون نهاية تاريخ الإجازة : " & _
			smallD.ToString("dddd MMMM yyyy")
			Me.lblResult.Text &= " " & " أي بـ " & _
			smallD.ToShortDateString()
			Dim formatInfo As DateTimeFormatInfo = _
			CultureInfo.CurrentCulture.DateTimeFormat
			Me.lblDay.Text = formatInfo.GetDayName(smallD.DayOfWeek)
			Me.lblMonth.Text = formatInfo.GetMonthName(smallD.Month)
		Catch ex As Exception
			MsgBox(ex.Message, "خطأ في تحويل التاريخ", MessageBoxIcon.Error)
			Exit Sub
		End Try

	End Sub


#End Region


End Class

CalculateVacation.rar

بسم الله الرحمن الرحيم

أشكر الأخ أيوب جمال الإدريسي على هذا الموضوع

فهذا البرنامج صغير ومتميز

ولقد أثار انتباهى هذا الموضوع لأن مشكلة التاريخ وخصوصاً التاريخ العربى من أكثر المسائل

التى واجهتنى فى فترة من الفترات ولم أجد لها حلا يُرضينى كمبرمج

فالتقويم الميلادى يبدأ من سنة 1 ميلادية

ولكن ماذا لو استطعنا أن نعرف اسم اليوم قبل ذلك

فعلى سبيل المثال

ما هو اليوم الموافق لـ

1/1

سنة 1

قبل الميلاد

أو قبل الهجرة

لقد أثارنى هذا الموضوع لفترة

حيث أنى كنت أريد أن أعرف اليوم الموافق لهجرة الرسول صلًى الله عليه وسلم

وأيضاً كنت أريد ان أعرف فى أي يوم سوف يتساوى التاريخ الميلادى مع التاريخ الهجرى

ذلك على أساس أن التقويم الهجرى أقل من التقوبم الميلادي فى عدد الأيام

فلابد وأن بأتى يوم و يتساوى التاريخان معاً

لذا ، بعون الله ، قد تمكنت من عمل برنامج صغير يقوم بهذه الحسابات

ولكنه بلغة الديلفى 6

وسوف أقوم بإعادة كتابة الكود بالفيجوال بيسيك دوت نت

وفى المرفقات هذا البرنامج "وبما أنه بلغة أخرى فقد وضعت الملف التنفيذي فقط"

وارجو من الإخوة تقييمه أيضاً

ففى النهاية نحن نبحث عن الصالح العام للأمة الإسلامية

والله المُستعان

AA.rar