VarBstrFromDec

[Stefan Leichter]

Hi,

this is a verry limited implementation of the funtion but it is enough for the 
program i am trying to run ;-)

Changelog
------------
	partial implementaion of VarBstrFromDec
-------------- next part --------------
--- dlls/oleaut32/variant.c.1	Fri May 16 16:29:12 2003
+++ dlls/oleaut32/variant.c	Fri May 16 20:09:58 2003
@@ -3637,7 +3637,10 @@
  *		VarBstrFromDec		[OLEAUT32.@]
  */
 HRESULT WINAPI VarBstrFromDec(DECIMAL* pDecIn, LCID lcid, ULONG dwFlags, BSTR* pbstrOut)
-{	FIXME("%c%08lx%08lx%08lx E%02x stub\n",
+{	if(!pDecIn->u.s.sign && !pDecIn->u.s.scale &&
+	   !pDecIn->Hi32 && !pDecIn->u1.s1.Mid32)
+	    return VarBstrFromUI4(pDecIn->u1.s1.Lo32, lcid, dwFlags, pbstrOut);
+	FIXME("%c%08lx%08lx%08lx E%02x stub\n",
 	(pDecIn->u.s.sign == DECIMAL_NEG) ? '-' :
 	(pDecIn->u.s.sign == 0) ? '+' : '?',
 	pDecIn->Hi32, pDecIn->u1.s1.Mid32, pDecIn->u1.s1.Lo32,