以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，数值分拆  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106646)
--  作者：刘异
--  发布时间：2017/9/13 10:18:00
--  求助，数值分拆
老师好：
请问一下，有一个数值要提取整数与小数该怎么提取呢？
如：40.05分别取整数40填入整数列中，取0.05填入小数中，不知怎么写代码？
--  作者：有点甜
--  发布时间：2017/9/13 10:25:00
--  
Dim d as double = 40.05
Dim ary() As String = cstr(d).split(".")
msgbox(ary(0))
msgbox(ary(1)/100)
--  作者：刘异
--  发布时间：2017/9/13 10:26:00
--  
多谢
--  作者：刘异
--  发布时间：2017/9/13 10:30:00
--  
老师好：小数不是固定的；有可能是40.5，40.05，40.005
--  作者：刘异
--  发布时间：2017/9/13 10:33:00
--  
老师我明白怎么做了，多谢
--  作者：有点甜
--  发布时间：2017/9/13 10:37:00
--  
Dim d As Double = 40.05
Dim d1 As Integer = Math.Floor(d)
Dim d2 As Double = format(d-d1, "#.######")
msgbox(d1)
msgbox(d2)
--  作者：有点甜
--  发布时间：2017/9/13 10:38:00
--  
Dim d As Double = 40.05
Dim ary() As String = cstr(d).split(".")
msgbox(ary(0))
msgbox(ary(1)/10^len(ary(1)))