中国DOS联盟

正确填写票据和结算凭证的基本规定

　　银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载帐务的会计凭证，是记载经济业务和明确经济责任的一种书面证书。因此，填写票据和结算凭证，必须做到标准化、规范化，要要素齐全、数字正确、字迹清晰、不错漏、不潦草，防止涂改。
　　一、中文大写金额数字应用正楷或行书填写，如壹（壹）、贰（貳）、叁（參）、肆（肆）、伍（伍）、陆（陸）、柒、捌、玖、拾、佰、仟、万（萬）、亿、元、角、分、零、整（正）等字样。不得用一、二（两）、三、四、五、六、七、八、九、十、念、毛、另（或０）填写，不得自造简化字。如果金额数字书写中使用繁体字，如贰、陆、亿、万、圆的，也应受理。
　　二、中文大写金额数字到“元”为止的，在“元”之后，应写“整”（或“正”）字，在“角”之后可以不写“整”（或“正”）字。大写金额数字有“分”的，“分”后面不写“整”（或“正”）字。
　　三、中文大写金额数字前应标明“人民币”字样，大写金额数字有“分”的，“分”后面不写“整”（或“正”）字。
　　四、中文大写金额数字前应标明“人民币”字样，大写金额数字应紧接“人民币”字样填写，不得留有空白。大写金额数字前未印“人民币”字样的，应加填“人民币”三字。在票据和结算凭证大写金额栏内不得预印固定的“仟、佰、拾、万、仟、佰、拾、元、角、分”字样。
　　五、阿拉伯小写金额数字中有“０”时，中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。举例如下：
　　（一）阿拉伯数字中间有“０”时，中文大写金额要写“零”字。如￥１，４０９．５０，应写成人民币壹仟肆佰零玖元伍角。
　　（二）阿位伯数字中间连续几个“０”时，中文大写金额中间可以只写一个“零”字。如￥６，００７．１４，应写成人民币陆仟零柒元壹角肆分。
　　（三）阿拉伯金额数字万位或元位是“０”，或者数字中间连续有几个“０”，万位、元位也是“０”，但千位、角位不是“０”时，中文大写金额中可以只写一个零字，也可以不写“零”字。如￥１，６８０．３２，应写成人民币壹仟陆佰捌拾元零叁角贰分，或者写成人民币壹仟陆佰捌拾元叁角贰分；又如￥１０７，０００．５３，应写成人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。
　　（四）阿拉伯金额数字角位是“０”，而分位不是“０”时，中文大写金额“元”后面应写“零”字。如￥１６，４０９．０２，应写成人民币壹万陆仟肆佰零玖元零贰分；又如￥３２５．０４，应写成人民币叁佰贰拾伍元零肆分。
　　五、阿拉伯小写金额数字前面，均应填写人民币符号“￥”（或草写：￥）。阿拉伯小写金额数字要认真填写，不得连写分辩不清。

::code by youxi01@cn-dos.net

::date 2006-1-1(Happy new year!best wishes to everyone!)

@echo off

setlocal enabledelayedexpansion

set /a a=0,b=0,c=0



::================================

::设置单位名称；

SET NAME0=仟

SET NAME1=佰

SET NAME2=拾

SET NAME3=

::================================



::=============================================

::设置数字对应的大写中文汉字

for %%i in (零 壹 贰 叁 肆 伍 陆 柒 捌 玖) do (

     set BIG!a!=%%i

     set /a a+=1)

::=============================================



::=======================================================================

::在以下“函数”的处理过程中，要用到"#"对数字进行对齐(都成四位)，以便截取；

::这里设置凡是出现"#"的地方都设置为空。

set BIG#=

::=======================================================================



set EN=



::====================================================

::这里对输入的数字进行处理，分别取出整数部分和小数部分;



set /p EN=请输入金钱数(1000亿以内)：

for /f "tokens=1,2* delims=." %%i in ("%EN%") do (

      set "round=%%i"

      set "dec=%%j00" 2>nul)

::=====================================================

set /a round=%round:,=%

set dec=%dec:~0,2%



:test

   set /a b+=1

   ::=============================================

   ::每四位数字为一组，对原来的数据进行截取；

   if %round% gtr 9999 (

      set num!b!=!round:~-4!

      set round=!round:~0,-4!

      goto :test) else set num!b!=!round!

   ::==============================================



::=====================================================

::分别对1、2、3段数据进行处理；分别赋予单位：元、万、亿

::同时，分别将返回的数据传给str1,str2,str3(利用%3来控制)。

call :test1 %num1% 元 1

call :test1 %num2% 万 2

