else数字货币

❶ 帮忙解下题

① ch[j]!='\0'
② ch[j]>='a' && ch[j]<='z'
③ ('a'-'A')
④ p=a
⑤ p
⑥ a[i]
⑦ max=person[i].age ;
⑧ %s %d

❷ select case when a.currencycode = 'USD' then '$' else '￥' end as '金额'怎么把amount字段加到货币符号

请问下，你是在专门用命令读取数据库，还是在写程序？
要是专门用命令读取数据库的话，我还真不知道，请您再去网络，或者google一下，
要是写程序的话，可以将此数据用字符串的形式存储，
要是后头要参与计算的话，这样会很麻烦，建议还是存储数字，你可以再建一个字段，专门来存放“￥”，“$”，到时用的时候在前台拼接就行

❸ EXCEL表格汇总时货币怎样自然生成大写元角分整

=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[>0][dbnum2];[<0]负[dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")

自定义单元格格式为
[DBNum2][$-804]yyyy"年"mm"月"dd"日"

❹ 在Excel2000忠如何将数字转换成人民币大写

我给你一个方法将此复制下来粘贴到Excel单元格内就可以了。
=IF(ROUND(A5,2)<0,"无效数值","人民币"&IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))

还有以下方法：Excel将小写金额转换成人民币的大写金额

1、如何自定义：

打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我就填"中文大写",确定OK!然后回到EXCEL,工具--加载宏-找到"中文大写",打勾确定,我们这个自定义函数就可以象内置函数样使用了!--->=rmbdx(123456.78),爽吧!

2、例子:

A、直接在函数内输入数值的（请注意参数的用法，默认用法是不用输入）
=rmbdx(123456.78)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,0)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,1)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(56.78)--->伍拾陆元柒角捌分
=rmbdx(0.78)--->柒角捌分
=rmbdx(0.784)--->柒角捌分
=rmbdx(0.785,1)--->柒角玖分
=rmbdx(0.02,1)--->贰分
B、引用某单元格数值进行转换的
假设你的D3单元格的数据（也可以是求和或其它公式得出的结果）需要转换，大写格式放在D4单元格，则D4输入公式：=rmbdx(d3)即可
C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象内置函数，请灵活使用

3、源代码：

Functionrmbdx(value,Optionalm=0)
’中文大写源代码,By对面男孩、redwin
’支持负数,支持小数点后的第三位数是否进行四舍五入处理
’默认参数为0,即不将小数点后的第三位数进行四舍五入处理
’2002-10-11--2002-10-13
OnErrorResumeNext
Dima
DimjfAsString’定义角分位
Dimj’定义角位
Dimf’定义分位
Ifvalue<0Then’处理正负数的情况
a="负"
Else
a=""
EndIf

IfIsNumeric(value)=FalseThen’判断待转换的value是否为数值
rmbdx="需转换的内容非数值"
Else
value=Abs(CCur(value))
’当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理
’当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理
Ifm=0Then
jf=Fix((value-Fix(value))*100)
value=Fix(value)+jf/100
Else’厘位进行四舍五入实践很少用到,但还是要照顾到
value=Application.WorksheetFunction.Round(value,2)’-->这句是关键!只用round有bug
jf=Round((value-Fix(value))*100,0)
EndIf
Ifvalue=0Orvalue=""Then’当待转换数值为0或空时,不进行转换
rmbdx=""
Else
strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"元"’转换整数位
IfInt(value)=0Then
strrmbdx=""
EndIf
IfInt(value)<>valueThen
Ifjf>9Then’判断小数位
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf

Ifj<>0Andf<>0Then’角分位都有时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角"_
&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
’处理出现零几分的情况
IfInt(value)=0Andj=0Andf<>0Then
jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Ifj=0Then’有分无角时
jf="零"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Iff=0Then’有角无分时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角整"
EndIf
EndIf
EndIf
EndIf
strrmbdx=strrmbdx&jf’组装
Else
strrmbdx=strrmbdx&"整"
EndIf

rmbdx=a&strrmbdx’最后成型了,各位MM满意了吧
EndIf
EndIf
EndFunction

❺ 在excel中怎么把数字的金额转换成中文大写的例如：¥123.23，转换成壹佰贰拾叁元贰角叁分

假如123.23在a1，在b1放大写，则b1=IF(OR(A1<=0,COUNTBLANK(A1)),"",TEXT(INT(A1),"[dbnum2]")&IF(INT(A1)=A1,"元整","元")&IF(INT(A1)=A1,"",TEXT(--RIGHT(INT(A1*10)),IF(--RIGHT(INT(A1*100))>0,"[=0]零;[dbnum2]#角","[dbnum2]#角;;;"))&TEXT(--RIGHT(A1*100),"[dbnum2]#分;;;")))

❻ pascal币值转换（在10分钟内速回）！！！

提供思路（数的读法）供参考。
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:=91110800;}
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.

❼ JQUERY 一个文本框，限制只能输入百分比或者货币类型

