---
url: /flow/guide/scripting-reference/functions/barcode/ean13toean128.md
---

# EAN13toEAN128

## Declaration

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

### Example

```pascal
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.