sepertinya dulu pernah ada kok.coba search lagi ?
--- In [email protected], McBoenBoen <[EMAIL PROTECTED]> wrote:
>
> Dear All,
> mohon bantuannya dong....URGENT Banget nih
>
> saya punya scrip terbilang dalam bahasa indonesia yang saya
jalankan di fucntion SQL 2000 sudah berhasil, masalahnya bagaimana
merubah scrip ini supaya bisa terbilang dalam bahasa Inggris,
terbilang bhs Inddonesianya seperti ini :
>
> SET QUOTED_IDENTIFIER ON
> GO
> SET ANSI_NULLS ON
> GO
>
> CREATE FUNCTION dbo.F_TERBILANG_ENGLISH(@NVAL NUMERIC(18,2))
> RETURNS VARCHAR(1000)
> AS
> BEGIN
> DECLARE
> @aBIL VARCHAR(100),
> @aBIL1 VARCHAR(100),
> @cVAR1 VARCHAR(500),
> @cVAR2 VARCHAR(500),
> @cVAR3 VARCHAR(500),
> @cVAR4 VARCHAR(500),
> @HASIL VARCHAR(1000),
> @KOMA VARCHAR(5),
> @I INT,
> @J INT,
> @ANGKA BIGINT,
> @P2 NUMERIC(30),
> @ZB INT,
> @ZB0 CHAR(3),
> @ZB1 INT,
> @ZB2 INT,
> @ZB3 INT
> SET @HASIL = ''
> SET @aBIL='SATU DUA TIGA EMPAT LIMA ENAM TUJUH
DELAPAN SEMBILAN'
> SET @aBIL1=' RIBU JUTA MILYARDTRILIUN '
> IF @nVAL=0
> SET @Hasil='NOL'
> SET @Angka=CAST((@nVAL) AS BIGINT )
> SET @Koma=LTRIM(SUBSTRING(STR(@nval,18,2),16,3))
>
> SET @i=5
> WHILE ( @ANGKA<>0 )
> BEGIN
> SET @cVAR1=''
> SET @cVAR2=''
> SET @cVAR3=''
> SET @i = @i - 1
> /* Buat P2 = 1000^i */
> SET @J = 1
> IF @i = 0
> SET @P2 = 1
> ELSE
> BEGIN
> SET @P2 = 1000
> WHILE @J < @I
> BEGIN
> SET @P2 = @P2 * 1000
> SET @J = @J + 1
> END
> END
> SET @ZB=CAST((@Angka/@P2) AS INT )
> IF @ZB=0
> CONTINUE
> SET @ZB0=STR(@ZB,3,0) /*ambil 3 angka dari awal */
> SET @ZB1=CAST((SUBSTRING(@ZB0,1,1)) AS INT )
> SET @ZB2=CAST((SUBSTRING(@ZB0,2,1)) AS INT )
> SET @ZB3=CAST((SUBSTRING(@ZB0,3,1)) AS INT )
> /* test ratusan */
> IF @ZB1<>0
> BEGIN
> IF @ZB1=1
> SET @cVAR1=' SERATUS '
> ELSE
> SET @cVAR1=' '+RTRIM(SUBSTRING(@aBIL,(@ZB1-1)*8+1,8))+'
RATUS '
> END
> /* test puluhan & belasan */
> IF @ZB2=1
> BEGIN
> IF @ZB3=0
> SET @cVAR2=' SEPULUH '
> ELSE
> BEGIN
> IF @ZB3=1
> SET @cVAR2=' SEBELAS '
> ELSE
> SET @cVAR2='
'+RTRIM(SUBSTRING(@aBIL,(@ZB3-1)*8+1,8))+' BELAS '
> END
> END
> ELSE
> BEGIN
> IF @ZB3<>0
> SET @cVAR3=' '+RTRIM(SUBSTRING(@aBIL,(@ZB3-1)*8+1,8))
> IF @ZB2<>0
> SET @cVAR2=RTRIM(SUBSTRING(@aBIL,(@ZB2-1)*8+1,8))+' PULUH '
> END
>
> IF @i>0
> SET @[EMAIL PROTECTED]@[EMAIL PROTECTED]@cVar3+'
'+RTRIM(SUBSTRING(@aBIL1,@i*7+1,7))
> ELSE
> SET @[EMAIL PROTECTED]@[EMAIL PROTECTED]@cVar3
>
> SET @Angka = @Angka -(@[EMAIL PROTECTED])
> END
> -- End Loop ------------------
> IF SUBSTRING(ltrim(@Hasil),1,9)='SATU RIBU'
> SET @Hasil='SERIBU '+RTRIM(Right(@Hasil,LEN(LTRIM(@Hasil))-9))
> ELSE
> SET @Hasil=RTRIM(@Hasil)
> SET @cVar4=' '
> IF SUBSTRING(STR(@nVAL,18,2),16,1)='.' and right(@koma,2)<>'00'
> BEGIN
> SET @i = 1
> WHILE @i <= 2
> BEGIN
> IF SUBSTRING(@KOMA,@i,1)='0'
> SET @[EMAIL PROTECTED]'NOL '
> else
> SET @cVAR4=LTRIM(@cVar4)+'
'+RTRIM(SUBSTRING(@aBIL,(CAST(SUBSTRING(right(@koma,2),@i,1) AS
INTEGER ) - 1)*8+1,8))
> SET @i = @i + 1
> END
> END
>
> IF @cVAR4<>' '
> SET @HASIL = @HASIL+' KOMA '[EMAIL PROTECTED]
> RETURN (LTRIM(RTRIM(@HASIL)))
> END
>
> GO
> SET QUOTED_IDENTIFIER OFF
> GO
> SET ANSI_NULLS ON
> GO
>
>
> bagaimana caranya syntak tersebut supaya hasilnya dalam bahasan
Inggris..
>
> atas bantuan teman2 sebelumnya banyak terimakasih
>
> rgds,
> mc
>
>
> ---------------------------------
> Ahhh...imagining that irresistible "new car" smell?
> Check outnew cars at Yahoo! Autos.
>
