»ó´ã¹®ÀÇ

¤ý HOME > »ó´ã¹®ÀÇ > Á¤º¸Ã³¸®±â»ç ½Ç±â
Á¦ ¸ñ ¿ÀŸ°¡ ÀÖ½À´Ï´Ù.
±Û¾´ÀÌ  ±â»çÄ£±¸ÀÛ¼ºÀÏ 2005-05-03Á¶È¸¼ö 385
±Û°øÀ¯
°Ô½Ã±ÛÀ» twitter·Î º¸³»±â°Ô½Ã±ÛÀ» facebookÀ¸·Î º¸³»±â°Ô½Ã±ÛÀ» Me2Day·Î º¸³»±â°Ô½Ã±ÛÀ» ¿äÁòÀ¸·Î º¸³»±â

1¹ø



''''''''º¯¼öÀúÀå
            »óǰºÐ·ùÄÚµå = Trim(Mid(¹öÆÛ, 5, 2))
            ¿ø°¡ = Val(Mid(¹öÆÛ, 16, 4))
            ¿ùÃÑÆÇ¸Å±Ý¾× = Val(Mid(¹öÆÛ, 26, 5))
            °Å·¡Æ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 31, 3))



2¹ø





        For i = 1 To Àμö2



        Line Input #1, ¹öÆÛ
            If i >= Àμö1 Then
           
            ''''''''º¯¼ö ÀúÀå
            ¸ÅÃâ¾× = Val(Mid(¹öÆÛ, 26, 3))
            Á¦Á¶Æ÷ÀÎÆ® = Val(Mid(¹öÆÛ, 20, 3))
           
            ''''''''ÃÖ´ë°ª
            If Á¦Á¶Æ÷ÀÎÆ® >= 30 Then
                If ÃÖ´ë°ª < (¸ÅÃâ¾× * Á¦Á¶Æ÷ÀÎÆ®) Then
                    ÃÖ´ë°ª = ¸ÅÃâ¾× * Á¦Á¶Æ÷ÀÎÆ®
                End If
            End If
   
            End If
        Next i
   
    Close #1
   
   
   
    ''''''''Ãâ·ÂÆÄÀÏ Ã³¸®
    Open "c:\c_it\data\°øÀåÁ¦Á¶°ü¸®2.txt" For Output As #2
        Print #2, Àμö1, Àμö2, ÃÖ´ë°ª
    Close #2
   
End Sub

´ñ±Û¾²±â :
ÀÌÀü±Û ¿­¸®Áö°¡ ¾Ê¾Æ¿ä!!
´ÙÀ½±Û ¹®Á¦°¡ ¾È Ç®·Á¿©..¤Ð.¤Ð
°í°´Áö¿ø¼¾ÅÍ

02-556-3650

ÆòÀÏ 9:00~18:00

ÀÏ¿äÀÏ °øÈÞÀÏ ÈÞ¹«

°èÁ¹øÈ£¾È³»

³óÇùÀºÇà 724-01-173541

±¹¹ÎÀºÇà 633601-04-044665

¿¹±ÝÁÖ (ÁÖ)Á¶ÀºÄ·ÇÁ

»óÈ£¸í : (ÁÖ)Á¶ÀºÄ·ÇÁ ¤Ó ´ëÇ¥ÀÌ»ç : ÀÌÀ¯¶ô ¤Ó ´ë±¸±¤¿ª½Ã ºÏ±¸ ´ëÇзÎ80 °æºÏ´ëÇб³ ITÀ¶ÇÕ»ê¾÷ºôµù 11Ãþ
»ç¾÷ÀÚ¹øÈ£ : 504-81-62507 ¤Ó º»»ç : 053-954-0030 ¤Ó ±â¼úÁö¿ø : 070-7019-1144 ¤Ó ÆÑ½º : 050-7711-2200 ¤Ó 
¿ø°ÝÆò»ý±³À°½Ã¼³13È£ ¤Ó ÃâÆÇ»ç : 345-2005-00013 ¤Ó Åë½ÅÆÇ¸Å¾÷ : 2005-´ë±¸ºÏ±¸-00158 ¤Ó Á¤º¸º¸È£Ã¥ÀÓÀÚ : ±è⿬  
±â»çÄ£±¸´Â SSLº¸¾È¹æ½ÄÀÇ ¾Ïȣȭ±¸°£À» Àû¿ëÇÏ¿© »çÀÌÆ®¸¦ ¾ÈÀüÇÏ°Ô ÀÌ¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù.
COPYRIGHT 2005 (ÁÖ)Á¶ÀºÄ·ÇÁ ALL RIGHTS RESERVED.°ü¸®ÀÚ¿¡°Ô ¸ÞÀϺ¸³»±â