¸ÕÀú ´äº¯ÀÌ ´ÊÀº Á¡.. Á˼ÛÇÕ´Ï´Ù. ÇÑ ¹ø¿¡ ´äº¯ÀÌ ¾È ¿Ã¶ó°¡¼...³ª´©¾î¼ ´äº¯ µå¸®°Ú½À´Ï´Ù.
È®½ÇÇÑ ´äº¯À» À§ÇØ À̸®Àú¸® È®ÀÎÇÏ´Ù º¸´Ï ¸¹ÀÌ ´Ê¾ú³×¿ä...^^
Áú¹®ÇϽг»¿ëÀ» ÇØ°áÇϱâ À§Çؼ´Â ±â»ç ½Ç±â ½ÃÇè°ú´Â ¹«°üÇÏÁö¸¸...¸î °¡Áö ¾Æ¼Å¾ß ÇÒ ³»¿ëÀÌ ÀÖ½À´Ï´Ù.
ù°´Â Type Cast(Çü½Ä ij½ºÆ®):ÀÚ·áÇü °Á¦ º¯Çü, Çüº¯È¯ °³³çÀÔ´Ï´Ù....
±×¸®°í µÎ¹øÂ°´Â ºñº£´Â ƯÀÌÇÑ ¹Ý¿Ã¸²¹ýÀÔ´Ï´Ù.(Banker''''s Rounding)
°á·ÐÀº ºñº£¿¡¼ ¹Ý¿Ã¸²¿¡ ´ëÇÑ ¿©·¯°¡Áö ¹ö±×(ÇØ°á¾ÈµÇ´Â)°¡ ÀÖ½À´Ï´Ù.
Áú¹®¿¡ ´ëÇØ ÇϳªÇϳª ´äÀ» ¿Ã¸®°Ú½À´Ï´Ù.
==========================================================================
Option Explicit Sub main() Dim °ª(3) As Long Dim ÇÕ°è As Long °ª(1) = 20.5 °ª(2) = 30.1 °ª(3) = 40.1 ÇÕ°è = °ª(1) + °ª(2) + °ª(3) MsgBox ÇÕ°è End Sub ÀÌ ÇÁ·Î±×·¥¿¡¼´Â ÇÕ°è °á°ú°ªÀÌ 90ÀÌ ³ª¿É´Ï´Ù
=> ŸÀÔ Ä³½ºÆ®(ÀÚ·áÇü °Á¦ º¯Çü)¿¡ ÀÇÇØ ¹Ý¿Ã¸²µÇ¾ú½À´Ï´Ù. ¿Ö 90ÀÌ ³ª¿À³Ä¸é...
Microsoft Á¦Ç°¿¡´Â »ç¿ëÇÒ ¼ö ÀÖ´Â ¶ó¿îµù ¾Ë°í¸®ÁòÀÌ ¸¹½À´Ï´Ù. ¶ó¿îµù ¾Ë°í¸®ÁòÀº ExcelÀÇ ¿öÅ©½ÃÆ® Round() ÇÔ¼ö¿¡ ÀÖ´Â »ê¼ú ¶ó¿îµù(Arithmetic Rounding)ºÎÅÍ Visual Basic for ApplicationsÀÇ CInt(), CLng() ¹× Round() ÇÔ¼ö¿¡ ÀÖ´Â Banker''''s Rounding¿¡ À̸£±â±îÁö ´Ù¾çÇÕ´Ï´Ù.
Banker''''s Rounding
¶ó¿îµùÇÑ °ªµéÀ» ´õÇÒ ¶§ .5¸¦ Ç×»ó °°Àº ¹æÇâÀ¸·Î ¶ó¿îµùÇϸé ÇÕ°èÀÇ ÆíÁß ¿ÀÂ÷°¡ Ä¿Áú ¼ö ÀÖ½À´Ï´Ù. ÆíÁß ¿ÀÂ÷¸¦ ÃÖ¼ÒÈÇÏ´Â ÇÑ °¡Áö ¹æ¹ýÀº Banker''''s RoundingÀ» »ç¿ëÇÏ´Â °ÍÀÔ´Ï´Ù.
Banker''''s Rounding¿¡¼´Â »óȲ¿¡ µû¶ó .5¸¦ ¹Ý¿Ã¸²Çϰųª Àß¶ó³À´Ï´Ù. 1.5¿Í 2.5´Â µÑ ´Ù 2·Î ¶ó¿îµùÇϰí 3.5¿Í 4.5´Â µÑ ´Ù 4·Î ¶ó¿îµùÇÏ´Â ¹æ½ÄÀ¸·Î °¡Àå °¡±î¿î ¦¼ö·Î ¶ó¿îµùÇÏ´Â °ÍÀÌ ±ÔÄ¢ÀÔ´Ï´Ù. Banker''''s RoundingÀº ´ëĪÀûÀÔ´Ï´Ù.
(ÀÏ¹Ý ¿¬»ê) : 1.5 + 2.5 +3.5 +4.5 = 12 (Round ¹Ý¿Ã¸²) : Round(1.5) + Round(2.5) + Round(3.5) + Round(4.5) = 12 (¼öÇÐÀû ¹Ý¿Ã¸²) : 2 + 3 + 4 + 5 = 14
=> °á·ÐÀº 0.5 À϶§ »óȲ¿¡ µû¶ó ¹Ý¿Ã¸² °á°ú°¡ ´Ù¸¨´Ï´Ù. °¡±î¿î ¦¼ö·Î ¶ó¿îµùµÈ´Ù°í »ý°¢ÇÏ½Ã¸é µË´Ï´Ù. ±×·¡¼...91ÀÌ ¾Æ´Ï¶ó..20+30+40ÀÇ ÇÕÀÎ 90ÀÌ µÇ¾ú½À´Ï´Ù.
Option Explicit Sub main() Dim °ª(3) As Long Dim ÇÕ°è As Long °ª(1) = 20.6 °ª(2) = 30.1 °ª(3) = 40.1 ÇÕ°è = °ª(1) + °ª(2) + °ª(3) MsgBox ÇÕ°è End Sub ÀÌ ÇÁ·Î±×·¥¿¡¼´Â ÇÕ°è °á°ú°ªÀÌ 91ÀÌ ³ª¿É´Ï´Ù
µð¹ö±×ÇØº¸´Ï, ù¹øÂ°ÇÁ·Î±×·¥¿¡¼± °ª1ÀÌ 20, µÎ¹øÂ°ÇÁ·Î±×·¥¿¡¼± °ª1ÀÌ 21·Î ÀÐÈ÷´õ±º¿ä ±×·¡¼ ¼Ò¼öÁ¡ÀÌ .6ºÎÅÍ ¹Ý¿Ã¸²ÀÌ µÈ´Ù°í »ý°¢Çß½À´Ï´Ù~ ±×·±µ¥..
=> ¸Â½À´Ï´Ù.
Option Explicit Sub main() Dim °ª(3) As Double Dim ÇÕ°è As Long °ª(1) = 20 °ª(2) = 30.5 °ª(3) = 40 ÇÕ°è = °ª(1) + °ª(2) + °ª(3) °ª°ú ÇÕ°èÀÇ º¯¼öŸÀÔÀ» ´Ù¸£°Ô ÁöÁ¤ÇßÀ» ¶§ MsgBox ÇÕ°è ÀÌ ÇÁ·Î±×·¥¿¡¼± ÇÕ°è °ªÀÌ 90ÀÌ ³ª¿Ô¾î¿©~ End Sub
=> ¸Â½À´Ï´Ù. |