EAN13toEAN128

Declaration

Function EAN13toEAN128( const aBarcode : string; aPackDate, aExpiryDate : TDateTime) : string

Example

procedure OnMapEvent(var Value:Variant);
begin
Value := EAN13toEAN128('1234567890123',Date,Date+30);
end;

Description

EAN13toEAN128 returns a EAN128 barcode built from aBarcode, aPackDate, and aExpiryDate.

The dates are encoded together with the EAN13 barcode to generate a EAN128 barcode.