Convert IBM Packed Decimal from DISAM DB to Integer

Category:
Database
Type:
Snippets
Difficulty:
Intermediate
Author:
Anonymous

Version Compatibility: Visual Basic 6

More information:
This Function will take IBM's Packed decimal and convert it into an integer. this was written to convert from an ISAM file but will work on any packed decimal.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:

Code: