菲洛嘉青春动能素135HA FILLMED® NCTF 135HA LED指示灯的常见故障分析 智微智能 Elkhartlake K075终端,零售产业新选择 天空蓝拓客管理系统详细介绍版 muso公链项目 天使计划 是什么?[秘] 独家揭秘最前沿的家装“黑科技”——掌赋 天博体育欧洲杯特辑,东道主法兰西的失意2016 亚马逊的送货侦察员 学习听起来像挡泥板 Google Comics Factory使ML变得容易 笑着说-男性或女性 Amazon Rekognition中更好的人脸检测 关于Spaun的真相-大脑模拟 两个聊天机器人彼此聊天-有趣又怪异 GANPaint:将AI用于艺术 WCF和WF给予社区 从耳朵到脸 所有神经网络的深层缺陷 蠕虫在尾巴上平衡杆子 Kickstarter上的OpenCV AI套件 TensorFlow-Google的开源AI和计算引擎 众包取代新闻工作者 Google的DeepMind学会玩街机游戏 哑机器人V智能机器人 .NET与.NET 5融为一体 Google的深度学习-语音识别 LInQer将.NET LINQ移植到Javascript 机器人TED演讲-新的图灵测试? GAN的发明者加入苹果 您的智能手机会监视您键入的内容 人工智能帮助改善国际象棋 Zalando Flair NLP库已更新 TensorFlow 1.5包含移动版本 AlphaGo输了一场比赛-比分3-1 虚拟机器学习峰会 Microsoft开源AI调试工具 SharePoint走向移动 F#4.0发出文化变革的信号 克里斯蒂拍卖AI艺术品 人工智能如何区分 Facebook在蒙特利尔的新AI实验室 Mozilla想要您的声音 微软使用极深的神经网络赢得ImageNet 建立AI合作伙伴关系 .NET Core 3-Microsoft几乎回到了起点 神经网络-更好的销售商? Google使用AI查找您的住所 虹膜-适用于Android的Siri证明苹果没有优势 TensorFlow 2提供更快的模型训练 深度学习研究人员将为Google工作
您的位置:首页 >计算机基础 >

按键精灵-自定义函数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

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