ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §PÂ_¬O§_¬°¼Æ¦r«¬ºA³Ì§Öªº¤èªk?

[µo°Ý] §PÂ_¬O§_¬°¼Æ¦r«¬ºA³Ì§Öªº¤èªk?

¦U¦ì¤j¤j¦n,

¥H¤U¬O§Ú¼gªº¤è¦¡,·Q½Ð°Ý¦U¦ì¤j¤j

¬O§_¦³§ó§Öªº¤è¦¡¥i¥H§P§O¥X

¬Y°}¦C¤¤ªº­È

¬O§_¬°¯Â¼Æ¦r(¥u¦³¥¿ªº¼Æ¦r,¨S¦³+-.µ¥²Å¸¹)
  1. myArray = Array("!@$!$222", "1122")
  2.     For Each e In myArray
  3.         For i = 1 To Len(e)
  4.             If IsNumeric(Mid(e, i, 1)) = False Then
  5.                 check = False
  6.                 Exit For
  7.             End If
  8.         Next
  9.     Next
½Æ»s¥N½X
PKKO

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-4-5 15:47 ½s¿è

dim d as double

    For Each e In myArray  '½T©w­nªº­È §t0ªº¸Ü ¥Î³o­Ó
        check = IsNumeric(e)
        If check Then
           d = e
           check = d >= 0 And (d - Fix(d)) = 0
        End If
    Next
'====
    For Each e In myArray  '½T©w­nªº­È ¤£§t0ªº¸Ü ¥Î³o­Ó
        d = Val(e)
        If d > 0 Then
           check = (d - Fix(d)) = 0
        End If
    Next

TOP

¦^´_ 2# bobomi


    ·PÁÂ,¨S·Q¨ì¦³FIX³oºØÀˬd¤è¦¡

¦ýÁÙ·Q¦A°l°Ý¤@¤U,­Y¥u·Q§â«D¼Æ¦r³£¥h±¼©O?(¥u¯d¤U¯Â¼Æ¦r, + ¡B ^ * - ³£¤£­n)

ex: 111.11  =>11111
EX: .11^1   =>111

¦pªG­n¹F¨ì³oºØ¥u¨ú¥X¯Â¼Æ¦r
¬O¤£¬O¥u¯à¥Î§Ú­ì¥»ªº¤è¦¡®{ªk·Ò¿û?
PKKO

TOP

[¦pªG­n¹F¨ì³oºØ¥u¨ú¥X¯Â¼Æ¦r]

¹Bºâ¦¸¼Æ¤Öªº¸Ü¥Î§A¨º­Ó´N¦n¤F
¹Bºâ¦¸¼Æ¦hªº¸Ü , ¥Î¥¿«hÀ³¸Ó¬OÁÙ¥i¥H§Ö­Ó2,3­¿

¦ý¤U­±¤]·|¤ñ§A§Ö
      k = Asc(Mid(e, i, 1))
      check = k >= 48 And k <= 57

TOP

¦^´_ 4# bobomi


    ¦hÁÂ!
PKKO

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD