Hej!

Går det på något sätt i asp att få reda på de Regionala inställningarna för vilket tecken som används som decimaltecken?

Tack på förhand!

mvh Per Ljung

Utan att direkt tänka efter skulle jag nog göra så här för att få fram vilket tecken som används:

<%=Mid(cStr(1/2),2,1)%>

<%
Function WhatIsDecimal()
  If Mid(cStr(1/2),2,1)="," Then
    WhatIsDecimal = "komma"
  Else
    WhatIsDecimal = "punkt"
  End If
End Function
%>
<%=WhatIsDecimal()%>

<%=Session.LCID%>

<% Session.LCID = 1053 ' Svenska (bl.a. komma som decimalavgränsare) %>

<%
  Dim lcid
  lcid = Session.LCID ' Spara undan orginal LCID
  Session.LCID = 1053 ' Byt till Svenska
'
' Gör något "på svenska"
'
  Session.LCID = lcid ' "Ställ tillbaka" orginal LCID
%>

Function WhatIsDecimal()
Dim tempstr
If IsNumeric(1,2)=True Then tempstr="komma"
If IsNumeric(1.2)=True Then tempstr="punkt"
WhatIsDecimal=tempstr
End Function

Response.Write WhatIsDecimal

I VB syntax är det alltid . som decimal separator.
Eftersom IsNumeric bara tar ett argument så har du ett syntaxfel i din kod.

Varför behöver du vad som är decimaltecken?

(Bara nyfiken, har svårt att se hur det kan vara lösningen på ett problem)

För att jag ska läsa från en textfil med priser där en punkt ibland anges som decimaltecken.
Jag ska sedan spara priserna i en databas och om jag då hade använt punkt som decimaltecken hade databasen tolkat det som en tusentalsavgränsare.

// Per

Så här:

<%

Function strToNr(str) ' As Long
  If Mid(cStr(1/2),2,1)="," Then
    ' komma, byt ut punkt till komma
    strToNr = cLng(Replace(str,".",","))
  Else
    ' punkt, byt ut komma till punkt
    strToNr = cLng(Replace(str,",","."))
  End If
End Function

Response.Write(strToNr("10.50"))
Response.Write(strToNr("10,50"))

%>

För att spara decimaltat till databasen så använder en parameterfråga.
Se mitt andra inlägg: [enkelt citattecken]