日期如何用BCD码表示

程序实例：
LD Clock_1s:SM0.5
EU
TODR 年bcd:VB10
//读出日期将年、月、日、时、分、秒、空、星期存储在以VB10为起始地址的8个字节中，读出的日期是以BCD码表示的。
读实时时钟，将年月日时分秒----星期复制到以VB10开始的8个字节中，以BCD码存储
LD Always_On:SM0.0
LPS
BTI 年bcd:VB10, 年:VW70
AENO
BCDI 年:VW70
AENO
I 2000, 年:VW70
LRD
BTI 月bcd:VB11, 月:VW72
AENO
BCDI 月:VW72
LRD
BTI 日bcd:VB12, 日:VW74
AENO
BCDI 日:VW74
LRD
BTI 时bcd:VB13, 时:VW76
AENO
BCDI 时:VW76
LRD
BTI 分bcd:VB14, 分:VW78
AENO
BCDI 分:VW78
LRD
BTI 秒bcd:VB15, 秒:VW80
AENO
BCDI 秒:VW80
LPP
BTI 星期bcd:VB17, 星期:VW84
AENO
BCDI 星期:VW84
//实时时钟BCD转INT，现在以VB10开始的字节中存储的是整数时钟值