क्या आप कृपया मुझे वीबीए कोड दे सकते हैं जो इस समस्या को हल कर सकता है:

मैं चाहता हूं कि मॉड फंक्शन में शेष भाजक के बराबर हो सके।

उदाहरण: सामान्य स्थिति में मॉड (132,12) = 0 लेकिन मैं चाहता हूं कि जब शेष भाजक के बराबर हो, तो विभाजित करने का अंतिम चरण जो 12 को 12 से विभाजित कर रहा है वह नहीं करता है और शेष 12 हो जाता है। उदाहरण

मैंने यह कोड लिखा है लेकिन ऐसा लगता है कि कुछ गलत है। समस्या क्या है?

Function XLMod(a, b)

XLMod = Int(a - (b * Int(a / b)))

If XLMod(a / 10, b) = 1 And XLMod(a, 10) = 2 Then

   XLMod = b

End If

End Function
0
Hamid M 27 अप्रैल 2019, 08:39

1 उत्तर

सबसे बढ़िया उत्तर

आपको मानक मॉड्यूलो फ़ंक्शन के विशेष अपवाद की आवश्यकता है।

यदि एक सामान्य विभाजन (ए / बी) का परिणाम 1 (जैसे 1, 31, 10001, 12341, ...) के साथ समाप्त होने वाली संख्या में होता है, तो आप चाहते हैं कि यह बी वापस आ जाए।

Function XLMod(a, b)
    XLMod = a Mod b
    If XLMod = 0 And (a / b) Mod 10 = 1 Then XLMod = b
End Function
0
Asger 1 मई 2019, 06:34