18-07-19, 04:07 PM
18-07-19, 05:49 PM
السلام عليكم اخي الكريم
تفضل هذا مثال لحساب العمر
18-07-19, 08:31 PM
مشكور اخي العزيز بس كنت اريده بالتكست مفصل اليوم في تكست والشهر في تكست والسنة في تكست مثل المثال في الصورة المرفقة
18-07-19, 09:16 PM
السلام عليكم اخي الكريم
تفضل مثال لما تريد
19-07-19, 12:37 AM
19-07-19, 12:51 AM
اخي البرنامج شغال وليس فيه اي مشكلة
واعدت تنزيله من المرفقات وشغتله كالمعتاد
حتى اتأكد من المرفقات
وهذه صورة بزمن التشغيل
19-07-19, 09:34 AM
حاولت اكثر من مرة لم انجح في فتح البرنامج تظهر الرسالة نفسها
نشكركم على تعاونكم اخي العزيز الرسالة اختفت لكن ظهرة مرة أخرى نفس الرسالة في السطر 29
نشكركم على تعاونكم اخي العزيز الرسالة اختفت لكن ظهرة مرة أخرى نفس الرسالة في السطر 29
19-07-19, 11:49 AM
السلام عليكم اخي الكريم
اريد ان اسألك هل تشغل المثال المرسل ام قمت بنقل الاكواد؟
ان قمت بنقل الاكواد على مشروع جديد تأكد انك لم تنس شيئا
وهذا هو كامل الكلاس
كود :
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
19-07-19, 11:57 AM
لا لم اقم بنقله بل قمت بتشغيل نفس البرنامج المرسول منقبلكم
19-07-19, 12:04 PM
جزيت خيرا تم التشغيل