日期如何用BCD码表示

程序实例：
LDClock_1s:SM0.5
EU
TODR年bcd:VB10
//读出日期将年、月、日、时、分、秒、空、星期存储在以VB10为起始地址的8个字节中，读出的日期是以BCD码表示的。
读实时时钟，将年月日时分秒----星期复制到以VB10开始的8个字节中，以BCD码存储
LDAlways_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开始的字节中存储的是整数时钟值