fra komma tal til tekst

pos = instr(1, dinstr, \",\")
if pos=0 then
  dinstr = dinstr & \",00\"
end if
Replace (dinsring,\",\",\":\")

Jeg er ikke sikker på den hedder replace, undersøger lige.

Den hedder Replace

du kunne bruge noget á la:
kommatal = rs(\"vaerdi\") \'(gokker værdi fra db)
if instr(kommatal, \",\") then
  replace(kommatal, \",\", \":\")
end if

dinstr = Cstr(rs(\"felt i db\"))
if NOT (instr(1, dinstr, \",\")) then
  dinstr = dinstr & \",00\"
end if
Replace (dinsring,\",\",\":\")

jeg har ikke forklaret mig ordentligt
jeg vil gerne have en funktion der kan klare det.
jeg har selv lavet følgende script men kan ikke få det ind i en function

input = \"9,2\"
    strInput = cstr(input)
    intKomma = instr(strInput, \",\") \'position af komma
    strTime = mid(strInput, 1, intKomma-1) \' find time
    strMinut = mid(strInput, intKomma+1,len(strInput)) \'find minut
   
    If len(strMinut) = 1 Then
        min = \":\" & strMinut & \"0\"
    Else
        min = \":\" & strMinut
    End If
   


Response.write strTime & min

kan i hjælpe?

Et løst opkast, midt i en tid hvor min webserver er stået af =:-(

function konv(tal)
..... past egen kode ind
end function

-------------
kald af funktion
konv(rs(\"vaerdi\"))

Nå nu virker det sgu her er kden hvis der er andre kan bruge den:

Function timeminut(input)
    If len(input) > 1 Then
        intKomma = instr(input, \",\") \'position af komma
        strTime = mid(input, 1, intKomma-1) \' find time
        strMinut = mid(input, intKomma+1,len(input)) \'find minut
       
        If len(strMinut) = 1 Then
            min = \":\" & strMinut & \"0\"
        Else
            min = \":\" & strMinut
        End If
    Else
        strTime = input & \":00\"
    End If   
    timeminut = strTime & min
End Function

input = \"9,2\"
strInput = cstr(input)
intKomma = instr(strInput, \",\") \'position af komma
if intKomma > 0 then
  strTime = mid(strInput, 1, intKomma-1) \' find time
  strMinut = mid(strInput, intKomma+1,len(strInput)) \'find minut
else
strTime = strInput
strMinut = \"00\"
end if

If len(strMinut) = 1 Then
  min = \":\" & strMinut & \"0\"
Else
  min = \":\" & strMinut
End If

gbn

Der er fejl i din kode !!

Så prøv den her:

\'Formatering af klokkeslet
Function timeminut(input)
    If Cbool(instr(input, \".\") = 0) Then
        timeminut = input & \":00\"
    Else
        intKomma = instr(input, \".\") \'position af komma
        strTime = mid(input, 1, intKomma-1) \' find time
        strMinut = mid(input, intKomma+1,len(input)) \'find minut
       
        If len(strMinut) = 1 Then
            min = \":\" & strMinut & \"0\"
        Else
            min = \":\" & strMinut
        End If
        timeminut = strTime & min
    End If   
End Function

Jeps.