返回列表下一主題上一主題發帖

[發問] 判斷是否為數字型態最快的方法?

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-5 13:57 | 只看該作者

[發問] 判斷是否為數字型態最快的方法?

各位大大好,

以下是我寫的方式,想請問各位大大

是否有更快的方式可以判別出

某陣列中的值

是否為純數字(只有正的數字,沒有+-.等符號)

myArray = Array("!@$!$222", "1122")
For Each e In myArray
For i = 1 To Len(e)
If IsNumeric(Mid(e, i, 1)) = False Then
check = False
Exit For
End If
Next
Next

複製代碼

樓主熱帖

PKKO

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

2^#

發表於 2015-4-5 15:45 | 只看該作者

本帖最後由 bobomi 於 2015-4-5 15:47 編輯

dim d as double

For Each e In myArray  '確定要的值含0的話用這個
      check = IsNumeric(e)
      If check Then
         d = e
         check = d >= 0 And (d - Fix(d)) = 0
      End If
Next
'====
For Each e In myArray  '確定要的值不含0的話用這個
      d = Val(e)
      If d > 0 Then
         check = (d - Fix(d)) = 0
      End If
Next

TOP

PKKO