جدا کردن کاراکتر های یک رشته

[f.shahabadi]

سلام من میخوام ساعت را که بصورت h:mm یا hh:mm ساعت را جدا و دقیقه را جدا ذخیره کنم کسی میدونه چه جوری؟

[nima898]

Dim s = "11:33"
Dim l AsInteger, t1, t2 AsString
l = InStr(s, ":")
t1 = Strings.Left(s, l - 1)
t2 = Strings.Right(s, Len(s) - l)

احتمالا راه اصولی تری داره مثل این:


Dim d As String = "11:33"
Dim st As Date = d
t1 = s.Hour
t2 = s.Minute

[ebrahimv]

اينم يه روش


Dim s() As String = Split("12:20:10", ":")
Dim h As Integer = s(1)
Dim m As Integer = s(2)
Dim s As Integer = s(3)

[ACorvinus]

اينم يه روش


Dim s() AsString = Split("12:20:10", ":")
Dim h AsInteger = s(1)
Dim m AsInteger = s(2)
Dim s AsInteger = s(3)


سلام. ایندکس آرایه از صفر شروع میشه رفیق. موفق باشین.

[ebrahimv]

اشتباه از من بود كد بالا را اصلاح ميكنم


Dim s() As String = Split("12:20:10", ":")
Dim h As Integer = s(0)
Dim m As Integer = s(1)
Dim ss As Integer = s(2)