Slettet bruger
02. juni 2005 - 11:58
Der er
5 kommentarer og 4 løsninger
Indsætte punktum 2 tegn fra højre
Jeg har et tal feks: 1900 Tallet ønsker jeg skal se således ud: 19.00 Jeg skal derfor bruge en kode der regner tager to tegn fra højre og indsætter et punktum. a la: RightBound(Indsæt punktum) :-D
Annonceindlæg fra Computerworld
strTal = "12345" intLength = Len(strTal) strTmp1 = Left(strTal, intLength -2) strTmp2 = Right(strTal,2) Response.Write(strTmp1 & ":" & strTmp2) //>Rune
Her har du den i en funktion: Function SplitString(strTxt) intLength = Len(strTxt)-2 strTmp1 = Left(strTxt, intLength) strTmp2 = Right(strTxt,2) SplitString = strTmp1 & ":" & strTmp2 End Function Response.Write(SplitString("12345")) //>Rune
cpufan> Hvis det skal være et tal kan vi jo bare sige: Function SplitString(strTxt) intLength = Len(strTxt)-2 strTmp1 = Left(strTxt, intLength) strTmp2 = Right(strTxt,2) SplitString = strTmp1 & "." & strTmp2 End Function dblDeltTal = CDbl(SplitString("12345")) //>Rune
Du kan også vælge og gøre funktionen mindre: Function SplitString(strTxt) strDelimiter = "." SplitString = Left(strTxt, Len(strTxt)-2) & strDelimiter & Right(strTxt,2) End Function Response.Write(SplitString("12345")) //>Rune