---

Lad os nu antage at jeg i en post i en tabel har et navn som hedder
februar2004 og jeg gerne vil udskrive denne men kun "februar" og ikke 2004,
hvordan kan man så gøre? jeg har kigget på lidt len, left, mid og right, men
jeg kan ikke se at jeg kan bruge nogle af disse til formålet?

---

Belial skrev:

> Lad os nu antage at jeg i en post i en tabel har et navn som
> hedder februar2004

Et navn? Poster har ikke navne, men værdier i felter. Overvej evt.
din datastruktur - hvis du har brug for at adskille værdierne måned
og år skal du måske lægge dem i hver deres felt. Omvendt er det en
fordel at bruge en datotype hvis du skal kunne regne med
datoværdierne i posterne. I det tilfælde vil du kunne få såvel
februar som 2004 ud med datokommandoer.

> "februar" og ikke 2004, hvordan kan man så gøre? jeg har
> kigget på lidt len, left, mid og right, men jeg kan ikke se at
> jeg kan bruge nogle af disse til formålet?

Jo - det kan du nu godt. Her er en generel funktion til at give alt
minus de sidste x tegn af en streng:

Function KlipTekst(teksten, antalTegn)
   Dim lTekst
   lTekst = len(teksten)
   If lTekst <= antalTegn Then
       KlipTekst = ""
   Else    
       KlipTekst = Left(teksten, lTekst - antalTegn)
   End If
End Function

Funktionen er ikke afprøvet, men den burde virke.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> Et navn? Poster har ikke navne, men værdier i felter.

Hmm... det er nok bare der lige har blandet begreberne sammen

> Jo - det kan du nu godt. Her er en generel funktion til at give alt
> minus de sidste x tegn af en streng:

Tak for det. Den vil jeg forsøge mig med.

---

"Belial" wrote in message

> Lad os nu antage at jeg i en post i en tabel har et navn som hedder
> februar2004 og jeg gerne vil udskrive denne men kun "februar" og ikke
2004,
> hvordan kan man så gøre? jeg har kigget på lidt len, left, mid og right,
men
> jeg kan ikke se at jeg kan bruge nogle af disse til formålet?
>
Jow da, de skal bare kombineres lidt

Len("mystring") = 8
Left("mystring", 2) = "my"

Den her vil give længden af strengen - 4 karakterer
Len("mystring") - 4 = 4

Prøv så med den her ting:

Left("mystring", Len("mystring") - 4) = "mystr"

Et tip:
Brug VBA editoren i word eller excel når du skal prøve ting af
Gå til immediate vinduet (Ctrl-G)

- Peter

---

> Prøv så med den her ting:
>
> Left("mystring", Len("mystring") - 4) = "mystr"

Tak for hjælpen. Det er en alternativ måde at gøre på ift. det Jens
foreslog, men jeg vil også prøve dit forslag af.