dr78: #i97169 TIME returns values [0,1)

# HG changeset patch
# User Eike Rathke [er] <eike.rathke@oracle.com>
# Date 1291398511 -3600
# Node ID ce99b09497844a0d893ab78cb15a2749fcc932bf
# Parent  6ce78a0a434fd8e3b02b66d2a75e988f8fb0ead5

sc/source/core/tool/interpr2.cxx

@@ -297,7 +297,11 @@ void ScInterpreter::ScGetTime()
         double nSec = GetDouble();
         double nMin = GetDouble();
         double nHour = GetDouble();
-        PushDouble( ( (nHour * 3600) + (nMin * 60) + nSec ) / D_TIMEFACTOR );
+        double fTime = fmod( (nHour * 3600) + (nMin * 60) + nSec, D_TIMEFACTOR) / D_TIMEFACTOR;
+        if (fTime < 0)
+            PushIllegalArgument();
+        else
+            PushDouble( fTime);
     }
 }