<scripttype="text/javascript"src="js/jquery.1.8.3.min.js"></script>
<scripttype="text/javascript">
$(function(){
//文本框只能输入数字(不包括小数)，并屏蔽输入法和粘贴
$.fn.integer=function(){
$(this).css("ime-mode","disabled");
this.bind("keypress",function(e){
varcode=(e.keyCode?e.keyCode:e.which);//兼容火狐IE
if(!$.browser.msie&&(e.keyCode==0x8)){//火狐下不能使用退格键
return;
}
returncode>=48&&code<=57;
});
this.bind("paste",function(){
returnfalse;
});
this.bind("keyup",function(){
if(/(^0+)/.test(this.value)){
this.value=this.value.replace(/^0*/,'');
}
});
};

//文本框只能输入数字(包括小数)，并屏蔽输入法和粘贴
$.fn.number=function(){
$(this).css("ime-mode","disabled");
this.bind("keypress",function(e){
varcode=(e.keyCode?e.keyCode:e.which);//兼容火狐IE
if(!$.browser.msie&&(e.keyCode==0x8)){//火狐下不能使用退格键
return;
}
if(this.value.indexOf(".")==-1){
return(code>=48&&code<=57)||(code==46);
}else{
returncode>=48&&code<=57
}
});
this.bind("paste",function(){
returnfalse;
});
this.bind("keyup",function(){
if(this.value.slice(0,1)=="."){
this.value="";
}
});
this.bind("blur",function(){
if(this.value.slice(-1)=="."){
this.value=this.value.slice(0,this.value.length-1);
}
});
};
});
</script>

❽ word VBA解决数字变货币形式

如A1为数据,在B1中输入下列公式
=IF(A1<0,"负","")&IF(TRUNC(ROUND(A1,2))=0,"",TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"圆")&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&"角"&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"","")&"分"

❾ javascript有没有提供将数字格式化为货币形式

<script>
function outputMoney(number)
{
number=number.replace(/,/g,"");
if (number=="") return "";
if(number<0)
return '-'+outputDollars(Math.floor(Math.abs(number)-0) + '') + outputCents(Math.abs(number) - 0);
else
return outputDollars(Math.floor(number-0) + '') + outputCents(number - 0);
}
function outputDollars(number)
{
if (number.length<= 3)
return (number == '' ? '0' : number);
else
{
var mod = number.length%3;
var output = (mod == 0 ? '' : (number.substring(0,mod)));
for (i=0 ; i< Math.floor(number.length/3) ; i++)
{
if ((mod ==0) && (i ==0))
output+= number.substring(mod+3*i,mod+3*i+3);
else
output+= ',' + number.substring(mod+3*i,mod+3*i+3);
}
return (output);
}
}
function outputCents(amount)
{
amount = Math.round( ( (amount) - Math.floor(amount) ) *100);
return (amount<10 ? '.0' + amount : '.' + amount);
}
</script>

补充：JavaScript一种直译式脚本语言，是一种动态类型、弱类型、基于原型的语言，内置支持类型。它的解释器被称为JavaScript引擎，为浏览器的一部分，广泛用于客户端的脚本语言，最早是在HTML（标准通用标记语言下的一个应用）网页上使用，用来给HTML网页增加动态功能。

❿ 12个金币,其中有个假币,称3次,怎样称

根据真假金币的重量不同来解决方案.如果找出其中一个重量不一样的,就是假币.

分三组:每组四个,第一组编号1-4，第二组5-8，第三组9-12.
第一次称：天平左边放第一组，右边放第二组。

A 第一种可能：平衡。则不同的在第三组。
接下来可以在左边放第9、10、11号，右边放1、2、3号三个正常的。
a.如果平衡，则12号是不同的;
b.如果左重右轻，则不同的在9、10、11号中，而且比正常球重。再称一次：9放左边，10放右边，如果平衡，则11号是不同的；如果左重右轻，则9号是不同的，如果右重左轻，则10号是不同的。
c.如果左轻右重，道理同b

B 第二种可能：左重右轻，则不同的在1-8号中，但不知比正常的轻还是重。
第二次称：左边放1、2、5号，右边放6、9、3号。
a.如果平衡。则不同的在4、7、8中。可以称第三次：左边放4、7，右边放9、10。如果平衡，则8是不同;如果左重右轻，则4是不同；如果左轻右重，则7是不同。
b.仍然左重右轻。则不同的在位置没有改变的1、2、6中。可以称第三次：左边放1、6，右边放9、10。如果平衡，则2是不同; 如果左重右轻，则1是不同;如果左轻右重，则6是不同。
c：左轻右重。则不同的在5、3、中，因为只有它们改变了原来的位置。可以称第三次：左放5，3，右放9，10。如果左轻右重，则5是不同，如果左重右轻，则3是不同。

C 第三种可能：左轻右重，道理同B

至此，不论发生任何情况，称三次都可以找出不同，而且知道比正常的轻了还是重了。