PRB: ½ÇÆÐÇÒ »ê¼ú ¿¬»êÀÚ¸¦ »ç¿ëÇÏ¿© ºñ±³ ³¯Â¥ ¼ö

1. DateDiff ³»Àå ÇÔ¼ö´Â ³¯Â¥ ¹× ½Ã°£ °ªÀ» ºñ±³ÇÒ ¼ö ÀÖ½À´Ï´Ù. DateDiff ºÎµ¿ ¼Ò¼öÁ¡ ¿À·ù°¡ Á¦°ÅÇÏ¿© ÁöÁ¤µÈ Çã¿ë ¿ÀÂ÷ ÀÔ·ÂµÈ °ªÀ¸·Î ¹Ý¿Ã¸²ÇÕ´Ï´Ù.
2. ³¯Â¥ Çü½Ä µÎ º¯¼ö °£ÀÇ Â÷À̸¦ °¡Á®¿Í¼­ Àý´ë °ªÀÌ Çã¿ë ¿ÀÂ÷ °ª 10E-11 °°Àº °á°ú¸¦ ºñ±³ÇϽʽÿÀ. Â÷ÀÌ°¡ ÀÖ´Â ³»°áÇÔ¼ºÀ» º¸´Ù ÀÛÀº °æ¿ì °ªÀº µ¿ÀÏÇÑ °ÍÀ¸·Î °£ÁÖµÉ ¼ö ÀÖ½À´Ï´Ù.

À§·Î °¡±â

¹®Á¦¸¦ ÀçÇöÇϱâ À§ÇÑ ´Ü°è

1. Visual Basic¿¡¼­ Ç¥ÁØ EXE ÇÁ·ÎÁ§Æ®¸¦ ¸¸µì´Ï´Ù. ±âº»ÀûÀ¸·Î Form1ÀÌ ¸¸µé¾îÁý´Ï´Ù.
2. ´ÙÀ½ Äڵ带 Form1ÀÇ ÀÏ¹Ý ¼±¾ð ¼½¼Ç¿¡ Ãß°¡ÇÕ´Ï´Ù:

         Option Explicit
   
         Private Sub Form_Load()
            Dim Date1 As Date
            Dim Date2 As Date
            Dim Date3 As Date
            Dim Date4 As Date
            Me.Width = 6500
            Me.Height = 3000
            Me.Show
            Date1 = #10/21/1998 8:00:00 AM#
            Date2 = #10/21/1998 8:20:00 AM#
            Date3 = DateAdd("n", 20#, Date1)
            Date4 = Date1 + TimeSerial(0, 20, 0)
            Print "The results are visually identical..."
            Print
            Print "Date2 = "; Date2
            Print "Date3 = "; Date3
            Print "Date4 = "; Date4
            Print
            Print "but the actual values are not"
            Print
            Print Tab(20), "=", "DateDiff", "Actual Difference"
            Print "Date2 = Date3?", Date2 = Date3,
            Print DateDiff("s", Date2, Date3), Date2 - Date3
            Print "Date2 = Date4?", Date2 = Date4,
            Print DateDiff("s", Date2, Date4), Date2 - Date4
            Print "Date3 = Date4?", Date3 = Date4,
            Print DateDiff("s", Date3, Date4), Date3 - Date4
         End Sub
   
   						

3. ÀÀ¿ë ÇÁ·Î±×·¥À» ½ÇÇàÇÏ°í Æû¿¡ °á°ú¸¦ °Ë»çÇϽʽÿÀ.

À§·Î °¡±â