Hur fungerar Mod funktionen?
Har skrivit en miniräknare där jag vill ha reda på om talet är ett heltal eller decimaltal. Som jag har fattat det ska Mod skriva ut det som står efter kommatecknet, eller? Så här ser koden ut:

-------------------------------------------------
Dim tal
Option Explicit

Private Sub Command1_Click()

tal= Val(Text1.Text) / Val(Text2.Text)
Text3.Text = tal Mod 1

End Sub
-------------------------------------------------

Det enda som skivs ut i textruta 3 är en nolla...
Hur ska jag göra?

mod lämnar heltals resten vid en division:
3 mod 8 = 2 (tre går två hela ggr i 8 vilket ger 3 * 2 = 6 vilket ger en rest på 8-6 = 2)
2 mod 9 = 1 (2 går 4 hela ggr i 9 vilket ger 2 * 4 = 8 vilket ger en rest på 9-8 = 1)
3 mod 21 = 0 (tre går sju hela ggr i 21 vilket ger 3 * 7 = 21 vilket ger en rest på 21-21 = 0)

Mod är en funktion som visar resten vid heltalsdivision.

Enklast beskriver man det med hjälp av klockan. Om du har 15 timmar
så är detta ett helt varv plus tre timmar (12+3)

Detta motsvarar då 15 mod 12 som är 3

Eller mera matematiskt uttryck så här: a - b(a\b) där a motsvarar
talet 15 ovan och b talet 12. \=heltalsdivision ofta utryckt som div
i matematisk litteratur och i andra programmeringsspråk.

Alltså

15 mod 3 = a-b(a\b)


/[peter.h]

Mod ger dej "resten" vid heltalsdivition, om du vill ha ut decimaldelen i Text3 kan du skriva såhär t.ex.

Text3.Text = (CLng(Text1.Text) Mod CLng(Text2.Text)) / CLng(Text2.Text)

/Johan

Testa annars denna koden ..... borde lösa ditt problem ;)

Dim tal As Double
Option Explicit

Private Sub Command1_Click()

tal = Val(Text1.Text) / Val(Text2.Text)
Text3.Text = tal - Int(tal)

End Sub

//Martin