成都创新互联网站制作重庆分公司

vb点虐 数值转换 vb60转net

VB.NET 数值怎么转换为字体

可以使用GetItemText

创新互联是一家专业提供德阳企业网站建设,专注与网站建设、成都网站建设H5页面制作、小程序制作等业务。10年已为德阳众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。

方法:返回指定项的文本表示形式。使用形式如下:

GetItemText(item)

VB.NET的数据类型转换方式主要有哪几种?

CType 函数

任何数据类型

必须在两种数据类型之间定义扩大转换或收缩转换

引发 InvalidCastException

DirectCast

任何数据类型

一个类型必须继承自或者实现另一个类型

引发 InvalidCastException

TryCast

仅引用类型

一个类型必须继承或者实现另一个类型

返回 Nothing (Visual Basic)

vb点虐 如何把大写金额转换成阿拉伯数字金额?

Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '转换小数位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '转换整数位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '显示大写

End Sub


当前文章:vb点虐 数值转换 vb60转net
网站URL:http://cxhlcq.com/article/ddsdjgs.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部