Ämne: Fördela heltal mellan 1 och 30000 på ny skala
Visa ett inlägg
Oläst 2009-03-12, 14:43 #2
allstars allstars är inte uppkopplad
Klarade millennium-buggen
  
Reg.datum: Apr 2006
Inlägg: 2 126
allstars allstars är inte uppkopplad
Klarade millennium-buggen
 
Reg.datum: Apr 2006
Inlägg: 2 126
Dela med 3000 och avrunda upp till närmaste heltal.
Kod:
Function EgenAbs(Tal)
 If InStr(Tal, ",") <> "0" Then
  EgenAbs = Left(Tal, (InStr(Tal, ",") - 1))
 Else
  EgenAbs = Tal
 End If
End Function
allstars är inte uppkopplad   Svara med citatSvara med citat