?? code186a.txt
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -