VB2010 Làm thế nào để biết số có phải là một số nguyên không

Question

Tôi cần phải biết số nguyên là một số nguyên hay số nguyên có số thập phân. Vì vậy, 13 sẽ là một số nguyên và 23.23 sẽ là một số thập phân.

Vì vậy, thích;

If 13 is a whole number then 
msgbox("It's a whole number, with no decimals!") 
else 
msgbox("It has a decimal.") 
end if 

Answer 1

Bạn có thể kiểm tra xem sàn và trần của số có giống nhau hay không. Nếu nó bằng, thì nó là một số nguyên, nếu không nó sẽ khác.

If Math.Floor(value) = Math.Ceiling(value) Then 
... 
Else 
... 
End If 

Answer 2

Đánh giá bởi thực tế là bạn có một loại mà bạn cần xác định có phải là số nguyên hay loại khác tôi giả định số được chứa trong chuỗi. Nếu bạn có thể sử dụng phương thức Integer.TryParse để xác định xem giá trị có phải là Số nguyên không, nó cũng sẽ xuất ra dưới dạng số nguyên nếu thành công. Nếu đây không phải là những gì bạn đang làm, hãy cập nhật câu hỏi của bạn với nhiều thông tin hơn.

Dim number As String = 34.68 
Dim output As Integer 
If (Integer.TryParse(number, output)) Then 
    MsgBox("is an integer") 
Else 
    MsgBox("is not an integer") 
End If 

Edit:

Bạn có thể sử dụng ý tưởng tương tự nếu bạn đang sử dụng một số thập phân hoặc Loại khác để chứa số điện thoại, n một cái gì đó như thế này.

Option Strict On 
Module Module1 

    Sub Main() 

     Dim number As Decimal = 34 
     If IsInteger(number) Then 
      MsgBox("is an integer") 
     Else 
      MsgBox("is not an integer") 
     End If 
     If IsInteger("34.62") Then 
      MsgBox("is an integer") 
     Else 
      MsgBox("is not an integer") 
     End If 

    End Sub 

    Public Function IsInteger(value As Object) As Boolean 
     Dim output As Integer ' I am not using this by intent it is needed by the TryParse Method 
     If (Integer.TryParse(value.ToString(), output)) Then 
      Return True 
     Else 
      Return False 
     End If 
    End Function 
End Module 

Answer 3

If x = Int(x) Then 
    'x is an Integer!' 
Else 
    'x is not an Integer!' 
End If 

Answer 4

 
Dim Num As String = "54.54" 
If Num.Contains(".") Then MsgBox("Decimal") 
'Do Something 

Answer 5

Tôi giả định rằng giá trị ban đầu của bạn là một chuỗi.

, Trước tiên hãy kiểm tra xem giá trị chuỗi có phải là số hay không.
, So sánh sàn và trần của số. Nếu nó giống nhau, bạn có một số nguyên.

Tôi thích sử dụng các phương pháp mở rộng.

''' <summary> 
''' Is Numeric 
''' </summary> 
''' <param name="p_string"></param> 
''' <returns></returns> 
''' <remarks></remarks> 
<Extension()> 
Public Function IsNumeric(ByVal p_string As String) As Boolean 
    If Decimal.TryParse(p_string, Nothing) Then Return True 
    Return False 
End Function 

''' <summary> 
''' Is Integer 
''' </summary> 
''' <param name="p_stringValue"></param> 
''' <returns></returns> 
<Extension()> 
Public Function IsInteger(p_stringValue As String) As Boolean 
    If Not IsNumeric(p_stringValue) Then Return False 
    If Math.Floor(CDec(p_stringValue)) = Math.Ceiling(CDec(p_stringValue)) Then Return True 
    Return False 
End Function 

Ví dụ:

Dim _myStringValue As String = "200" 
    If _myStringValue.IsInteger Then 
     'Is an integer 
    Else 
     'Not an integer 
    End If