Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
I did read it, and I STILL want to see your code!!!it isn't working.
i changed all the CLng to CDbl or CSng (tried both) and neither works
the code i have is the code from your post 12 Feb 09 16:50
Set MyScreen = Sess0.Screen
Set MyArea = MyScreen.Area(6, 17, 6, 22,, 3)
mysum1 = CDbl(MyArea)
If IsNumeric(Mysum1) Then
If MySum1 < CDbl(85.00) Then
Msgbox "amount must be at least $85.00"
Else
DiffMyArea = CDbl(MySum1) - CDbl(75.00)
Set MyArea = MyScreen.Area(17,17,17,22,,3)
MyArea.Select
MyArea.Copy
Set MyArea = MyScreen.Area(6,17,6,22,,3)
MyArea.Select
MyArea.Paste
MyScreen.PutString CDbl(DiffMyArea), 6, 17
End IF
End If
[code/]
Set MyArea = MyScreen.Area(10, 46, 10, 49, , 3)
If IsNumeric(MyArea.value) Then
DiffMyArea = CDbl(MyArea) - CDbl(0.5)
End If
MyScreen.PutString " ", 10, 46
MyScreen.PutString DiffMyArea, 10, 46
Set MyArea = MyScreen.Area(10, 46, 10, 49, , 3)
MySum = CDbl(MyArea)
If IsNumeric(MySum) Then
DiffMyArea = MySum - CDbl(0.5)
End If
[b]
MyScreen.PutString " ", 10, 46[/b]
MyScreen.PutString DiffMyArea, 10, 46
Set MyScreen = Sess0.Screen
Set MyArea = MyScreen.Area(6, 17, 6, 22,, 3)
mysum1 = CDbl(MyArea.Value)
If IsNumeric(Mysum1) Then
If MySum1 < CDbl(85#) Then
Msgbox "amount must be at least $85.00 to "
Else
DiffMyArea = CDbl(MySum1) - CDbl(75#)
Set MyArea = MyScreen.Area(17,17,17,22,,3)
MyScreen.PutString" ", 6, 17
MyScreen.PutString CDbl(DiffMyArea), 6, 17
End IF
End If
MyScreen.PutString" ", 6, 17