06. december 2000 - 15:50Der er
7 kommentarer og 1 løsning
HASTER.. formatering af udtræk..
Hejsa..
Jeg har en række priser liggende i en access db. Felt typen er sat til valuta men 2 decimaler (100,00). Men når jeg laver et udtræk indeholder det kun 100. Hvis der i db\'en står 100,75 er ud trækket ok. Men hvis der i db\'en står 100,50 er ud trækket = 100,5
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Function FixIt(Pris) For x=1 to len(Pris) CurrChar=Mid(Pris,x,1) If x=\",\" Then FoundSep=1 exit for end if next If FoundSep=0 then FixIt=Pris Exit function end if AfterSep=Mid(Pris,x,len(pris)-x)) If Len(Aftersep)=1 then Fixit=Pris & \"0\" end if end function
Function FixIt(Pris) For x = 1 To Len(Pris) Currchar = Mid(Pris, x, 1) If Currchar = \",\" Then FoundSep = 1 Exit For End If Next If FoundSep = 0 Then FixIt = Pris Exit Function End If AfterSep = Mid(Pris, x, Len(Pris) - x + 1) If Len(AfterSep) = 1 Then FixIt = Pris & \"0\" Else FixIt = Pris End If
dim decimaler, tallet tallet = \"100,50\" if InStr(1,tallet,\",\",1) = 0 then tallet = tallet & \",00\" else decimaler = len(tallet) - InStr(1,tallet,\",\",1) if decimaler = 1 then tallet = tallet & \"0\" end if end if response.write tallet
%> Skulle kunne gøre det, så skal du bare erstatte variablen tallet med dit eget tal.!
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.
Ny bruger
Nybegynder
Opret
Preview
