delphi货币转数字
⑴ 请各位用delphi帮忙编写一个人民币大小写转换函数
我不会用DELPH写,会用别的语言写
⑵ Delphi中将字符串和数字之间相互转换的函数,具体使用方法及格式(举个例子,要说明数据类型等)
整数到字符串 IntTostr() 字符串＝IntTostr(整数)
字符串到整数 strToInt()
字符串到小数 StrToFloat()
小数到字符串 FloatToStr()
⑶ delphi中如何实现数字大小写转换.不要人民币金额转换的.
const
S1='壹';
S2='贰';
S3='叁';
S4='肆';
var
Str: String;
i: integer;
begin
Str:='1234';
edit1.Text:=str;
for i:=1 to length(str) do
case Str[i] of
'1': label1.Caption:=S1;
'2': label2.Caption:=S2;
'3': label3.Caption:=S3;
'4': label4.Caption:=S4;
end;
怎么没悬赏分的。
⑷ Excel 怎样用公式把货币转化成数值用
一、用公式将文本数字转成数值：
假设文本数据写在A1单元格，则可以在B1单元格写入以下任一个公式
公式一
=A1*1
公式二
=A1、1
公式三
=A1+0
公式四
=A1-0
公式五
=--A1
公式六
=VALUE(A1)
二、把文本数值在原单元格直接转换成数值：
方法一
选中单元格----右键----设置单元格格式---改"文本"为"常规"格式---再进入单元格回车确认.如果是大批量的单元格是文本格式的数值,则要一个一个的进入单元格进行回车确认,所以很不方便.
方法二
选中一个空单元格----右键----复制----再选中文本格式所在的单元格和单元格区域----右键----选择性粘贴---加---确定.这样就是通过运算的方法使选中的单元格或单元格区域进行加0处理使其转为常规数字的方式.
方法三
选中文本格式数值所在的单元格或单元格区域------在选中的单元格或单元格区域旁会出现一个选项图标----点击会出现选项菜单----选择"转为数字"
⑸ delphi 阿拉伯数字转化成中文数字
数要小于1亿，代码如下，供参考：
var
n:longint;
a:array[1..8]ofinteger;
b:array[1..8]ofstring;
i,k,m:integer;
s,st:string;
procereinsert(varm:integer;x:integer);
begin
ifm=0thena[1]:=xelsea[m+1]:=x;
inc(m);
end;
begin
n:=83007305;
{readln(n);}
m:=0;
b[1]:='';b[2]:='十';b[3]:='百';b[4]:='千';b[5]:='万';
b[6]:='十';b[7]:='百';b[8]:='千';
whilen>0dobegin
insert(m,nmod10);
n:=ndiv10;
end;
s:='';
fori:=mdownto1dobegin
str(a[i]:0,st);
k:=length(s);
ifi<>5then
ifa[i]=0thenbegin
if(s,k-1,2)<>'零'thens:=s+'零';
endelses:=s+st+b[i];
ifi=5then
ifa[i]=0thenbegin
if(s,k-1,2)<>'零'thens:=s+'万'
elses:=(s,1,k-2)+'万';
endelses:=s+st+b[i];
end;
if(s,length(s)-1,2)='零'thens:=(s,1,length(s)-2);
writeln(s);
end.
⑹ excel表格里如何将数字转换成货币数字
将数字转换为货币数字，其实就是将数值单元格格式设置为货币格式。依次步骤为：
选中需要设置的单元格，鼠标右击选择单元格格式
出现单元格格式对话框，点击数字选项卡（一般默认数字选项卡激活）
点击会计专用，按自己的需求选择货币符号以及小数点位数，然后确定
如下图具体录制的操作：
⑺ delphi 如何把标准格式的数字字符串转换为数字
str := '1,350';
str := stringreplace(str, ',','',[rfReplaceAll]);
i := strtointDef(str, 0);
⑻ Delphi 文字转换成数字
你如果再EIDT1.TEXE里输入姓名肯定会报错了！你用了一个转换函数了！楼上的基本正解但要去掉 num:=strToint(Edit1.Text);
⑼ c#将数字转换为货币格式
int i = 60000;
string d=i.ToString("c");
⑽ delphi 中怎么把字符串转化成数字
用函数strtofloat