call :test1 %num3% 亿 3

::======================================================



::====================================================================

::去掉数字大写里多余的"零"。比如，1002，处理后读出来为："壹千零贰元整"

::符合我们中国人一般的读数方法;同时将结果分别传入str1,str2,str3(%2控制)。

call :test2 %str1% 1

call :test2 %str2% 2

call :test2 %str3% 3

::=====================================================================



::==============================================================

::防止类似2,0000,1002.00形式出现错误(错误读为：2亿万1千零2元整)

if "!str2!"=="零万" set str2=零

::===============================================================



set str=%str3%%str2%%str1%

set str=%str:零元=元%

set str=%str:零万=万%

set str=%str:零亿=亿%



::防止整数部分为0；

if "%str%"=="元" set str=零元



::对小数部分数字进行处理；

if "%dec%"=="00" (set dec=整) else (

    set /a dec1=!dec:~0,1!

    set /a dec2=!dec:~1,1!

    if !dec1! EQU 0 (set dec1=零) else call set dec1=%%BIG!dec1!%%角

    if !dec2! EQU 0 (set dec2=) else call set dec2=%%BIG!dec2!%%分

    set dec=!dec1!!dec2!

)

echo.

echo ========================

echo 你输入的金钱数目大写为：

echo.

echo %str:零零=零%%dec%

echo ========================

pause>nul



:test1

    if not "%1"=="" (

        set temp=####%1

        set temp=!temp:~-4!

        for /l %%i in (0 1 3) do (

               set tmp%%i=!temp:~%%i,1!

               if defined tmp%%i (

                  if !tmp%%i! GTR 0 (call set str%3=!str%3!%%BIG!tmp%%i!%%!NAME%%i!) else (

                         call set str%3=!str%3!%%BIG!tmp%%i!%%)))

       set str%3=!str%3!%2

       ) else set str%3=

     goto :eof



:test2

     set tmp=%1

     set tmp=%tmp:零零=零%

     set str%2=%tmp:零零=零%

     

     

:: 人民币金额小写转大写

:: qzwqzw@bbs.cn-dos.net

:: 2007-01-01

@echo off

setlocal EnableDelayedExpansion



set tbl1=零壹贰叁肆伍陆柒捌玖

set tbl2=分角元拾佰仟万拾佰仟亿拾佰仟



:test

setlocal

set /p num=请输入金额（小于一万亿元）:



for /f "tokens=1,2 delims=." %%f in ("%num%") do (

    set num2=%%g00

    set num=%%f!num2:~0,2!

)



:loop

call set rmb=%%tbl1:~%num:~-1,1%,1%%%%tbl2:~%bit%,1%%%rmb%

set /a bit+=1

set num=%num:~0,-1%

if not "%num%"=="" goto loop



set rmb=%rmb:零拾=零%

set rmb=%rmb:零佰=零%

set rmb=%rmb:零仟=零%

set rmb=%rmb:零零=零%

set rmb=%rmb:零零=零%



set rmb=%rmb:零元=元零%

set rmb=%rmb:零万=万零%

set rmb=%rmb:零亿=亿零%

set rmb=%rmb:零零=零%



set rmb=%rmb:零分=零%

set rmb=%rmb:零角=零%

set rmb=%rmb:角零=角%

set rmb=%rmb:零零=整%



echo 人民币%rmb%



endlocal

goto test

:: 人民币金额小写转大写

:: qzwqzw@bbs.cn-dos.net

:: 2007-01-01

@echo off

setlocal EnableDelayedExpansion



set tbl1=零壹贰叁肆伍陆柒捌玖

set tbl2=分角元拾佰仟万拾佰仟亿拾佰仟



:test

cls

setlocal

set /p num=请输入小写金额（小于一万亿元，直接回车退出）:

if "%num%"=="" goto :eof



set num=%num:,=%

set num=0%num%



for /f "tokens=1,2,* delims=." %%f in ("%num%") do (

    set num2=%%g00

    set num=%%f!num2:~0,2!

    if not "%%h"=="" goto :error

)



:del_pre0

if not "%num:~0,1%"=="0" goto checknum

set num=%num:~1%

goto del_pre0



:checknum

set /a num2=num+0

if "%num%"=="%num2%" goto loop



:error

echo.

echo 输入小写金额无效!

echo.

pause

goto test



:loop

call set rmb=%%tbl1:~%num:~-1,1%,1%%%%tbl2:~%bit%,1%%%rmb%

set /a bit+=1

set num=%num:~0,-1%

if not "%num%"=="" goto loop



set rmb=%rmb:零拾=零%

set rmb=%rmb:零佰=零%

