Sub App_Start
dec.New1
AddObject("d1","decNumber")
AddObject("d2","decNumber")
d1.New1
d2.New1
d1.Value = dec.ParseD("10000")
d2.Value = dec.FromDouble(7)
msgbox(dec.CompareD(d1.Value,d2.Value))
d1.Value = dec.DivD(d1.Value,d2.Value)
d1.Value = dec.AddD(d1.Value, d2.Value)
d = d1.ToString
msgbox(d1.ToDouble)
msgbox(d1.ToString2("n20"))
End Sub