- Katılım
- 7 Temmuz 2004
- Mesajlar
- 25
Merhabalar
Çalışmamda kodlarım şu şekilde:
Burada sorunum eğer veri örneğin 1.352,48 şeklinde ise textboxda doğru veriyor.Ama değer örneğin 1.253,20 şeklinde ise sondaki sıfırı tanımıyor ve textboxa 125,32 şeklinde getiriyor.Sondaki sıfırı tanımasını nasıl sağlayabilirim?
Teşekkür ederim.
Çalışmamda kodlarım şu şekilde:
Kod:
Private Function YTLmask(kim)
Dim a
a = Replace(kim, ",", "")
a = Replace(a, ".", "")
If IsNumeric(a) = False Then
YTLmask = ""
ElseIf a < 10 Then
YTLmask = "0,0" & a * 1
ElseIf a < 100 Then
YTLmask = "0," & a * 1
ElseIf a < 1000 Then
If Mid(a, 1, 1) = 0 Then
YTLmask = Mid(a, 2, 1) & "," & Right(a, 2)
End If
If Mid(Right(kim, 2), 1, 1) = "," Then
YTLmask = Mid(a, 1, 1) & "," & Right(a, 2)
End If
If YTLmask Like "*,*" = False Then
YTLmask = Mid(a, 1, 1) & "," & Right(a, 2)
End If
ElseIf a < 10000 Then
YTLmask = Mid(a, 1, 2) & "," & Right(a, 2)
ElseIf a < 100000 Then
YTLmask = Mid(a, 1, 3) & "," & Right(a, 2)
ElseIf a < 1000000 Then
YTLmask = Mid(a, 1, 1) & "." & Mid(a, 2, 3) & "," & Right(a, 2)
ElseIf a < 10000000 Then
YTLmask = Mid(a, 1, 2) & "." & Mid(a, 3, 3) & "," & Right(a, 2)
ElseIf a < 100000000 Then
YTLmask = Mid(a, 1, 3) & "." & Mid(a, 4, 3) & "," & Right(a, 2)
ElseIf a < 1000000000 Then
YTLmask = Mid(a, 1, 1) & "." & Mid(a, 2, 3) & "." & Mid(a, 5, 3) & "," & Right(a, 2)
ElseIf a < 10000000000# Then
YTLmask = Mid(a, 1, 2) & "." & Mid(a, 3, 3) & "." & Mid(a, 6, 3) & "," & Right(a, 2)
Else
YTLmask = Mid(a, 1, 3) & "." & Mid(a, 4, 3) & "." & Mid(a, 7, 3) & "," & Right(a, 2)
End If
End Function
Private Sub TextBox1_Change()
TextBox1.Value = YTLmask(TextBox1.Value)
End Sub
Burada sorunum eğer veri örneğin 1.352,48 şeklinde ise textboxda doğru veriyor.Ama değer örneğin 1.253,20 şeklinde ise sondaki sıfırı tanımıyor ve textboxa 125,32 şeklinde getiriyor.Sondaki sıfırı tanımasını nasıl sağlayabilirim?
Teşekkür ederim.