set rmb=%rmb:零仟=零%

set rmb=%rmb:零零=零%

set rmb=%rmb:零零=零%



set rmb=%rmb:零元=元零%

set rmb=%rmb:零万=万零%

set rmb=%rmb:零亿=亿零%

set rmb=%rmb:零零=零%



set rmb=%rmb:零分=零%

set rmb=%rmb:零角=零%

set rmb=%rmb:角零=角%

set rmb=%rmb:零零=整%



echo.

echo 人民币%rmb%

echo.

pause

endlocal

goto test

:: Arab2Roman 阿拉伯数字转为罗马数字

:: qzwqzw @ http://bbs.cn-dos.net

:: 2007-01-02 Revision 3

@echo off

setlocal EnableDelayedExpansion



:test

if "%~0"=="%~f0" cls

setlocal

set /p num=请输入阿拉伯数字num（"0<num<4000"，直接回车退出）:

if "%num%"=="" goto :eof



:checknum

set /a tmp=num+0

if "%num%"=="%tmp%" if %num% lss 4000 if %num% gtr 0 goto Arab2Roman



:error

echo.

echo 无效的数字

echo.

if "%~0"=="%~f0" pause

endlocal

goto test



:Arab2Roman

set i=0

for %%v in (1000 900 500 400 100 90 50 40 10 9 5 4 1) do (

    set /a i+=1

    set arab!i!=%%v

)



set i=0

for %%v in (M CM D CD C XC L CL X IX V IV I) do (

    set /a i+=1

    set roman!i!=%%v

)



set i=1

:loop

call set tmp=%%arab%i%%%



if 1%num% lss 1%tmp% (

    set /a i+=1

) else (

    call set rom=%rom%%%roman%i%%%

    set /a num-=tmp

)

if 1%num% gtr 10 goto loop

::Arab2Roman



echo.

echo %rom%

echo.

if "%~0"=="%~f0" pause



endlocal

goto test

:: 阿拉伯与罗马数字互转程序

:: qzwqzw http://bbs.cn-dos.net

:: 2007-01-03 Revision 2

@echo off

setlocal EnableDelayedExpansion



for /l %%i in (1,1,100) do (

    set /a numin=!random!*4200/32768-100

    set in=!numin!

    set out=

    call :Arab2Roman

    set in=!out!

    call :Roman2Arab

    echo.%%i 

    if !numin! neq !out! set /p=--- Invalid ---

)

pause

endlocal

goto :eof



:Arab2Roman

setlocal EnableDelayedExpansion

set num=%in%

set /a tmp=num+0

if not "%num%"=="%tmp%" goto :eof

if %num% geq 4000 goto :eof

if %num% leq 0 goto :eof



set i=0

for %%v in (1000 900 500 400 100 90 50 40 10 9 5 4 1) do (

    set /a i+=1

    set arab!i!=%%v

)



set i=0

for %%v in (M CM D CD C XC L XL X IX V IV I) do (

    set /a i+=1

    set roman!i!=%%v

)



set i=1

:a2r_loop

call set tmp=%%arab%i%%%



if 1%num% lss 1%tmp% (

    set /a i+=1

) else (

    call set rom=%rom%%%roman%i%%%

    set /a num-=tmp

)



if 1%num% gtr 10 goto a2r_loop



endlocal & set out=%rom%

goto :eof

::Arab2Roman



:Roman2Arab

setlocal EnableDelayedExpansion



echo.%in%|findstr /r "">nul && goto :eof



set i=0

for %%v in (1000 900 500 400 100 90 50 40 10 9 5 4 1) do (

    set /a i+=1

    set arab!i!=%%v

)



set i=0

for %%v in (M 1 D 2 C 3 L 4 X 5 V 6 I) do (

    set /a i+=1

    set roman!i!=%%v

)



set in=%in:m=M%

set in=%in:d=D%

set in=%in:c=C%

set in=%in:l=L%

set in=%in:x=X%

set in=%in:v=V%

set in=%in:i=I%



set in=%in:CM=1%

set in=%in:CD=2%

set in=%in:XC=3%

set in=%in:XL=4%

set in=%in:IX=5%

set in=%in:IV=6%



set i=1

set num=0

:r2a_loop

set tmp=%in:~0,1%

call set rom1=%%roman%i%%%

if "%tmp%"=="%rom1%" (

    call set /a num+=arab%i%

    set in=%in:~1%

) else (

    set /a i+=1

)

if %i% gtr 13 goto :eof

if not "%in%"=="" goto r2a_loop



endlocal & set out=%num%

goto :eof

::Roman2Arab