VB实现数字到中文金额的转换函数
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "不是数字类型"
Exit Function
End If
Dim BasicDWString As String, BasicDW ( ) As String
Dim MoneyDWString As String, MoneyDW ( ) As String
Dim MoneyStr As String, ReturnStr As String, TempStr As String
BasicDWString = "分,角,圆,拾,佰,仟,万,拾,佰,仟,亿,拾,佰,仟,万亿,兆,拾,佰,仟,万,亿"
MoneyDWString = "零,壹,贰,叁,肆,伍,陆,柒,捌,玖"
BasicDW = Split ( BasicDWString, "," )
MoneyDW = Split ( MoneyDWString, "," )
MoneyStr = Format ( NMoney, "0.00" )
MoneyStr = Replace ( MoneyStr, ".", "" )
StrLen = Len ( MoneyStr )
ReturnStr = ""
For X = 0 To StrLen - 1
TempStr = Mid ( MoneyStr, StrLen - X, 1 )
ReturnStr = MoneyDW ( TempStr ) & BasicDW ( X ) & ReturnStr
Next X
&nb
相关文档：
'这里是启动过程[事件互斥就不写了]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'这里是一个线程类。。。随便写啥。。。
类名:BT
'这里是主窗口
Dim cBT as BT
Sub form_Load
'奇怪的问题就在这里...
Set cBT=CreateObject("工程名.BT")
'在L ......
YXOnline已经接近尾声,为了处理一些界面的问题,测试一个C++的DLL
一个函数,用deasambling看C++的代码是没有错误的,但是到了VB,请看
b的返回值是True 不管C++和VB相互键约定True和False各对应为什么数值
这里已经是True了
但那时显示True = True 仍旧不执行第一个Msgbox
直接跳到Else
而如果省略b = True 为 If b Then ......
这几天一直在做一个小的工程,做一个文本阅读器,现在做的已经有三分之二了,从中学习到了很多,对我们以前学习的成果有了更深刻的理解.
VB是一门面向对象的程序设计,我就从面性对象的角度对他做一次总结
把VB中所有的数据,变量,控件都看做一个对象
我们所有的操作都是对对象的操作,让对象去执行某一个功能
大家先看一个例� ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory ......
