以下是引用狐狸爸爸在2012-7-18 17:08:00的发言:
目前可以这样:
CCNumber(2012).Replace("仟","零").replace("零壹拾","壹")
=================================
太简单了吧:
Dim n1 As Integer = 2100
Dim s1 As String = CCNumber(n1)
If n1 Mod 1000 =0 Then
s1=s1.Replace("仟","零零零")
ElseIf n1 Mod 100 =0 Then
s1=s1.replace("仟","零").replace("佰","零")
ElseIf n1 Mod 10 =0 Then
s1=s1.replace("仟零","零").replace("拾","零") '
Else
s1=s1.Replace("仟","").Replace("佰","").Replace("拾","")
End If
Output.Show(s1)