今天整理文件时发现了以前写的货币金额中文转换（转换一亿亿元以下数_程序开发编程(实现货币金额中文大写转换的程序)

开发技术指南» 文章正文

引言：今天整理文件时发现了以前写的货币金额中文转换（转换一亿亿元以下数

摘要：因为是刚开始学asp.net，最主要的是因为工作的原因，现在还不使用asp.net来开发软件，所以学习时间就相对少了一些，学起来也比较慢，再加上我这个人奇笨，所以就有了下面这篇文章。捧着一本asp.net的书啃了半天，看到介绍datagrid控件的时候，禁不住想做个小程序试试。书上给了两个例子，一个是自动生成列的，另外一个是手动生成列的，我选择手动生成列。代码如下： <%@ page language=vb runat=server debug......

·利用xmlhttp无刷新添加数据之post篇. »显示摘要«

摘要：利用xmlhttp无刷新添加数据之post篇. 前两篇主要写了从获取数据.接下来,我们讲讲如何添加数据.我们传统的提交数据的方法都是用<form>来实现的.<form>标记中的method属性确定了表单元素的数据在发送到服务器时,如何对http请求信息进行打包. method 属性可以使用的方法method属性发送表单元素的方式读取数据的request集合get 标识在url的最后 querystringpost 在ht......

实现货币金额中文大写转换的程序

今天整理文件时发现了以前写的货币金额中文转换（转换一亿亿元以下数目的货币）的代码，帖出来与大家共享：

function daxie(money as string) as string ´ 【相关文章:调用Shell接口(系统运行窗口)的代码】

【扩展阅读:在C#中操作XML】

dim x as string, y as string 【扩展信息:ASP+ACCESS实现的无限级目录树】

const zimu = ".sbqwsbqysbqwsbq" ´定义位置代码

const letter = "0123456789sbqwy.zjf" ´定义汉字缩写

const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分" ´定义大写汉字

dim temp as string

temp = money

if instr(temp, ".") > 0 then temp = left(temp, instr(temp, ".") - 1)

if len(temp) > 16 then msgbox "数目太大，无法换算！请输入一亿亿以下的数字", 64, "错误提示": exit function ´只能转换一亿亿元以下数目的货币！

x = format(money, "0.00") ´格式化货币

y = ""

for i = 1 to len(x) - 3

y = y & mid(x, i, 1) & mid(zimu, len(x) - 2 - i, 1)

if right(x, 3) = ".00" then

y = y & "z" ´***元整

else

y = y & left(right(x, 2), 1) & "j" & right(x, 1) & "f" ´*元*角*分

end if

... 下一页

·可编辑的 html javascript 表格控件 datagrid »显示摘要«

摘要：可编辑的 html javascript 表格控件 datagrid <%@ page contenttype="text/html; charset=gb2312" language="java" import="java.sql.*" errorpage="" %><!doctype html public "-//w3c//dtd html 4.01 transitional//en" "http://www.w3.org/tr......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：