02-10-16, 03:35 AM
يمكنك تحويل النص (إذا لا يحتوي أخطأء) إلى تاريخ بالأمر CDate
ولإضافة زمن يمكنك استخدام احى أو بعض التالي
AddMilliseconds
AddSeconds
AddMinutes
AddHours
AddMonths
AddYears
مثلا لإضافة 10 دقائق للكود السابق
ويمكن إضافة أكثر من نوع زمني في نفس الوقت
كود :
Dim d1 As Date = CDate(Me.TextBox1.Text)ولإضافة زمن يمكنك استخدام احى أو بعض التالي
AddMilliseconds
AddSeconds
AddMinutes
AddHours
AddMonths
AddYears
مثلا لإضافة 10 دقائق للكود السابق
كود :
Dim d2 As Date = d1.AddMinutes(10)ويمكن إضافة أكثر من نوع زمني في نفس الوقت
كود :
Dim d2 As Date = d1.AddMinutes(10).AddHours(1)
