Avatar billede steen_hansen Forsker
13. marts 2006 - 21:35 Der er 13 kommentarer og
1 løsning

Een gang for alle

Ældre problem som gerne skulle løses NU :o)

Dim vLastSeen
vLastSeen = RS("lastseen")
vLastSeen = Addz(day(vLastSeen)) & "-" & Addz(month(vLastSeen)) & "-" & year(vLastSeen) & " " & Addz(hour(vLastSeen)) & ":" & Addz(Minute(vLastSeen)) & ":" & Addz(Second(vLastSeen))

<%
Function AddZ(ByVal vNumber)
    Addz = CStr(vNumber)

    If len(Addz) < 2 Then _
        Addz = "0" & AddZ
End Function
%>

<td style="width: 160px; padding: 3px 0px 0px 0px;"><%=vLastSeen%></td>

Det ovenstående giver nedenstående fejl, og som jeg forstår det, er det fordi funktionen forsøger at skrive en værdi som tekst:

Microsoft VBScript runtime error '800a005e'
Invalid use of Null: 'CStr'


Mit håb er, at jeg kan få sat et 0 (nul) foran, hvis klokken ikke er 10:00, så der kommer til at stå 09:58:17 istedet for 9:58:17. Nogen der kan hjælpe med funktionen?
Avatar billede eagleeye Praktikant
13. marts 2006 - 21:44 #1
Det kunne tyde på at tallet har værdien null så prøv at gøre sådan her så den skulle blive til en streng:

Addz = CStr("" & vNumber)


Alternativt kan du bruge metoden med right til at sætte 0 indforan det gøres ved at insdsætte et eller to (det kunne tyde på du kan få et tomt tal) "0"'er og så bruge right til at tage de tal fra højre med venstre. right("00"&9,2) bliver til 09:

a = 9
b = right("00" & a, 2)

så din funktion bliver i stil med:
<%
Function AddZ(ByVal vNumber)
    AddZ = right("00" & vNumber, 2)
End Function
%>
Avatar billede spaceus Nybegynder
13. marts 2006 - 21:45 #2
der er 2 muligheder som jeg ser det...
lav feltet i databasen om til en streng eller lav 9 om til 09 når du trækker det ud igen
Avatar billede steen_hansen Forsker
13. marts 2006 - 21:50 #3
Hej eagleeye, længe siden :o)

Hvis jeg bruger dit sidste eksempel, erstattes tidspunktet

13/3/2006 18:22:04

med

00-00- 00:00:00

- og det var jo ikke meningen :o)
Avatar billede steen_hansen Forsker
13. marts 2006 - 21:51 #4
Hvor skal dette ind?

a = 9
b = right("00" & a, 2)
Avatar billede steen_hansen Forsker
13. marts 2006 - 21:51 #5
spaceus, jeg forsøger netop at få sat et o foran :o)
Avatar billede eagleeye Praktikant
13. marts 2006 - 21:52 #6
Det skal ikke ind :) Det var bare et lille eksempel. Hvis du vil bruge right skal du rette din funktion:

<%
Function AddZ(ByVal vNumber)
    Addz = CStr(vNumber)

    If len(Addz) < 2 Then _
        Addz = "0" & AddZ
End Function
%>

Til denne:

<%
Function AddZ(vNumber)
    AddZ = right("00" & vNumber, 2)
End Function
%>
Avatar billede steen_hansen Forsker
13. marts 2006 - 21:55 #7
Så er den der sq. Smid et svar, eagleeye :o)
Avatar billede eagleeye Praktikant
13. marts 2006 - 21:56 #8
Ok her er et svar ;)
Avatar billede steen_hansen Forsker
13. marts 2006 - 21:59 #9
Forøvrigt! Hvis det er ok for dig, har jeg et lille tillægsspørgsmål:

Hvis brugeren indtaster 8 cifre (tlf.nr.), kan man dele det op i 4 klaser á 2 cifre i hver, hvis du forstår. Hvordan deler jeg det op, så det bliver vist i 2 klaser á cifre istedet?

Jeg sætter lige point op, hvis det er ok for dig. Eller skal jeg oprette et nyt spm? :o)
Avatar billede steen_hansen Forsker
13. marts 2006 - 22:00 #10
... á 4 cifre istedet?
Avatar billede steen_hansen Forsker
13. marts 2006 - 22:00 #11
strPhone = Mid(RS("phone"),1,2) & " " & Mid(RS("phone"),3,2) & " " & Mid(RS("phone"),5,2) & " " & Mid(RS("phone"),7,2)
Avatar billede eagleeye Praktikant
13. marts 2006 - 22:04 #12
Ja så kan du prøve sådan her:

strPhone = Mid(RS("phone"),1,4) & " " & Mid(RS("phone"),5,4)
Avatar billede steen_hansen Forsker
13. marts 2006 - 22:05 #13
Ah! Hvor svært kan det være? :o)

MANGE tak for hjælpen, det var rart at få det på plads :o)
Avatar billede eagleeye Praktikant
13. marts 2006 - 22:06 #14
tak for point :)
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