共享一下偶写的：
Tranfer Date_And_Time into Int format
integer format date and time is stored in DB500.dbb22-...

L 0 //CLEAR ACCU1 and ACCU2
L 0 //CLEAR ACCU1 and ACCU2
L DB500.DBB 22
BTI
T "HARDWARE_IMFORMATION".DATE_TIME.YEAR
L DB500.DBB 23
BTI
T "HARDWARE_IMFORMATION".DATE_TIME.MONTH
L DB500.DBB 24
BTI
T "HARDWARE_IMFORMATION".DATE_TIME.DAY
L DB500.DBB 25
BTI
T "HARDWARE_IMFORMATION".DATE_TIME.HOUR
L DB500.DBB 26
BTI
T "HARDWARE_IMFORMATION".DATE_TIME.MINUTES
L DB500.DBB 27
BTI
T "HARDWARE_IMFORMATION".DATE_TIME.SECONDS
L DB500.DBB 29
L 15
AW
T "HARDWARE_IMFORMATION".DATE_TIME.DAY_OF_WEEK



SET DAT AND TIME
SET CLOCK:
From Integer Format(HMI) to DATE_TIME format(PLC)


A "HARDWARE_IMFORMATION".DATE_TIME.SetTime_Enable
JNB _001
L "HARDWARE_IMFORMATION".DATE_TIME.SET_YEAR
ITB
T DB500.DBB 44
ITB
L "HARDWARE_IMFORMATION".DATE_TIME.SET_MONTH
ITB
T DB500.DBB 45
L "HARDWARE_IMFORMATION".DATE_TIME.SET_DAY
ITB
T DB500.DBB 46
L "HARDWARE_IMFORMATION".DATE_TIME.SET_HOUR
ITB
T DB500.DBB 47
L "HARDWARE_IMFORMATION".DATE_TIME.SET_MINUTES
ITB
T DB500.DBB 48
L "HARDWARE_IMFORMATION".DATE_TIME.SET_SECONDS
ITB
T DB500.DBB 49
// L "HARDWARE_IMFORMATION".DATE_TIME.SET_DAY_OF_WEEK
// ITB
// T DB500.DBB 51

CALL "SET_CLK"
PDT :="HARDWARE_IMFORMATION".DATE_TIME.SetTimeDT
RET_VAL:=#temp1
_001: NOP 0


每个程序我都这样写，用得着用不着都好，都写下去。呵。