ערכתי לאחרונה בתאריך 05.10.05 בשעה 19:25 בברכה, jossepe_4u
לא בעיה לרשום קוד קצר...
Dim Len1 As Integer Len1 = Len(Text1.Text) ' מחזיר את אורך המספר שהמשתמש הקיש If Len1 = 3 Then Label1.Caption = Left(Text1.Text, 1) & ":" & Right(Text1.Text, 2) ElseIf Len1 = 4 Then Label1.Caption = Left(Text1.Text, 2) & ":" & Right(Text1.Text, 2) Else MsgBox "הקש שעה ב3 או 4 ספרות! " End If
|
ואתה יכול להוסיף גם פונקציה לבדיקת תקינות "השעה"
