تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حساب العمر
#1
اريد كودحساب العمر  هذا البرنامج من تصميمي اريد اكماله 

[attachment=22101]
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
تفضل هذا مثال لحساب العمر


الملفات المرفقة
.rar   احسب عمرك2.rar (الحجم : 105.64 ك ب / التحميلات : 61)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
مشكور اخي العزيز بس كنت اريده بالتكست مفصل اليوم في تكست والشهر في تكست والسنة في تكست مثل المثال في الصورة المرفقة
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , الحازمي
#4
السلام عليكم اخي الكريم 
تفضل مثال لما تريد


الملفات المرفقة
.rar   احسب عمرك 3.rar (الحجم : 72.55 ك ب / التحميلات : 38)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود , الحازمي
#5
تشكر اخي العزيز على هذا المجهود والرد السريع عند تشغيل البرنامج تظهر هذه الرسالة


   
الرد }}}
تم الشكر بواسطة: سعود , asemshahen5 , الحازمي
#6
اخي البرنامج شغال وليس فيه اي مشكلة
واعدت تنزيله من المرفقات وشغتله كالمعتاد
حتى اتأكد من المرفقات
وهذه صورة بزمن التشغيل


الملفات المرفقة صورة/صور
   
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#7
حاولت اكثر من مرة لم انجح في فتح البرنامج تظهر الرسالة نفسها

نشكركم على تعاونكم اخي العزيز الرسالة اختفت لكن ظهرة مرة أخرى نفس الرسالة في السطر 29
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , الحازمي
#8
السلام عليكم اخي الكريم
اريد ان اسألك هل تشغل المثال المرسل ام قمت بنقل الاكواد؟
ان قمت بنقل الاكواد على مشروع جديد تأكد انك لم تنس شيئا
وهذا هو كامل الكلاس
كود :
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 Class

اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: الحازمي , عبد العزيز البسكري
#9
لا لم اقم بنقله بل قمت بتشغيل نفس البرنامج المرسول منقبلكم
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , الحازمي
#10
جزيت خيرا تم التشغيل
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , الحازمي



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم