(****Value是要转换的十进制数，Count是输出的二进制位数，默认32位****) function IntToBin(Value: Integer; Count: Integer=32): string; var iTemp: Integer; begin Result := ''; while Count0 do begin iTemp := Value shr (Count-1) and 1; case iTemp of 1: Result := Result+'1'; 0: Result := Result+'0'; end; Dec(Count); end; end; 自己写的，不知有否漏洞，测试了一下 ShowMessage(IntToBin(-1,8)); //输出11111111 ShowMessage(IntToBin(333333)); //输出00000000000001010001011000010101
<% dim a '要转换成大写的金额 dim atoc '转换之后的值 Dim String1 '如下定义 Dim String2 '如下定义 Dim String3 '从原A值中取出的值 Dim I '循环变量 Dim J 'A的值乘以100的字符串长度 Dim Ch1 '数字的汉语读法 Dim Ch2 '数字位的汉字读法 Dim nZero '用来计算连续的零值是几个 String1 = "零壹贰叁肆伍陆柒捌玖" String2 = "万仟佰拾...
JS教程：日期格式转换函数。 script function str2date(str){ var d=null; var reg=/^(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})\.(\d+)$/ if(arr=str.match(reg))d=new Date...
