Sum af ulige/lige pladser i 12 cifret tal

VBA:
Sub tal12Sum()
Dim ulige As Byte, lige As Byte
    tal = 123456789123#

    ulige = 0
   
    For f = 1 To 12 Step 2
        ulige = ulige + Int(Mid(CStr(tal), f, 1))
    Next f
   
    For f = 2 To 12 Step 2
        lige = lige + Int(Mid(CStr(tal), f, 1))
    Next f
 
   
End Sub

supertekst
VBA har jeg ikke kendskab til.
Har du mulighed for at skrive det sådan, at det kan sættes det ind i min forespørgsel?

Hvad skal det anvendes til?

supertekst
Det skal bruges til at udregne et kontroltal der senere skal tilføjes det 12 cifrede tal i enden.

Ok - vil det så sige, at der er en forespørgsel med et antal poster, hvor disse beregninger skal udføres?

supertekst
Ja beregningen ønsker jeg skal ske i en forespørgsel for hver post.

Ok - vi nærmer os.. Må det ske efter at forespørgslen er kørt?

Hvis Ja - prøv at beskriv opbygningen af denne (Fsp)her eller send filen - @-adr. under min profil

supertekst

Grundlæggende er der en tabel med 4 talfelter som vi kan kalde [felt1], [felt2], [felt3] og [felt4].

I forespørgslen skal de 4 felter sammensættes til et felt. Dette tal kommer derefter op på 12 cifrer. Dette felt kalder vi [12cifrer]. Feltet er sammensat sådan i forespørslen:
12cifrer:[felt1] & [felt2] & [felt3] & [felt4]

Derefter ønsker at lave et felt med summen af tallene på de ulige pladser. Vi kalder feltet [SumUlige]

Bagefter laver jeg et felt med summen af tallene på de lige pladser. Det felt kalder jeg [SumLige]

Jeg har forsøgt at anvende sum((mid[12cifrer];1;1)+(mid[12cifrer];3;1)+ o.s.v.) for feltet [SumUlige], men løber ind i problemer. Det er som om at den ikke tolker det 12 cifrede tal som et tal.

? Så det er her jeg er løbet ind i en mur.

Ok - vender tilbage senere

SumUlige: Int(Mid([12cifrer];1;1))+Int(Mid([12cifrer];3;1))+Int(Mid([12cifrer];5;1))+Int(Mid([12cifrer];7;1))+Int(Mid([12cifrer];9;1))+Int(Mid([12cifrer];11;1))

giver = 27

Så skulle princippet også kunne anvendes for SumLige

supertekst

Jeg skal se, om jeg kan få afprøvet dit forslag i morgen mandag på arbejde. Det ser interessant ud.

Hvad er funktionen Int egentlig i den her forbindelsen?

Konvertering til heltal

supertekst

Vil jeg ikke få det samme uden Int i formlen? Der er jo ingen komma i det 12 cifrede tal.

Du skriver i #8:
"Jeg har forsøgt at anvende sum((mid[12cifrer];1;1)+(mid[12cifrer];3;1)+ o.s.v.) for feltet [SumUlige], men løber ind i problemer. Det er som om at den ikke tolker det 12 cifrede tal som et tal."


Mid() anvendes på datatypen String (Tekst). Int konverterer til tal for at der kan dannesen sum.

supertekst
Dit forslag fungerer fint. Jeg sender dig de 200. Tak for hjælpen.

Fint & selv tak...