日期如何用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开始的字节中存储的是整数时钟值