Your question is not clear.
That data sent "as is" will be read by the other system. So, it can do whatever the heck it wants.
The data you have can be sent or read or added up. If you add up the above numbers then you get 100.
You get this result even if you use a 16 bit system now.
You can use a variable type of single in your VBA - this will produce the SAME results if you were say running 16 DOS computer, and declared a data type of single in Access.
Remember, computers don't hold real (floating) numbers to an exact amount.
You can see this rounding EVEN if you fire up the LATEST 64 bit version of Access.
Note this code in VBA (and you can EVEN run this code in Excel, and you get the SAME results!!!).
VBA - Access - use single variable type:
Public Sub TestAdd()
Dim MyNumber As Single
Dim I As Integer
For I = 1 To 10
MyNumber = MyNumber + 1.01
Debug.Print MyNumber
Next I
End Sub
Here is the output of the above:
1.01
2.02
3.03
4.04
5.05
6.06
7.070001
8.080001
9.090001
10.1
You can see that even Access as adding just a few numbers is already making a mistake.
However, the numbers you are outputting do add up to 100, and they will on a 16 bit system.
If I fire up my old copy of DOS 5.0, and write this code (QuickBasic was part of dos 5), we have this code:
DIM intF AS INTEGER
DIM strF AS STRING
DIM strOneLine AS STRING
DIM mytotal AS SINGLE
DIM OneValue AS SINGLE
DIM strOneValue AS STRING
mytotal = 0
strF = "c:\TEST1\D.TXT"
intF = FREEFILE
OPEN strF FOR INPUT AS intF
DO WHILE EOF(intF) = False
' get one line of data
LINE INPUT #intF, strOneValue
OneValue = VAL(strOneValue)
mytotal = mytotal + OneValue
PRINT mytotal, OneValue, strOneValue
LOOP
CLOSE
PRINT "-------------------"
PRINT "Total = "
PRINT mytotal
The above outputs the same as Access. Same result!!!
So you can use 16 bit format numbers. Whatever your code in Access does to output that data should do its math with single variable types. The result should be the same. As above shows?
Running Access x64 bits on a x64 bit machine?
We get a result of 100 as a total.
And as above shows, running DOS 5.0 and old QuickBasic (actually QBASIC), we see the same result.
So the numbers as outputted are correct. I suspect that target system WILL in fact result in a value of 100, but you want the total to be 99.999. Your output is the issue here.
If you can do your calculations with VBA "single" variables, then your output should match the 16 bit software unless they are using some different math.
edit:
The output of that above code, in DOS 5.0, or the latest version of Access is this:
32.504 32.504 32.504
52.151 19.647 19.647
61.974 9.823 9.823
71.797 9.823 9.823
77.686 5.889 5.889
82.598 4.912 4.912
86.331 3.733 3.733
89.774 3.443 3.443
92.721 2.947 2.947
94.686 1.965 1.965
95.864 1.178 1.178
96.846 0.982 0.982
97.67 0.824 0.824
98.268 0.598 0.598
98.792 0.524 0.524
99.121 0.329 0.329
99.40701 0.286 0.286
99.673 0.266 0.266
99.866 0.193 0.193
99.94801 0.082 0.082
100 0.052 0.052
-------------------
Total = 100
Access VBA code for above:
Sub MyAddTest()
' open a text file, read each value, add it up.
Dim intF As Integer
Dim strF As String
Dim strOneLine As String
Dim mytotal As Single
Dim OneValue As Single
Dim strOneValue As String
mytotal = 0
strF = "c:\test4\sampledata.txt"
intF = FreeFile
Open strF For Input As intF
Do While EOF(intF) = False
' get one line of data
Line Input #intF, strOneValue
OneValue = strOneValue
mytotal = mytotal + OneValue
Debug.Print mytotal, OneValue, strOneValue
Loop
Close
Debug.Print "-------------------"
Debug.Print "Total = " & mytotal
End Sub
Regards,
Albert D. Kallal (Access MVP 2003-2017)
Edmonton, Alberta Canada
