按键精灵-自定义函数time(),datetime(),diff() 在Vue+Element中,Select选项值动态从后台接口获取的实现方法 mongoTemplate的方法和update() 欧科云链OKLink推出“链上天眼”功能 区块链+大数据全面助力链上安全 第二届微热点大数据论坛将于9月5日开幕 网龙参与全国教育大数据统计 构建五级服务支撑体系 无代码app制作崛起,app开发已不再是程序员的专利了 torch深入学习之凤飞九天torch.nn.MarginRankingLoss 【机器学习】—各类梯度下降算法 简要介绍 隐马尔可夫模型(HMM)来龙去脉(二) 单智能体、多智能体强化学习基本概念及算法分类?为啥提出多智能体强化学习,现状? 张量网络算法基础(八、张量网络机器学习【上】) MapReduce 简介 Python爬虫入门教程 81-100 小众爬虫框架looter,框架作者竟然在官方手册开车 机器人二维导航教程汇总 mapper 使用示例 Redis的概念及关系型与非关系型数据库对比 MySQL必知必会:使用WHERE、正则表达式、通配符过滤数据 Solr的增量更新和全量更新对比 MYSQL数据库维护 MATLAB与Mysql数据库连接并数据交换(基于ODBC) 数据库:PostgreSQL:基础功能使用介绍 MYSQL 5.7 高级SQL语句(3)——数据库函数和存储过程 mysql导出数据到表格讲解大全(导出数据带表头,导出数据中文乱码问题解决) SpringBoot升级/指定jackson版本 JAVA - EnumMap与EnumSet简单总结 js获取主机mac等信息【亲测有效】-- 附执行结果&代码 [记录六] Vue(全家桶)+node+koa2+mysql+nginx+redis,博客全栈项目之node后台连接mysql和redis,登陆接口的编写 C# 读取XML配置文件 MongoDB数据库设置密码 Redis之重设密码及开启远程访问 本地Navicat连接阿里云MySQL数据库注意要点 PHP Windows系统实现定时任务的两种方式bat版 面试官让我手写promise,我这样写,他很满意 超级码力在线编程大赛初赛 第二场 UML类图的依赖和关联详解(含代码) 【C语言】新手实现简单的石头剪刀布人机对战 Codeforces Round #666 (Div. 2)题解ABC Codeforces Round #666 (Div. 2)E Monster Invaders 华为今年不会推出运行鸿蒙OS的手机;Deno 1.3.2发布|极客头条 异或在笔试题中的超神表现 超级码力在线编程大赛初赛 第2场 T1-T4题解 1397D. Stoned Game(博弈) Codeforces Round #666(Div.2)A~D题题解 高性能微服务架构技术选型 阿里饿了么Java4面:(数据结构+框架源码+JVM+分布式) 2020java面试总结 使用ffmpeg提取mp4内部日期重命名文件(需lua) 【剑指Offer】56.2 数组中只出现一次的数字,其他出现3次 JAVA二三事-使用IO+Properties实现动态读取文本信息
您的位置:首页 >计算机基础 >

按键精灵-自定义函数time(),datetime(),diff()

