3381
VB and the development of wizards / Re: Display WHOLE # Only in DRO
« on: December 06, 2012, 09:33:15 PM »
Place something like this in the macropump macro.
DROInteger=CStr(GetOemDro(xx))
Length = Len(DROInteger)
For X = 1 To Length Step 1
lstring=Left(DROInteger,X)
If Right(lstring,1) = "." Then
NewLength = x-1
Exit For
End If
Next X
WholeNo=CInt(Left(DROInteger, NewLength))
SetOemDRO(xx)
DROInteger=CStr(GetOemDro(xx))
Length = Len(DROInteger)
For X = 1 To Length Step 1
lstring=Left(DROInteger,X)
If Right(lstring,1) = "." Then
NewLength = x-1
Exit For
End If
Next X
WholeNo=CInt(Left(DROInteger, NewLength))
SetOemDRO(xx)