仓酷云

标题: ASP网站制作之金额转换算法 [打印本页]

作者: 谁可相欹 时间: 2015-1-16 22:47
标题: ASP网站制作之金额转换算法
在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。换算|金额|算法|转换PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click

DimstrAsString
str=Me.TextBox1.Text.Trim
DimisfsAsBoolean
IfLeft(str,1)="-"Then
isfs=True
str=str.Remove(0,1)
Else
isfs=False
EndIf
DimstrpointAsString
Dimpoint()AsString
DimjAsInt16
Dimjj()AsString
DimjjjAsString
jjj=""
Ifstr.IndexOf(".")-1Then
point=Split(str,".",-1,CompareMethod.Text)
str=point(0)
strpoint=point(1)
ReDimjj(strpoint.Length-1)
Forj=0Tostrpoint.Length-1
jj(j)=Left(strpoint,1)
strpoint=Right(strpoint,strpoint.Length-1)
jjj=jjj+convert(jj(j))
Next
EndIf
DimstrcodeAsString
strcode=""
Whilestrcode.Length<=str.Length
strcode=strcode&"2345"&"2346"
EndWhile
strcode="1"&strcode
strcode=Left(strcode,str.Length)
DimiAsInt16
Dima()AsString
Dimstrcode1AsString
DimcountstrAsInt16
Dimstrcode2AsString
countstr=strcode.Length
ReDima(strcode.Length-1)
Fori=0Tocountstr-1
a(i)=Right(strcode,1)
strcode=Left(strcode,strcode.Length-1)
strcode1=strcode1&a(i)
strcode2=strcode2&","&Mid(str,i+1,1)&Mid(strcode1,i+1,1)
Next
strcode2=Right(strcode2,strcode2.Length-1)
Dimnewstr()AsString
newstr=Split(strcode2,",",-1,CompareMethod.Text)
DimiiAsInt16
DimlaststrAsString
Dimstrcode3AsString
DimleftstrAsString
DimrightstrAsString
Forii=0Tonewstr.Length-1
strcode3=newstr(ii)
leftstr=Left(strcode3,1)
rightstr=Right(strcode3,1)
rightstr=Replace(rightstr,rightstr,convert2(rightstr))
leftstr=Replace(leftstr,leftstr,convert(leftstr))
Ifleftstr="零"And(rightstr="拾"Orrightstr="佰"Orrightstr="仟")Then
rightstr=""
EndIf
Ifleftstr="零"And(rightstr="万"Orrightstr="亿")Then
leftstr=""
EndIf
strcode3=leftstr&rightstr
laststr=laststr&strcode3
Next
Whilelaststr.IndexOf("佰零万")-1
laststr=laststr.Replace("零万","万")
EndWhile
Whilelaststr.IndexOf("仟零零万")-1
laststr=laststr.Replace("零零万","万")
EndWhile
Whilelaststr.IndexOf("零万")-1
laststr=laststr.Replace("零万","零")
EndWhile
Whilelaststr.IndexOf("零亿")-1
laststr=laststr.Replace("零亿","亿")
EndWhile
Whilelaststr.IndexOf("零零")-1
laststr=laststr.Replace("零零","零")
EndWhile
WhileRight(laststr,1)="零"
laststr=Left(laststr,laststr.Length-1)
EndWhile
Ifisfs=TrueThen
laststr="负"&laststr
EndIf
Ifjjj=""Then
TD2.InnerHtml=laststr
Else
Iflaststr=""Then
TD2.InnerHtml="零点"&jjj
Else
TD2.InnerHtml=laststr&"点"&jjj
EndIf
EndIf

EndSub

Functionconvert(ByValnumAsString)
SelectCasenum
Case"1"
convert="壹"
</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天

作者: 山那边是海 时间: 2015-1-19 23:40
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 精灵巫婆 时间: 2015-1-27 21:24
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 深爱那片海 时间: 2015-2-5 10:47
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作者: 第二个灵魂 时间: 2015-2-11 09:26
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

作者: 分手快乐 时间: 2015-3-2 08:43
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

作者: 变相怪杰 时间: 2015-3-11 02:42
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 小妖女 时间: 2015-3-17 19:10
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 愤怒的大鸟 时间: 2015-3-24 21:25
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

欢迎光临仓酷云 (http://ckuyun.com/)