关于取现行时间增加时间不能精确到秒的问题

sjround

我想实现能取现行时间然后加上自己设置的时间，我用到以下这个代码（增减时间 (取现行时间 (), #分钟, 到整数 (编辑框1.内容))），虽然能实现取现行时间在增加自己设置的时间，但是不能精确到秒

比如现在是0点40分15秒，我自己设置了多加1分钟，到了0点41分就会提醒了，但是差了15秒，求指教如何精确到秒

oldghost

  

子程序名	返回值类型	公开	备 注
取时间毫秒	文本型		所取内容为当前即时毫秒数值(Milliseconds)

变量名	类 型	静态	数组	备 注
Time	SYSTEMTIME
Milliseconds	文本型			毫秒

系统时间 (Time)
判断 (Time.Milliseconds ＝ 0)
Milliseconds ＝ “000”
判断 (取文本长度 (到文本 (Time.Milliseconds)) ＝ 1)
Milliseconds ＝ “00” ＋ 到文本 (Time.Milliseconds)
判断 (取文本长度 (到文本 (Time.Milliseconds)) ＝ 2)
Milliseconds ＝ “0” ＋ 到文本 (Time.Milliseconds)
Milliseconds ＝ 到文本 (Time.Milliseconds)
返回 (Milliseconds)

.版本 2<br /> <br /> .子程序 取时间毫秒, 文本型, 公开, 所取内容为当前即时毫秒数值(Milliseconds)<br /> .局部变量 Time, SYSTEMTIME<br /> .局部变量 Milliseconds, 文本型, , , 毫秒<br /> <br /> 系统时间 (Time)<br /> .判断开始 (Time.Milliseconds ＝ 0)<br />     Milliseconds ＝ “000”<br /> .判断 (取文本长度 (到文本 (Time.Milliseconds)) ＝ 1)<br />     Milliseconds ＝ “00” ＋ 到文本 (Time.Milliseconds)<br /> .判断 (取文本长度 (到文本 (Time.Milliseconds)) ＝ 2)<br />     Milliseconds ＝ “0” ＋ 到文本 (Time.Milliseconds)<br /> .默认<br />     Milliseconds ＝ 到文本 (Time.Milliseconds)<br /> .判断结束<br /> 返回 (Milliseconds)

  

数据类型名	公开	备 注
SYSTEMTIME		//SYSTEMTIME(取系统时间)
成员名	类 型	传址	数组	备 注
Year	短整数型			wYear
Month	短整数型			wMonth
DayOfWeek	短整数型			wDayOfWeek
Day	短整数型			wDay
Hour	短整数型			wHour
Minute	短整数型			wMinute
Second	短整数型			wSecond
Milliseconds	短整数型			wMilliseconds

.版本 2<br /> <br /> .数据类型 SYSTEMTIME, , //SYSTEMTIME(取系统时间)<br />     .成员 Year, 短整数型, , , wYear<br />     .成员 Month, 短整数型, , , wMonth<br />     .成员 DayOfWeek, 短整数型, , , wDayOfWeek<br />     .成员 Day, 短整数型, , , wDay<br />     .成员 Hour, 短整数型, , , wHour<br />     .成员 Minute, 短整数型, , , wMinute<br />     .成员 Second, 短整数型, , , wSecond<br />     .成员 Milliseconds, 短整数型, , , wMilliseconds

鹏书

想什么呢，精确到毫秒，不可能拉你运行代码都需要时间呢

Suky

取现行时间后   取小时、取分钟后组合起来转为时间格式   再增减时间

sjround

Suky 发表于 2022-10-13 00:48
取现行时间后   取小时、取分钟后组合起来转为时间格式   再增减时间

没明白，取现行时间出来后不是时间格式么？

Suky

sjround 发表于 2022-10-13 00:52
没明白，取现行时间出来后不是时间格式么？

是的
可以取其小时数和分钟数  组合成文本  再转为时间格式
取小时（）   取分钟（）  到时间（）

sjround

Suky 发表于 2022-10-13 01:22
是的
可以取其小时数和分钟数  组合成文本  再转为时间格式
取小时（）   取分钟（）  到时间（） ...

你的意思是把取出来的时间格式换成数值，然后再加减，再转换成时间格式？

Suky

给你个更简洁一点的替换方式吧

  

变量名	类 型	静态	数组	备 注
a	日期时间型
秒数	整数型
时间文本	文本型

a ＝ 取现行时间 ()
秒数 ＝ 取秒 (a)
时间文本 ＝ 到文本 (a)
时间文本 ＝ 子文本替换 (时间文本, 到文本 (秒数) ＋ “秒”, “”, , , 真)  ' 将时间文本中的秒数剔除
a ＝ 到时间 (时间文本)  ' 转为日期时间型后，秒数不存在则被视为0秒
调试输出 (a)  ' 此时时间  a   就是你所需要的整分钟数时间点

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 日期时间型<br /> .局部变量 秒数, 整数型<br /> .局部变量 时间文本, 文本型<br /> <br /> a ＝ 取现行时间 ()<br /> 秒数 ＝ 取秒 (a)<br /> 时间文本 ＝ 到文本 (a)<br /> 时间文本 ＝ 子文本替换 (时间文本, 到文本 (秒数) ＋ “秒”, “”, , , 真)  ' 将时间文本中的秒数剔除<br /> a ＝ 到时间 (时间文本)  ' 转为日期时间型后，秒数不存在则被视为0秒<br /> 调试输出 (a)  ' 此时时间  a   就是你所需要的整分钟数时间点

补充内容 (2022-10-13 01:35):
剔除了秒之后的时间    再使用增减时间设置成目标时间即可

补充内容 (2022-10-13 01:35):
.版本 2
.支持库 spec

a ＝ 增减时间 (a, #分钟, 1)
调试输出 (a)

无名d晓峰

增减时间本身是会保留秒的，会不会是你的提醒判断没写对

sjround

无名d晓峰 发表于 2022-10-13 01:41
增减时间本身是会保留秒的，会不会是你的提醒判断没写对

我是取现行时间，然后直接增加分钟，发现秒没有自己用增加