code186a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 23 行

Public Sub Split_Float (ByVal Value As Double, _
    ByRef Integer_Part As Double, _
    ByRef Fractional_Portion As Double)

  If Value > 0 Then
    Integer_Part = Int(Value)
    Fractional_Portion = Value - Int(Value)
  Else
    Integer_Part = Fix(Value)
    Fractional_Portion = Value + Fix(Value)
  End If
End Sub

Public Sub Main()
  Dim Value As Double, Int_Part As Double, Fraction As Double

  Value = 1.2345
  Split_Float Value, Int_Part, Fraction

  Debug.Print "Value, Integer Part, Fraction ", Value, _
    Int_Part, Fraction
End Sub