00401066  - FF25 50104000        jmp dword ptr ds:[<&msvbvm60.rtcR8ValFrom>; msvbvm60.rtcR8ValFromBstr
0040106C  - FF25 44104000        jmp dword ptr ds:[<&msvbvm60.rtcLeftCharB>; msvbvm60.rtcLeftCharBstr
00401072  - FF25 14104000        jmp dword ptr ds:[<&msvbvm60.rtcTrimVar>] ; msvbvm60.rtcTrimVar
00401078  - FF25 40104000        jmp dword ptr ds:[<&msvbvm60.rtcGetSettin>; msvbvm60.rtcGetSetting
0040107E  - FF25 0C104000        jmp dword ptr ds:[<&msvbvm60.rtcMsgBox>]  ; msvbvm60.rtcMsgBox  提示消息
00401084  - FF25 34104000        jmp dword ptr ds:[<&msvbvm60.rtcEndOfFile>; msvbvm60.rtcEndOfFile
0040108A  - FF25 38104000        jmp dword ptr ds:[<&msvbvm60.rtcImmediate>; msvbvm60.rtcImmediateIf
00401090  - FF25 10104000        jmp dword ptr ds:[<&msvbvm60.rtcDoEvents>>; msvbvm60.rtcDoEvents
00401096  - FF25 4C104000        jmp dword ptr ds:[<&msvbvm60.rtcGetPresen>; msvbvm60.rtcGetPresentDate
0040109C  - FF25 08104000        jmp dword ptr ds:[<&msvbvm60.rtcDateDiff>>; msvbvm60.rtcDateDiff  这个是计算日期的函数

建议从rtcMsgBox与rtcDateDiff函数下手分析。