函数1:diff(参数1,参数2,参数3)参数1:时间间隔。(d天数/h小时/m分/s秒)参数2:开始时间。参数3:结束时间。返回:数量。函数2:dtime(参数)参数:固定格式日期时间返回:1970/1/1/0/0/0到指定日期时间所用秒数函数3:add(参数1,参数2,参数3)参数1:时间间隔。参数2:时间数量(年、月不支持负数)。参数3:开始时间。返回:添加指定数量时间间隔的时间函数4:ddate(参数)参数:秒数返回:固定格式日期时间。下面是源码:"添加指定时间日期function add(jg,sl,datetime)dim d,y,n,c,rqrq=split(datetime,"/")select case lcase(jg)case "s"d=slcase "m"d=sl*60case "h"d=sl*60*60case "d"d=sl*60*60*24case "n"y=int(rq(0)):n=int(rq(1)):d=0While sl>12if n<=2if (y/4=int(y/4) and y/100<>int(y/100)) or (y/400=int(y/400) and y/100=int(y/100)) d=d+366*24*60*60elsed=d+365*24*60*60end ifelseif n>2if ((y+1)/4=int((y+1)/4) and (y+1) /100<>int( (y+1) /100)) or ( (y+1) /400=int( (y+1) /400) and (y+1) /100=int( (y+1) /100)) d=d+366*24*60*60elsed=d+365*24*60*60end ifend ifsl=sl-12y=y+1Wendfor i=1 to sl+1if n=1 or n=3 or n=5 or n=7 or n=8 or n=10 or n=12c=31elseif n=4 or n=6 or n=9 or n=11c=30elseif n=2if (y/4=int(y/4) and y/100<>int(y/100) ) or (y/400=int(y/400) and y/100=int(y/100) ) c=29elsec=28end ifend ifif i<=sld=d+c*24*60*60end ifif n=12n=1y=y+1elsen=n+1end ifnextif int(rq(2))>cd=d-(int(rq(2))-c)*24*60*60end ifcase "y"y=int(rq(0)):n=int(rq(1)):d=0for sl if n<=2if (y/4=int(y/4) and y/100<>int(y/100)) or (y/400=int(y/400) and y/100=int(y/100)) d=d+366*24*60*60elsed=d+365*24*60*60end ifelseif n>2if ((y+1)/4=int((y+1)/4) and (y+1)/100<>int((y+1)/100)) or ((1+y)/400=int((y+1)/400) and (1+y)/100=int((y+1)/100)) d=d+366*24*60*60elsed=d+365*24*60*60end ifend ify=y+1nextend selectadd= ddate(int(dtime(datetime))+d)end function"两个时间差距function diff(jg,dtime1,dtime2)select case lcase(jg)case "s"diff=dtime(dtime2)-dtime(dtime1)case "m"diff=(dtime(dtime2)-dtime(dtime1))/60case "h"diff=(dtime(dtime2)-dtime(dtime1))/60/60case "d"diff=(dtime(dtime2)-dtime(dtime1))/60/60/24end selectend function"时间转换秒数function dtime(datetime)dim c,ddatetime=split(datetime,"/")for i=0 to datetime(0)-1970-1if ((1970+i)/4=int((1970+i)/4) and (1970+i)/100<>int((1970+i)/100)) or ((1970+i)/100=int((1970+i)/100) and (1970+i)/400=int((1970+i)/400) )c=c+1end ifnextd=(datetime(0)-1970)*365*24*60*60+c*24*60*60+datetime(3)*60*60+datetime(4)*60+datetime(5)While int(datetime(1))>1datetime(1)= datetime(1)-1if datetime(1)=1 or datetime(1)=3 or datetime(1)=5 or datetime(1)=7 or datetime(1)=8 or datetime(1)=10 or datetime(1)=12c=31elseif datetime(1)=4 or datetime(1)=6 or datetime(1)=9 or datetime(1)=11c=30elseif datetime(1)=2 and (datetime(0)/4=int(datetime(0)/4) and datetime(0)/100<>int(datetime(0)/100)) or ( datetime(0)/400=int(datetime(0)/400) and datetime(0)/100=int(datetime(0)/100) )c=29elsec=28end ifdatetime(2)=datetime(2)+cWenddatetime(2)= datetime(2)-1dtime=d+datetime(2)*24*60*60-8*60*60end function"秒转换日期时间function ddate(time)dim y,d,h,m,s,c,nc=0time=int(time)+8*60*60y=int(time/(365*24*60*60))for i=0 to int(y)-1if ((1970+i)/4=int((1970+i)/4) and (1970+i)/100<>int((1970+i)/100)) or ((1970+i)/100=int((1970+i)/100) and (1970+i)/400=int((1970+i)/400) )c=c+1end ifnexty=y-int(c/365):c=0for i=0 to int(y)-1if ((1970+i)/4=int((1970+i)/4) and (1970+i)/100<>int((1970+i)/100)) or ((1970+i)/100=int((1970+i)/100) and (1970+i)/400=int((1970+i)/400) )c=c+1end ifnextc= 60*60*24*cd=int((time-c-60*60*24*365*int(y))/60/60/24)h=int((time-c-60*60*24*365*int(y)-int(d)*24*60*60)/60/60)m=int((time-c-60*60*24*365*int(y)-int(d)*24*60*60-int(h)*60*60)/60)s=(time-c-60*60*24*365*int(y)-int(d)*24*60*60-int(h)*60*60-int(m)*60)c=31:n=1While d>=cd=d-cn=n+1if n=1 or n=3 or n=5 or n=7 or n=8 or n=10 or n=12c=31elseif n=4 or n=6 or n=9 or n=11c=30elseif n=2 and ((1970+y)/4=int((1970+y)/4) and (1970+y)/100<>int((1970+y)/100)) or ((1970+y)/100=int((1970+y)/100) and (1970+y)/400=int((1970+y)/400) )c=29elsec=28end ifWendd=d+1n=String(2-len(n),"0")&nd= String(2-len(d),"0")&dh= String(2-len(h),"0")&hm= String(2-len(m),"0")&ms= String(2-len(s),"0")&sddate= int(y+1970)&"/"&n&"/"&d&"/"&h&"/"&m&"/"&send function

郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。