+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] عدد السنين والايام بين تاريخين + معرفة كم مضى من عمرك - my age (/showthread.php?tid=15381)
عدد السنين والايام بين تاريخين + معرفة كم مضى من عمرك - my age - سعود - 07-04-16
لا ادري حين كتبت اول العنوان احسست بشيء من حزن اسال الله ان يفرج هم المهمومين
المهم الموضوع على عجالة
وهذا الكلاس مع الدالة والاجراء
PHP كود :
Public Class Form1
Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String
Try
Dim years As Integer = 0, months As Integer = 0, days As Integer = 0
If toDate = Nothing Then toDate = DateTime.Now
Do Until toDate.AddYears(-1) < fromDate
years += 1
toDate = toDate.AddYears(-1)
Loop
Do Until toDate.AddMonths(-1) < fromDate
months += 1
toDate = toDate.AddMonths(-1)
Loop
Do Until toDate.AddDays(-1) < fromDate
days += 1
toDate = toDate.AddDays(-1)
Loop
Return String.Format("{0} Years {1} Months {2} Days", years, months, days)
Catch ex As Exception
Return "Error"
End Try
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim doj As New DateTime
Dim dor As New DateTime
doj = Convert.ToDateTime(TextBox2.Text)
dor = Convert.ToDateTime(TextBox1.Text)
TextBox3.Text = (GetDateSpanText(doj, dor))
End Sub
End Class
RE: عدد السنين والايام بين تاريخين - boudyonline - 08-04-16
مجهود رائع
اقتراح بسيط بتنظيم إدخال التواريخ ... من الأحدث إلى الأقدم
RE: عدد السنين والايام بين تاريخين - ممدوح - 08-04-16
اعتقد هذا المثال يمكنه حساب العمر
RE: عدد السنين والايام بين تاريخين - VBBegin - 07-10-16
بارك الله فيك البرنامج اشتغل بعد أن جربته في فيجوال بيسيك 2008.
RE: عدد السنين والايام بين تاريخين - محمد مسافر - 08-10-16
الاخوة جميعاً
ايضاً هذا مشروع من برمجتي فيه نفس الفكره وبشكل اسهل اتمنى الفائد للجميع
حساب االفرق بين تاريخيين سنه، شهر يوم
RE: عدد السنين والايام بين تاريخين - سعود - 26-12-20
الله الله ما اروع مشاركة المعلومات
لقد كنت بحاجة لكود المتبقي من وقت معين وظللت يوم بليله اتذكره و الحمدلله ذكرته
ان شاء الله ساجهز مثال يعرض اقرب موعد مخزن في الجدول وكم المدة المتبقية سنة شهر يوم ساعة دقيقة ثانية لكني الان الغيت السنة والشهر و ابقيت الباقي.
شكر الله سعي كل الاخوة اللذين يقدمون ويشجعون اخوانهم في هذا المنتدى الطيب و اللذي فيه ذكريات اناس طيبين رحم الله من رحل ووفق من بقي واطال بعمره.
تحيات اخيكم سعود عضو هذا المنتدى الرائع
26/12/2020
11/5/1442 هـ
وش فيه طلعت معكوسة
احاول
1442/5/11 هـ
يمكن نجحت
RE: عدد السنين والايام بين تاريخين - سعود - 07-03-23
تعديل بسيط جدا
لا جديد البتة فقط ....!
