ASP > Tip&Tech > ¼ýÀÚ¸¦ Çѱ۷Π. ±Ý¾×À» Çѱ۷Πǥ½Ã
 
ASP
Library
Tip&Tech
Q&A
Å¿ä´å³Ý Asp, Asp.net
Tip&Tech
  HOME > ASP > Tip&Tech
 
ÀÛ¼ºÀÏ : 11-06-21 10:12
¼ýÀÚ¸¦ Çѱ۷Π. ±Ý¾×À» Çѱ۷Πǥ½Ã
 ±Û¾´ÀÌ : µ¢º¡ÀÌ (211.¢½.155.10)
Á¶È¸ : 5,505   Ãßõ : 0   ºñÃßõ : 0  

Function chang_money(money)
        dim num1 ' ÇÑ±Û ¼ýÀÚ ¹è¿­
        dim num2 ' ÇÑ±Û ¼ýÀÚ ´ÜÀ§ ¹è¿­
        dim posNoLevel ' ÇÑ±Û ¼ýÀÚ ´ÜÀ§ Ãâ·Â À§Ä¡
        dim tempNo ' ÇÑ±Û ¼ýÀÚ ÇöÀç ´ÜÀ§ Á¶¸³¿ë
        dim strNo ' ÇÑ±Û ¼ýÀÚ Àüü Á¶¸³¿ë
        dim cntNo ' º¯È¯ÇÒ ¼ýÀÚÀÇ ±æÀÌ
        dim posNo ' º¯È¯ÇÒ ¼ýÀÚÀÇ ÇöÀç º¯È¯ À§Ä¡
       
        num1 = Array("", "ÀÏ", "ÀÌ", "»ï", "»ç", "¿À", "À°", "Ä¥", "ÆÈ", "±¸")
        num2 = Array("", "½Ê", "¹é", "õ", "¸¸", "½Ê", "¹é", "õ", "¾ï", "½Ê", "¹é", "õ", "Á¶", "½Ê", "¹é", "õ", "°æ")
       
        cntNo = Len(money)
       
        ' ¼ýÀÚ°¡ 0 ÀÏ °æ¿ì
        if money = 0 then
                strNo = "¿µ"
        else
                strNo = ""
                posNoLevel = 0
                posNo = cntNo
                do
                        mo = Cint( Mid(no, posNo, 1) )

                        ' ³ª¸ÓÁö °ªÀÌ 0 ÀÌ ¾Æ´Ò °æ¿ì
                        if 0 < mo then
                                tempNo = num1(mo)
                                tempNo = tempNo & num2(posNoLevel)
                                strNo = tempNo & strNo
                        else
                                ' ³ª¸ÓÁö °ªÀÌ 0 À̸鼭 10000 ´ÜÀ§À϶§(¸¸, ¾ï, ..)
                                if (posNoLevel Mod 4) = 0 then
                                        strNo = num2(posNoLevel) & strNo
                                end if
                        end if
                       
                        posNoLevel = posNoLevel + 1
                        posNo = posNo - 1
                loop while 0 < posNo
        end if
       
        chang_money = strNo
End Function


 
 

Total 11
¹øÈ£ Á¦   ¸ñ ±Û¾´ÀÌ ³¯Â¥ Ãßõ ºñÃßõ Á¶È¸
11 asp ¹è¿­, print_r , print_r_2 ¹è¿­ Ű¿Í °ª Âï¾îÁÖ´Â ÇÔ¼ö µ¢º¡ÀÌ 06-22 0 0 5692
10    asp ¹è¿­, print_r , print_r_2 ¹è¿­ Ű¿Í °ª Âï¾îÁÖ´Â ÇÔ¼ö µ¢º¡ÀÌ 06-22 0 0 11411
9 ¼ýÀÚ¸¦ Çѱ۷Π. ±Ý¾×À» Çѱ۷Πǥ½Ã µ¢º¡ÀÌ 06-21 0 0 4820
8    ¼ýÀÚ¸¦ Çѱ۷Π. ±Ý¾×À» Çѱ۷Πǥ½Ã µ¢º¡ÀÌ 06-21 0 0 5506
7 php asp ±âº»»çÇ× µ¢º¡ÀÌ 06-20 0 0 6517
6 ASP / PHP Cross Reference µ¢º¡ÀÌ 09-28 0 0 4823
5 ( php -> exit; / asp -> response.end / jsp return )¡¦ µ¢º¡ÀÌ 11-12 0 0 4822
4 Encoding and Decoding base64 with (ASP,PHP,JSP) ¾Ïȣȭ µ¢º¡ÀÌ 09-10 0 0 4820
3 À©µµ¿ì XP IIS¿¡¼­ Á¢¼ÓÀÚ ¼ö ´Ã¸®´Â ¹æ¹ý (403.9¿¡·¯) µ¢º¡ÀÌ 10-20 0 0 4820
2 Encoding and Decoding base64 with (ASP,PHP,JSP) ¾Ïȣȭ µ¢º¡ÀÌ 09-10 0 0 4819
1 asp °Ô½ÃÆÇ ¸®½ºÆ®¿¡¼­ üũ¹Ú½º¸¦ ÀÌ¿ëÇÏ¿© ±Û µî·Ï µ¢º¡ÀÌ 08-31 0 0 17909
 
°³ÀÎȨÆäÀÌÁö ´ýº¡´åÄÄÀº ÇÁ·Î±×·¡¸Ó¿Í µðÀÚÀ̳ÊÀ§ÇÑ ITÄ¿¹Â´ÏƼ °ø°£ÀÔ´Ï´Ù.
Copyright ¨Ï www.dumbung.com. All rights reserved.