PDA

View Full Version : مبتدی: جدا کردن ساعت ودقیقه از هم



m3raj_3
شنبه 21 آبان 1390, 10:18 صبح
یه تکست دارم که 22:30 توش نوشته
میخ.ام 22 رو جدا بده بهم تو یه متغیر
30 هم جدا
میدونم اسونه اما خوب ...

mohammadriano
شنبه 21 آبان 1390, 13:18 عصر
سلام
شما از توابع قدرتمند left و right استفاده کنید

dim b as string
dim a as string
dim c as string
a =textbox1.text
b = right$(a,2) 'o
c = left$(a,2) 'o



خب c ساعت رو جدا می کنه b هم دقیقه
موفق باشی

alimanam
شنبه 21 آبان 1390, 18:09 عصر
با سلام

به نظر بنده روش زیر بهتر هستش و درصد خطاش صفر خواهد بود !!!! چون دقت کنی ممکنه زمان فرمتش به این صورت باشه 12:3 اون موقع خروجی کد بالا درسته ؟ خیر نیست .

Public Class Form1

Dim tm As String()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
tm = "22:34".Split(New Char() {":"})
Label1.Text = tm(0) ' --> 22
Label2.Text = tm(1) ' --> 34
End Sub

End Class

موفق باشید ./