Functions.Date2Bin 方法 |
命名空间: XSharp.RT
1FUNCTION RecordDate() AS LOGIC 2 LOCAL nh 3 LOCAL lSuccess := FALSE AS LOGIC 4 nh := FOpen2("debug.doc", FO_READWRITE) 5 // 假设 debug.doc 文件已存在 6 IF nh != F_ERROR 7 FWrite(nh, Date2Bin(Today())) 8 FClose(nh) 9 lSuccess := TRUE 10 ELSE 11 ? "打开 debug.doc 时发生错误" 12 ? FError() 13 ENDIF 14 RETURN lSuccess