01. december 2005 - 08:44
Der er
1 kommentar og
1 løsning
Konvertering fra DK til US HJÆLP?
Jeg har et KÆMPE problem!
Jeg har et Excel regneark, som kan slå data op i en Access Database....
Det virker FINT i DK, men har sendt den til en kollega i US, og der går det galt!!
Der er nemlig komma, altså decimal tal i Databasen, og når jeg så hente data fra den, så bliver eks: 819,4 til 8194.....
Hvad skal jeg gøre??
Det er en SQL VBA kode der henter fra Access Databasen..
01. december 2005 - 08:47
#1
Jeg har prøvet lidt med det her:
-------------------------------------------------------------------------------
Do Until rsInletFlangeData.EOF
On Error Resume Next
If Sheets("Hovedark").Range("DatabaseStd") = "US" Then
Sheets("Hovedark").Range("ø_inlet") = CLng(Replace((rsInletFlangeData("ID")), ",", "."))
Sheets("Hovedark").Range("D61") = CLng(Replace((rsInletFlangeData("OD")), ",", "."))
Sheets("Hovedark").Range("D62") = CLng(Replace((rsInletFlangeData("TotalHeight")), ",", "."))
Sheets("Hovedark").Range("D63") = CLng(Replace((rsInletFlangeData("PCD")), ",", "."))
Sheets("Hovedark").Range("D64") = rsInletFlangeData("n") & "xØ" & rsInletFlangeData("d2")
Sheets("Hovedark").Range("D65") = CLng(Replace((rsInletFlangeData("Weight")), ",", "."))
Sheets("Hovedark").Range("D66") = CLng(Replace((rsInletFlangeData("Bertelkant")), ",", "."))
Sheets("Hovedark").Range("D73") = InletFlangeStandard & ", OD=" & CLng(Replace((rsInletFlangeData("OD")), ",", ".")) & ", PCD=" & CLng(Replace((rsInletFlangeData("PCD")), ",", ".")) & ", nxd2=" & rsInletFlangeData("n") & "xØ" & rsInletFlangeData("d2")
Sheets("Hovedark").Range("U13") = rsInletFlangeData("Flangekode")
Else
Sheets("Hovedark").Range("ø_inlet") = CDec(rsInletFlangeData("ID"))
Sheets("Hovedark").Range("D61").Value = CDec(rsInletFlangeData("OD"))
Sheets("Hovedark").Range("D62").Value = CDec(rsInletFlangeData("TotalHeight"))
Sheets("Hovedark").Range("D63").Value = CDec(rsInletFlangeData("PCD"))
Sheets("Hovedark").Range("D64").Value = rsInletFlangeData("n") & "xØ" & rsInletFlangeData("d2")
Sheets("Hovedark").Range("D65").Value = CDec(rsInletFlangeData("Weight"))
Sheets("Hovedark").Range("D66").Value = CDec(rsInletFlangeData("Bertelkant"))
Sheets("Hovedark").Range("D73") = InletFlangeStandard & ", OD=" & CDec(rsInletFlangeData("OD")) & ", PCD=" & CDec(rsInletFlangeData("PCD")) & ", nxd2=" & rsInletFlangeData("n") & "xØ" & rsInletFlangeData("d2")
Sheets("Hovedark").Range("U13").Value = rsInletFlangeData("Flangekode")
End If
----------------------------------------------------
Men virker det???
