Come leggere un decimale

[djjunior]

Sto impazzendo,
ho un dato con decimale su db mysql:
In pratica rsq.fields("Qtap") sul db è 1.00.
pertanto volevo prendere il numero intero cioè 1, quindi ho fatto:

byes = rsq.fields("Qtap")
pozea = Instr(byes, ".")
if pozea > 2 then
   QtaTAPA = Left(byes, pozea - 1)
else
   QtaTAPA = byes
end if
Qta = QtaTAPA

Ma QtaTAPA mi scrive sempre 1.00, ma come mai???
AIUTOOOOO

[optime]

https://www.mrwebmaster.it/asp/formatnumber_9042.html

[SoloWiFi]

QtaTAPA=int(rsq.fields("Qtap"))

[vic53]

dal manuale vbscript

Description 
Returns an expression formatted as a number.
Syntax 
FormatNumber(Expression  [,NumDigitsAfterDecimal [,IncludeLeadingDigit  [,UseParensForNegativeNumbers  [,GroupDigits]]]]) The FormatNumber function syntax has these parts: 
 
Part
Description

Expression
Required. Expression to be  formatted.

NumDigitsAfterDecimal
Optional. Numeric value indicating how many places  to the right of the decimal are displayed. Default value is -1, which indicates  that the computer's regional settings are used.

IncludeLeadingDigit
Optional. Tristate constant that indicates whether  or not a leading zero is displayed for fractional values. See Settings section  for values.

UseParensForNegativeNumbers
Optional. Tristate constant that indicates whether  or not to place negative values within parentheses. See Settings section for  values. 

GroupDigits
Optional. Tristate constant that indicates whether  or not numbers are grouped using the group delimiter specified in the control  panel. See Settings section for values.  


Settings 
The IncludeLeadingDigit, UseParensForNegativeNumbers,  and GroupDigits arguments have the following settings:  
Constant
Value
Description

TristateTrue
-1
True

TristateFalse
 0
False

TristateUseDefault
-2
Use the setting from the computer's regional  settings.




Remarks 
When one or more of the optional arguments are omitted, the values  for omitted arguments are provided by the computer's regional settings.  
 


Note  All settings information comes from the  Regional Settings Number tab.

 



 The following example uses the FormatNumber function to format a  number to have four decimal places:  
Function FormatNumberDemo
  Dim MyAngle, MySecant, MyNumber
  MyAngle = 1.3                ' Define angle in radians.
  MySecant = 1 / Cos(MyAngle)  ' Calculate secant.
  FormatNumberDemo = FormatNumber(MySecant,4) ' Format MySecant to four decimal places.
End Function

vedi se ti è utile..