+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حساب العمر (/showthread.php?tid=30373)
حساب العمر - سعيد المهر - 18-07-19
اريد كودحساب العمر هذا البرنامج من تصميمي اريد اكماله
[attachment=22101]
RE: حساب العمر - ابراهيم ايبو - 18-07-19
السلام عليكم اخي الكريم
تفضل هذا مثال لحساب العمر
RE: حساب العمر - سعيد المهر - 18-07-19
مشكور اخي العزيز بس كنت اريده بالتكست مفصل اليوم في تكست والشهر في تكست والسنة في تكست مثل المثال في الصورة المرفقة
RE: حساب العمر - ابراهيم ايبو - 18-07-19
السلام عليكم اخي الكريم
تفضل مثال لما تريد
RE: حساب العمر - سعيد المهر - 19-07-19
تشكر اخي العزيز على هذا المجهود والرد السريع عند تشغيل البرنامج تظهر هذه الرسالة
[attachment=22115]
RE: حساب العمر - ابراهيم ايبو - 19-07-19
اخي البرنامج شغال وليس فيه اي مشكلة
واعدت تنزيله من المرفقات وشغتله كالمعتاد
حتى اتأكد من المرفقات
وهذه صورة بزمن التشغيل
RE: حساب العمر - سعيد المهر - 19-07-19
حاولت اكثر من مرة لم انجح في فتح البرنامج تظهر الرسالة نفسها
نشكركم على تعاونكم اخي العزيز الرسالة اختفت لكن ظهرة مرة أخرى نفس الرسالة في السطر 29
RE: حساب العمر - ابراهيم ايبو - 19-07-19
السلام عليكم اخي الكريم
اريد ان اسألك هل تشغل المثال المرسل ام قمت بنقل الاكواد؟
ان قمت بنقل الاكواد على مشروع جديد تأكد انك لم تنس شيئا
وهذا هو كامل الكلاس
كود :
Public Class Form1
Dim datenow As Date
Public Function GetDateSpanText(ByVal fromDate As DateTime, Optional ByVal 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 (years & " Years " & "-" & months & " Months " & "-" & days & " Days ")
Catch ex As Exception
Return "Error"
End Try
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Birtday As Date = CDate(TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text)
Dim strall As String = (GetDateSpanText(Birtday, datenow))
Dim ff() = strall.Split("-")
TextBox4.Text = ff(2)
TextBox5.Text = ff(1)
TextBox6.Text = ff(0)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim N1 As Date = Now
Dim N2 As Date = Now
Dim N3 As Date = Now
TextBox7.Text = N1.ToString("dd")
TextBox8.Text = N2.ToString("MM")
TextBox9.Text = N3.ToString("yyyy")
datenow = CDate(TextBox7.Text & "/" & TextBox8.Text & "/" & TextBox9.Text)
End Sub
End ClassRE: حساب العمر - سعيد المهر - 19-07-19
لا لم اقم بنقله بل قمت بتشغيل نفس البرنامج المرسول منقبلكم
RE: حساب العمر - سعيد المهر - 19-07-19
جزيت خيرا تم التشغيل