Avatar billede mortency Nybegynder
26. oktober 2004 - 10:26 Der er 1 kommentar og
1 løsning

Split function til sub

Sub SplitNo(arrDirPhone)
        Dim arrDirPhone(3)
        arrDirPhone(0) = Left(txtDirPhone, 2)
        arrDirPhone(1) = Mid(txtDirPhone, 3, 2)
        arrDirPhone(2) = Mid(txtDirPhone, 5, 2)
        arrDirPhone(3) = Mid(txtDirPhone, 7, 2)
           
        arrDirPhone = arrDirPhone(0) & " " & arrDirPhone(1) & " " & arrDirPhone(2) & " " & arrDirPhone(3)
End Sub

SplitNo("22556677")
Avatar billede mortency Nybegynder
26. oktober 2004 - 10:50 #1
Dette virker heller ikke. Hva er feil?

Sub SplitNo(strInput)
        Dim arrDirPhone(3)
        arrDirPhone(0) = Left(strInput, 2)
        arrDirPhone(1) = Mid(strInput, 3, 2)
        arrDirPhone(2) = Mid(strInput, 5, 2)
        arrDirPhone(3) = Mid(strInput, 7, 2)
           
        strInput = arrDirPhone(0) & " " & arrDirPhone(1) & " " & arrDirPhone(2) & " " & arrDirPhone(3)
        SplitNo = strInput
End Sub
Avatar billede mortency Nybegynder
26. oktober 2004 - 10:58 #2
Sorry blandet Sub og function

Function SplitNo(strInput)
        Dim arrDirPhone(3)
        arrDirPhone(0) = Left(strInput, 2)
        arrDirPhone(1) = Mid(strInput, 3, 2)
        arrDirPhone(2) = Mid(strInput, 5, 2)
        arrDirPhone(3) = Mid(strInput, 7, 2)
           
        strInput = arrDirPhone(0) & " " & arrDirPhone(1) & " " & arrDirPhone(2) & " " & arrDirPhone(3)
        SplitNo = strInput
End Function
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester