请教木瓜老师的MyFll.FLL设定日期不好用，是什么情况？ - 编程论坛

#2

吹水佬2022-01-20 05:25

在XP用应该没限制，WIN7之后就可能有权限问题。
试试＂以管理员身份运行＂

#3

sych2022-01-20 08:37

i=DATETIME()
DECLARE SHORT SetLocalTime IN win32api STRING SystemTime
cBuf=bintoc(YEAR(i),"2rs")+bintoc(MONTH(i),"2rs")+bintoc(DOW(i)-1,"2rs")+bintoc(DAY(i),"2rs")+bintoc(HOUR(i),"2rs")+bintoc(MINUTE(i),"2rs")+bintoc(SEC(i),"2rs")+bintoc(0,"2rs")
=SetLocalTime(cBuf) &&设置系统日期

#4

mywisdom882022-01-20 08:43

以下是引用sych在2022-1-20 08:37:27的发言：

i=DATETIME()
DECLARE SHORT SetLocalTime IN win32api STRING SystemTime
cBuf=bintoc(YEAR(i),"2rs")+bintoc(MONTH(i),"2rs")+bintoc(DOW(i)-1,"2rs")+bintoc(DAY(i),"2rs")+bintoc(HOUR(i),"2rs")+bintoc(MINUTE(i),"2rs")+bintoc(SEC(i),"2rs")+bintoc(0,"2rs")
=SetLocalTime(cBuf) &&设置系统日期

这个，WIN7 64系统，测试正常

#5

wxzd1232022-01-21 07:42

谢谢各位老师的帮助
con = Sqlstringconnect([Driver={SQL Server};Server=192.168.1.111;UID=sa;PWD=a;Database=hztx])
SQLEXEC(con,"select getdate() as fwqsj","fwqsj")
i=fwqsj.fwqsj
DECLARE SHORT SetLocalTime IN win32api STRING SystemTime
cBuf=bintoc(YEAR(i),"2rs")+bintoc(MONTH(i),"2rs")+bintoc(DOW(i)-1,"2rs")+bintoc(DAY(i),"2rs")+bintoc(HOUR(i),"2rs")+bintoc(MINUTE(i),"2rs")+bintoc(SEC(i),"2rs")+bintoc(0,"2rs")
=SetLocalTime(cBuf) &&设置系统日期
这样没有成功，时间没变？

#6

wxzd1232022-01-21 07:44

以下是引用吹水佬在2022-1-20 05:25:46的发言：

在XP用应该没限制，WIN7之后就可能有权限问题。
试试＂以管理员身份运行＂

请教老师那段代码加到程序中怎么以管理员身份运行，谢谢

#7

吹水佬2022-01-21 07:56

以下是引用wxzd123在2022-1-21 07:44:10的发言：

请教老师那段代码加到程序中怎么以管理员身份运行，谢谢

参考贴：https://bbs.bccn.net/viewthread.php?tid=499309&extra=&highlight=%B9%DC%C0%ED%D4%B1&page=1

#8

mywisdom882022-01-21 08:45

以下是引用wxzd123在2022-1-21 07:42:39的发言：

谢谢各位老师的帮助
con = Sqlstringconnect([Driver={SQL Server};Server=192.168.1.111;UID=sa;PWD=a;Database=hztx])
SQLEXEC(con,"select getdate() as fwqsj","fwqsj")
i=fwqsj.fwqsj
DECLARE SHORT SetLocalTime IN win32api STRING SystemTime
cBuf=bintoc(YEAR(i),"2rs")+bintoc(MONTH(i),"2rs")+bintoc(DOW(i)-1,"2rs")+bintoc(DAY(i),"2rs")+bintoc(HOUR(i),"2rs")+bintoc(MINUTE(i),"2rs")+bintoc(SEC(i),"2rs")+bintoc(0,"2rs")
=SetLocalTime(cBuf) &&设置系统日期
这样没有成功，时间没变？

SQLEXEC(con,"select convert(varchar(19),getdate(),120) as fwqsj","fwqsj")
i=fwqsj.fwqsj
j=datetime()
?type("i"),type("j") && 对比一下，是不是相同，我记得，这样转换后，I好像是C，如果是C,就转换一下，用CTOD()

#9

wxzd1232022-01-23 20:28

以下是引用吹水佬在2022-1-21 07:56:21的发言：

参考贴：https://bbs.bccn.net/viewthread.php?tid=499309&extra=&highlight=%B9%DC%C0%ED%D4%B1&page=1

谢谢老师，两个方法都好用

#10

wxzd1232022-01-23 20:30

以下是引用mywisdom88在2022-1-21 08:45:38的发言：

SQLEXEC(con,"select convert(varchar(19),getdate(),120) as fwqsj","fwqsj")
i=fwqsj.fwqsj
j=datetime()
?type("i"),type("j") && 对比一下，是不是相同，我记得，这样转换后，I好像是C，如果是C,就转换一下，用CTOD()

老师：SQLEXEC(con,"select getdate() as fwqsj","fwqsj")
i=fwqsj.fwqsj
j=datetime()
?type("i"),type("j")
类型都是T呀