06-10-12, 01:05 AM
خاصية Durationتنتج هذة الخاصية المدة الزمنية للنسخة الحالية من الفئة TimeSpan حيث يتم التعبير عن هذة المدة بعدد الأيام متبوعا بعدد الساعات والدقائق والثواني والمليثانية.
TextBox17.Text = ts.Duration.ToString
الأساليب الخاصة بالفترات الزمنية الفاصلة
تقوم الاساليب الموضحة أدناة بانشاء كائن TimeSpa جديد لة مدة زمنية محددة ويتم تحديد كل مدة زمنية كعدد من الفترات الفاصلة يتم تقريبها الى أقرب مليثانية .
تقبل الاساليب جميعها وسيطا واحدا عبارة عن قيمة من نوع Double .
FromDays عدد الأيام التي يحددها الوسيط
FromHours عدد الساعات يحددها الوسيط
FromMilliseconds عدد الثواني يحددها الوسيط
FromMinutes عدد الدقائق يحددها الوسيط
FromSeconds عدد الثواني يحددها الوسيط
أمثلة
Dim tsp As TimeSpan
tsp = tsp.Add(System.TimeSpan.FromDays(2))
TextBox21.Text = tsp.ToString
tsp = tsp.Add(System.TimeSpan.FromHours(10))
TextBox20.Text = tsp.ToString
tsp = tsp.Add(System.TimeSpan.FromMinutes(30))
TextBox19.Text = tsp.ToString
tsp = tsp.Add(System.TimeSpan.FromSeconds(500))
TextBox18.Text = tsp.ToString
أسلوب Parse(String)يقوم هذا الاسلوب بانشاء كائن TimeSpan جديد من سلسلة أحرف تستخدم تنسيق TimeSpan وهو عبارة عن الأيام متبوعة بنقطة ثم الساعات والدقائق والثواني ويتم الفصل بينهما باستخدام النقطتين المتوازيتين .
Dim sp As TimeSpan
sp = TimeSpan.Parse("3.12:20:30.500")
TextBox27.Text = sp.ToString
أسلوب Addيقوم هذا الاسلوب باضافة كائن TimeSpan الى النسخة الحالية من الفئة .
Dim ts1, ts3, sp As TimeSpan
ts1 = ts1.Add(System.TimeSpan.FromDays(10))
ts3 = ts1.Add(tsp)
TextBox26.Text = ts3.ToString
أسلوب Subtractيقوم هذا الأسلوب بطرح كائن TimeSpan من النسخة الحالية من الفئة .
Dim ts1, ts4, tsp As TimeSpan
ts4 = ts1.Subtract(tsp)
TextBox25.Text = ts4.ToString
أسلوب CompareToيقارن هذا الأسلوب النسخة الحالية من الكائن TimeSpan بكائن TimeSpan آخر .
Dim ts1, tsp As TimeSpan
TextBox24.Text = ts1.CompareTo(tsp)
ينتج الأسلوب CompareTo القيمة (0) اذا كان الكائنان متساويان والقيمة (-1) إذا كانت النسخة الحالية أطول والقيمة (1) إذا كان الكائن TimeSpan الذي تم تمريره كوسيط أطول.
أسلوب Equalsينتج هذا الأسلوب القيمة True & False التي توضح ما إذا كان اثنان من كائنات TimeSpan تمثلان الفترة الزمنية نفسها.
Dim ts1, tsp As TimeSpan
TextBox23.Text = ts1.Equals(tsp)
أسلوب Negateيقوم هذا الأسلوب بوضع قيمة سالبة للنسخة الحالية من الكائن TimeSpan . حيث يصبح الكائن TimeSpan ذو القيمة الموجبة ( التي تعرض تاريخا مستقبليا عند اضافتة للتاريخ الحالي ) كائنا ذو قيمة سالبة ( تعرض تاريخا قديما عند إضافته إلى التاريخ الحالي .
Dim sp As TimeSpan
TextBox22.Text = sp.Negate.ToString
TextBox17.Text = ts.Duration.ToString
الأساليب الخاصة بالفترات الزمنية الفاصلة
تقوم الاساليب الموضحة أدناة بانشاء كائن TimeSpa جديد لة مدة زمنية محددة ويتم تحديد كل مدة زمنية كعدد من الفترات الفاصلة يتم تقريبها الى أقرب مليثانية .
تقبل الاساليب جميعها وسيطا واحدا عبارة عن قيمة من نوع Double .
FromDays عدد الأيام التي يحددها الوسيط
FromHours عدد الساعات يحددها الوسيط
FromMilliseconds عدد الثواني يحددها الوسيط
FromMinutes عدد الدقائق يحددها الوسيط
FromSeconds عدد الثواني يحددها الوسيط
أمثلة
Dim tsp As TimeSpan
tsp = tsp.Add(System.TimeSpan.FromDays(2))
TextBox21.Text = tsp.ToString
tsp = tsp.Add(System.TimeSpan.FromHours(10))
TextBox20.Text = tsp.ToString
tsp = tsp.Add(System.TimeSpan.FromMinutes(30))
TextBox19.Text = tsp.ToString
tsp = tsp.Add(System.TimeSpan.FromSeconds(500))
TextBox18.Text = tsp.ToString
أسلوب Parse(String)يقوم هذا الاسلوب بانشاء كائن TimeSpan جديد من سلسلة أحرف تستخدم تنسيق TimeSpan وهو عبارة عن الأيام متبوعة بنقطة ثم الساعات والدقائق والثواني ويتم الفصل بينهما باستخدام النقطتين المتوازيتين .
Dim sp As TimeSpan
sp = TimeSpan.Parse("3.12:20:30.500")
TextBox27.Text = sp.ToString
أسلوب Addيقوم هذا الاسلوب باضافة كائن TimeSpan الى النسخة الحالية من الفئة .
Dim ts1, ts3, sp As TimeSpan
ts1 = ts1.Add(System.TimeSpan.FromDays(10))
ts3 = ts1.Add(tsp)
TextBox26.Text = ts3.ToString
أسلوب Subtractيقوم هذا الأسلوب بطرح كائن TimeSpan من النسخة الحالية من الفئة .
Dim ts1, ts4, tsp As TimeSpan
ts4 = ts1.Subtract(tsp)
TextBox25.Text = ts4.ToString
أسلوب CompareToيقارن هذا الأسلوب النسخة الحالية من الكائن TimeSpan بكائن TimeSpan آخر .
Dim ts1, tsp As TimeSpan
TextBox24.Text = ts1.CompareTo(tsp)
ينتج الأسلوب CompareTo القيمة (0) اذا كان الكائنان متساويان والقيمة (-1) إذا كانت النسخة الحالية أطول والقيمة (1) إذا كان الكائن TimeSpan الذي تم تمريره كوسيط أطول.
أسلوب Equalsينتج هذا الأسلوب القيمة True & False التي توضح ما إذا كان اثنان من كائنات TimeSpan تمثلان الفترة الزمنية نفسها.
Dim ts1, tsp As TimeSpan
TextBox23.Text = ts1.Equals(tsp)
أسلوب Negateيقوم هذا الأسلوب بوضع قيمة سالبة للنسخة الحالية من الكائن TimeSpan . حيث يصبح الكائن TimeSpan ذو القيمة الموجبة ( التي تعرض تاريخا مستقبليا عند اضافتة للتاريخ الحالي ) كائنا ذو قيمة سالبة ( تعرض تاريخا قديما عند إضافته إلى التاريخ الحالي .
Dim sp As TimeSpan
TextBox22.Text = sp.Negate.ToString
