delphi编程小写金额转换

delphi编程小写金额转换的相关文章

• 
  用Delphi编制金额大写转换程序

  标签：Delphi

    在从事与财务相关的软件开发过程中，通常要求将小写金额转换成相应的大写金额，并打印在大写金额栏中。下面是用Delphi3.0编制的一个转换函数，能够方便的在程序中调用，并返回字符串。 1.定义函数num—str function num—str(ls: Variant): String; var dx—sz,dx—dw,str—int,str—dec,dx—str,fu:string; a,b,b2,c,d:string; num—int,num—dec...[ 查看全文 ]

  最亮的亮星

  371
• 
  小写转大写金额

  标签：SQLServer

    原作在SQL 2000中有一些问题。修正错误并在SQL 2000中运行通过。 /******************************************************** 作者：(wleii165@yahoo.com) 版本：1.0 创建时间：20020227 修改时间： 功能：小写金额转换成大写 参数：n_LowerMoney 小写金额           v_TransType 种类 -- 1: directly ...[ 查看全文 ]

  门兆生

  21
• 
  Excel：人民币小写金额转换大写技巧两则

  标签：办公软件

  要将人民币小写金额转换成大写格式，用Excel提供的格式，将自定义格式类型中的“[dbnum2]G/通用格式”改为“[dbnum2] G/通用格式“元””来实现。但在转换小数时却出现了问题，比如￥6,050.09只能转换为“陆仟零伍拾.零玖圆”。那么用Excel能不能解决这一先天不足呢？其方法有以下两种（以下均对B1转换，假设B1是通过函数ROUND( )四舍五入取得二位小数的小写金额数，其值为￥6,050.09）。 一、在三...[ 查看全文 ]

  ydh41124

  241
• 
  金额大写转换

  标签：编程语言 网络编程

  因为找不到相关函数，便自己写了一个，是仿Excel 金额转换，不限金额长度。 const   NumberArray: array[0..9] of string =     ('零', '壹','貳','叁','肆','伍','陆','柒','捌','玖'); // 数字转与大写 function GetMoneySwitch(AMoney: string): string;   //...[ 查看全文 ]

  其實我很简单

  31
• 
  金额大小写转换的asp完全无错版本

  标签：ASP

    <!--#include file=common.asp-- <% dim tmpnum '从第一张页面传过来的小写金额 tmpnum=request("page1num") '调用并显示大写金额 response.write rmb(cdbl(tmpnum)) response.end % common.asp <% Function rmb(num) num = FormatNumber(num, 2) Dim numList Dim rmbList Dim numLen Dim numChar Dim numstr Dim n Dim n1, n2 Dim hz numList = "零壹贰叁肆伍陆柒捌玖" rmbList = "...[ 查看全文 ]

  雪乡自助游

  171
• 
  Delphi拖放编程

  标签：Delphi

    拖放 (DragDrop)是 Windows 提供的一种快捷的操作方式。作为基于 Windows 的开发工具， Delphi同样支持拖放操作，而且开发应用系统的拖放功能十分方便，真正体现了 Delphi 的强大功能和方便性。 Delphi提供的所有控件 (Control ，即能获得输入焦点的部件 ) 都支持拖放操作，并有相应的拖放属性、拖放事件和拖放方法。下面我们先介绍控件的拖放支持，而后再给出开发拖放操作的一般步骤和应...[ 查看全文 ]

  幸运的洋28

  21
• 
  人民币金额转换例程

  标签：编程语言 网络编程

  '调用方法Text2=ChMoney(Val(Text1)) '名称：CCh '得到一位数字N1的汉字大写 '0返回"" PrivateFunctionCCh(N1)AsString SelectCaseN1 Case0 CCh="零" Case1 CCh="壹" Case2 CCh="贰" Case3 CCh="叁" Case4 CCh="肆" Case5 CCh="伍" Case6 CCh="陆" Case7 CCh="柒" Case8 CCh="捌" Case9 ...[ 查看全文 ]

  qq462282829

  31
• 
  将金额小写转化成汉字大写的实现过程

     自己写的一个比较丑的程序，但做报表时候有用   /********************************************************************   时间：2003.7.31   作者：千里猪   功能：将货币数字（阿拉伯数字）(小写)转化成中文(大写）     参数：Num为字符型,小数点之后保留两位,例：Arabia_to_Chinese("1234.06")   说明：1.目前本转换仅支持到 拾亿（元） 位，金额单位...[ 查看全文 ]

  实事论谈

  181
• 
  Delphi编程技巧集锦

  标签：编程语言 网络编程

  ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL： var xpanel,ypanel,xlabel,ylabel:integer; PANEL的MouseMove事件：xpanel:=x;ypanel:=y; PANEL的DragOver...[ 查看全文 ]

  YeungTimes

  11
• 
  Delphi编程技巧实例

  标签：Delphi

    Delphi作为一门新起的Windows编程语言，由于其集众多的优秀特性于一身，因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能够对Delphi的爱好者有所裨益。 1．类似于vb．中的doevents功能。 大家或许发现，在Delphi中没有类似于vb．中的doevents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的application对象中包括...[ 查看全文 ]

  HFS挑战者

  161
• 
  到亿位的金额小写转大写JS代码

  标签：ASP

    script function DX(n) {     var strOutput = "";     var strUnit = '千百拾亿千百拾万千百拾元角分';     n += "00";     var intPos = n.indexOf('.');     if (intPos = 0)         n = n.substring(0, intPos) + n.substr(...[ 查看全文 ]

  宏吧小昊

  51
• 
  Delphi托盘编程实战演练

  标签：Delphi

  在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函数的原型。 实战演练： 一．新建一个应用程序：File->New Applicaton 在Interface部分定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。 二．定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着...[ 查看全文 ]

  大戈寨

  191
• 
  delphi编程改变图片效果

  标签：编程语言 网络编程

  想不想另图片有另一番效果，使用下列语句实现吧，增加两个TImage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果： procedure TForm1.Button1Click(Sender: TObject);beginImage2.Canvas.Brush.Style := bsCross;Image2.Canvas.CopyMode := cmMergeCopy;Image2.Canvas.Draw(0,0, Image1.Picture.Graphic);end; [ 查看全文 ]

  离水的小鱼66

  01
• 
  Delphi 应用编程实例简介

  标签：Delphi

    1. 控制INI文件几法 要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI文件，所以列了如下方法给大家参考： 从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( 'windows', // []中标题的名字 'NullPort', // =号前的名字 'NIL', // 如果没有找到字符串时，返回的默认值 strResult, //存放取得字符 100, //取得字符的允许最大长度 'c:\forwin95\win.in...[ 查看全文 ]

  尹雪00o

  81
• 
  delphi编程控制壁纸

  标签：编程语言 网络编程

  控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性也好在让我们可以实现定时更换桌面图片功能： var THEPCHAR...[ 查看全文 ]

  CM苏洛格

  11
• 
  Delphi图形图像编程（二）

  标签：Delphi

    直线时，用户只有在松开鼠标才能看见直线，对直线的变化不能进行实时观测。这是因为鼠标移动时程序没有进行某种应。 Delphi 定义了 OnMouseMove事件来响应鼠标移动。以下代码可使用户随时观测直线的变化： procedure TForm1.FormMouseMove(Sender:Tobject) begin Drowto(X,Y); Moveto(origin); end. origin是起始点。 5.2.3 绘图功能的实现 绘图软件常根据用户的要求改变绘图...[ 查看全文 ]

  流年晗

  111
• 
  delphi编程实现检测声卡存在

  标签：编程语言 网络编程

  如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡： procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begini := auxGetNumDevs();if i= thenlabel1.Caption :=系统没有发现声卡;end; [ 查看全文 ]

  尕伍儿

  11
• 
  Delphi编程访问注册表

  标签：Delphi

  注册表是windows系统的一个庞大数据库，它存储着系统硬件、软件及用户信息。适当修改注册表的参数值，可以提高系统的性能。注册表的修改通常有两种途径：其一是利用windows系统提供的"RegEdit"命令进行修改。此种方法虽说直观，但由于注册表的复杂性，对于一般用户来说，此方法并不十分可行。其二就是以编程方式来访问注册表。掌握这种方法，对于程序员来说，是一个重要的基本技术。因为在我们的编程过...[ 查看全文 ]

  翡翠手镯370

  111
• 
  Delphi中API编程－－在Delphi中调用API函数

  标签：Delphi

    Delphi作为一种面向对象的可视化开发工具，以其开发程序的高速度和编译代码的高效率越来越受到广大编程人员的喜爱。尽管Delphi已经提供了非常强大的开发组件（VCL），但灵活使用API函数一定可以使你的程序增色不少。 状态键的检查 当今不少流行软件的编辑窗口（包括Delphi的代码编辑窗口）的底部都有一个状态条用来显示一些状态信息，比如当前光标的位置等。通常键盘的状态键...[ 查看全文 ]

  再不飞就老了

  511
• 
  delphi编程生成非矩形窗口

  标签：编程语言 网络编程

  四四方方的窗体也会变形，利用win32 API函数setwindowrgn就可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子： procedure TPortForm.FormCreate(Sender: TObject);var hr :thandle;beginhr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)setwindowrgn(handle,hr,true); //设置园角窗口end; 为了使该窗口更好，应在onResize事件处理程序放相同的代码...[ 查看全文 ]

  year丑男1987

  11