実数の整数部,小数部の取得

OS:windows2000pro
VB:VB6.0sp5

実数 num(変数) [as currency]
　(但し 小数点以下２位まで)の値の
１．整数部　num_int(変数) [as long]
２．小数部　num_dec(変数) [as long]
を上記変数に格納するのは、どのようにすればいいのでしょうか？

（例1）num = 123.02 の場合、num_int=123, num_dec=2
（例2）num = 4.20 の場合、num_int= 4, num_dec=20
（例3）num = 0.23 の場合、num_int= 0, num_dec=23

　よろしくお願いいたします

No.3 ベストアンサー 回答者： pen_pen_pen 回答日時： 2005/04/05 12:56

VB6ならこうです。

num_int = Fix(num)
num_dec = 100 * (num - num_int)

No.5 回答者： noname#30655 回答日時： 2005/04/05 17:59

num_int = int(num)

num_dec = (num - num_int) * 100

No.4 回答者： ymmasayan 回答日時： 2005/04/05 14:34

No.3さんの通りです。

正の数だけに限定すればInt関数を使っても同じです。
Intのほうがなじみが深いかも。

No.2 回答者： tonytonychopper 回答日時： 2005/04/05 12:53

方法はいろいろあるんですが，文字列に変換して小数点でSplitってのもありかもしれませんね。

No.1 回答者： JeanneNet 回答日時： 2005/04/05 12:41

こんにちは、じゃんぬねっと です。

まず、整数部は斬り捨てと同じ概念なので、
Math.Floor または Math.Ceiling (正なのか負なのかで使い分けてください) で取得できますね。

で、その取得した正数で、元の数値を引くと浮動小数部が取得できますよね。