| OLE/SML# |
signature OLE_DECIMAL =
sig
type decimal = { scale : Word8.word, value : IntInf.int}
val MIN_SCALE : Word8.word
val MAX_SCALE : Word8.word
val MIN_VALUE : IntInf.int
val MAX_VALUE : IntInf.int
val toString : decimal -> string
val compare : decimal * decimal -> order
end
OLE DECIMAL structure is defined as
typedef struct tagDEC {
WORD wReserved;
BYTE scale;
BYTE sign;
ULONG Hi32;
ULONGLONG Lo64;
} DECIMAL;
( http://msdn.microsoft.com/en-us/library/cc237603(PROT.13).aspx )
| Type detail |
|---|
type decimal =
{
(* scale must be in the range [0, 28] *) scale : Word8.word,
(* between MinValue and MaxValue, including.*)
value : IntInf.int
}
| Value detail |
|---|
val MIN_SCALE : Word8.word
val MAX_SCALE : Word8.word
val MIN_VALUE : IntInf.int
val MAX_VALUE : IntInf.int
val toString : decimal -> string
val compare : decimal * decimal -> order
| OLE/SML# |