22. november 2005 - 10:18
Der er
7 kommentarer og 1 løsning
anvende punktum istedet for komma i udregning
Når jeg laver en udregning. Eks: Select Case TxtProduktlinie.Text Case "cr" SP1 = CStr(X * 10) SP2 = CStr(X * 15) SP3 = CStr(X * 15) SP4 = CStr(X * 15) Case "rc" SP1 = "Gennemgående" SP2 = CStr(X * 20) SP3 = CStr(X * 25) SP4 = CStr(X * 30) Case "pf" SP1 = "Gennemgående" SP2 = CStr(X * 20) SP3 = CStr(X * 25) SP4 = CStr(X * 30) Case "of" SP1 = "Gennemgående" SP2 = CStr(X * 15) SP3 = CStr(X * 20) SP4 = CStr(X * 20) Case Else 'MsgBox ("husk at udfylde") End Select TxtSPLae1Resultat.Text = SP1 TxtSPLae2Resultat.Text = SP2 TxtSPLae3Resultat.Text = SP3 TxtSPLae4Resultat.Text = SP4 Hvordan sørger jeg for at hvis resultatet ikke er et helt talt at den anvender punktum istedet for komma, da SQL ikke kan finde ud af komma. /Elvstine
Annonceindlæg fra Barco
22. november 2005 - 11:39
#1
Hvad med at lave en replace: DIN_STRENG = Replace(DIN_STRENG & "", ",", ".")
22. november 2005 - 17:06
#2
Det fatter jeg ikke. Jag har mange udregninger. Skal jeg gøre dette ved alle?? Hvor skal jeg sæte dem i den ovenstående hvis det er??
22. november 2005 - 17:09
#3
TxtSPLae1Resultat.Text = Replace(str(SP1) ", ",", ".") TxtSPLae2Resultat.Text = Replace(str(SP2) ", ",", ".") TxtSPLae3Resultat.Text = Replace(str(SP3) ", ",", ".") TxtSPLae4Resultat.Text = Replace(str(SP4) ", ",", ".") mon ikke sådan
22. november 2005 - 17:11
#4
TxtSPLae1Resultat.Text = Replace(str(SP1),",", ".") TxtSPLae2Resultat.Text = Replace(str(SP2),",", ".") TxtSPLae3Resultat.Text = Replace(str(SP3),",", ".") TxtSPLae4Resultat.Text = Replace(str(SP4),",", ".") der var vist for mange "
29. november 2005 - 12:40
#5
Jeg ville nok skrive: SP2 = CStr(X) * 20 i stedet for SP2 = CStr(X * 20) Herefter skifter du til komma som vist ovenfor
30. november 2005 - 09:21
#6
Er det svar nok, så bed om svar og luk spørgsmålet :o) Jeg skal ikke have points
07. december 2005 - 16:21
#7
Kabbak: Smid et svar og få point
07. december 2005 - 17:01
#8
et svar ;-))
Kurser inden for grundlæggende programmering