vb341
دوشنبه 02 آذر 1394, 09:05 صبح
با درود خدمت اساتید محترم . برای کد وی بی نمونه زیر معادل #C رو میخوام . لطفا راهنمایی بفرمایید
Public Function Mask_Tarikh(ByVal Sender As TextBox) As String
Dim DateString As String = Sender.Text
Dim t As String = Replace(DateString, "/", "")
Dim L As Integer = Len(t)
If DateString.Length >= 10 Then
Select Case L
Case 4 '1389
Mask_Tarikh = VB.Left(t, 4)
Case 5 '13890
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 1)
Case 6 '138905
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 2)
Case 7 '1389050
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 1)
Case 8 '13890501
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 2)
Case Else
Mask_Tarikh = DateString
End Select
Else
Select Case L
Case 4 '1389
Mask_Tarikh = VB.Left(t, 4)
Case 5 '13890
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 1)
Case 6 '138905
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 2)
Case 7 '1389050
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 1)
Case 8 '13890501
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 2)
Case Else
Mask_Tarikh = DateString
End Select
End If
Sender.Text = Mask_Tarikh
SendKeys.SendWait("{End}")
Return Mask_Tarikh
End Function
Public Function Mask_Tarikh(ByVal Sender As TextBox) As String
Dim DateString As String = Sender.Text
Dim t As String = Replace(DateString, "/", "")
Dim L As Integer = Len(t)
If DateString.Length >= 10 Then
Select Case L
Case 4 '1389
Mask_Tarikh = VB.Left(t, 4)
Case 5 '13890
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 1)
Case 6 '138905
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 2)
Case 7 '1389050
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 1)
Case 8 '13890501
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 2)
Case Else
Mask_Tarikh = DateString
End Select
Else
Select Case L
Case 4 '1389
Mask_Tarikh = VB.Left(t, 4)
Case 5 '13890
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 1)
Case 6 '138905
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Right(t, 2)
Case 7 '1389050
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 1)
Case 8 '13890501
Mask_Tarikh = VB.Left(t, 4) & "/" & VB.Mid(t, 5, 2) & "/" & VB.Right(t, 2)
Case Else
Mask_Tarikh = DateString
End Select
End If
Sender.Text = Mask_Tarikh
SendKeys.SendWait("{End}")
Return Mask_Tarikh
End Function