proaccess > jo, clng() virker, men kun sådan: clng(\"123\") = 123. Hvis du prøver clng(\"123abc\") får du en fejlmeddelelse - jeg leder efter en funktion, som i dette tilfælde returnerer funktion(\"123abc\") = 123.
Kan du så ikke prøve at lave din \"egen\" funktion til håndtering af dette...
Function str2lng (strValue as String) as Long Dim intLoop intLoop = 1 While Instr(\"0123456789\", Mid(strValue, intLoop, 1)) > 0 intLoop = intLoop + 1 Wend str2lng = cLng(\"0\" + Left(strValue, intLoop)) End Function
Ovenstående er IKKE testet, men du burde kunne arbejde videre derfra...
Jeg har endnu ikke fundet funktionen i VBScript - den fandtes i Commodore 64 Basic V2, så jeg har ikke fantasi til at forestille mig at den ikke findes i VBScript - jeg lukker spørgsmålet, men tak for de mange gode forslag og intentioner!
Du fik ellers et rigtigt godt svar: DEN FUNKTION FINDES IKKE !!!
Der var derudover en \"hjemmekonstrueret\" funktion til fri afbenyttelse, så jeg mener det er lidt tyndt at du selv tager points for dette spørgsmål, men det er selvfølgelig din egen samvittighed du skal leve med !!!
JA, VBScript er en kraftigt neddroslet version af Visual Basic, hvor man har fravalgt blandt andet denne funktion...
Desuden kan jeg bemærke at fordi en funktion har været med fra Commodore64 Basic V2, er der absolut ingen garanti for at den er tilgængelig i VBScript - Det er jo hver sin compiler, og svarer til at hver Ford-bil skal have både Ford- og Opel-motorer og omvendt...
OK, proaccess, jeg vælger, (atter) dybt rystet over Micro$ofts ignorance, at tro på, at funktionen mangler i VBScript. I den situation skal du selvfølgelig have dine 15 point for din funktion. Jeg smider lige et spørgsmål, du kan besvare.
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.