06-05-22, 09:32 AM
06-05-22, 10:12 AM
(06-05-22, 09:32 AM)حسن الجلب كتب : [ -> ]السلام عليكم ورحمه الله وبركاته عاوز كود لحساب العمر
تفضل اخي لقيت عندي برنامج اذا اعجبك حملة وشوف
تحياتي لك
06-05-22, 03:44 PM
كود :
TextBox1.Text = DateTime.Now.Year - DateTimePicker1.Value.Yearضع تكست بوكس و داتا تايم
و ضع الكود في البوتين
07-05-22, 09:21 AM
تمام ولكن انا عاوز الفرق باليوم والشهر والسنة ولكن حين جربت هذه الطريقه طلعت غلط وارقام بالسالب
07-05-22, 09:27 PM
(07-05-22, 09:21 AM)حسن الجلب كتب : [ -> ]تمام ولكن انا عاوز الفرق باليوم والشهر والسنة ولكن حين جربت هذه الطريقه طلعت غلط وارقام بالسالب
و عليكم السلام و رحمة الله و بركاته
ضع اداة ديت تايم بيكر و بوتن و تاكست بوكس و ضع الكود التالي للبوتن
كود :
Dim yr As Integer = DateDiff(DateInterval.Year, DateTimePicker1.Value, Now)
Dim month As Integer = DateDiff(DateInterval.Month, DateTimePicker1.Value, Now) Mod 12
Dim day As Integer = DateDiff(DateInterval.Day, DateTimePicker1.Value, Now) Mod 30 - 10
TextBox1.Text = "you have :" & yr & " Years / " & month & " Months /" & day & " days "