Excel日期函数的加减怎么做.docx

文档介绍：Excel20XX日期函数的加减怎么做篇一:Excel时间加减函数TMC FunctionTMC(time_text,minu) '时间格式:20XX-1-1116:28:14 Dimt2,t3,t4,y,m,d,zong_miao,miao1,miao2,shi,fen,miao,shi1,fen1,miao3Dimt1,m1 Dimflag1AsBoolean Dimflag2AsBoolean t1=time_text m1=-minu flag1=False flag2=False IfIsNumeric(m1)Then flag2=True EndIf IfIsDate(t1)Then flag1=True EndIf Ift1=""Orm1=""Orflag2=FalseOrflag1=FalseThen TMC="" ExitFunction EndIf y=Year(t1) m=Month(t1) d=Day(t1) shi=Hour(t1) fen=Minute(t1) miao=Second(t1) Ifshi=0Then shi=24 EndIf zong_miao=shi*3600+fen*60+miao miao1=m1*60 miao2=zong_miao-miao1 shi1=Int(miao2/3600) fen1=Int((miao2-shi1*3600)/60) miao3=miao2-shi1*3600-fen1*60 Ifshi1>=24Then n=Int(shi1/24) shi1=shi1-n*24 d=d+n EndIf Ifm=1Orm=3Orm=5Orm=7Orm=8Orm=10Orm=12ThenIfd>31Then m=m+Int(d/31) d=dMod31 EndIf ElseIfm=1Orm=3Orm=5Orm=7Orm=8Orm=10Orm=12ThenIfd>30Then m=m+Int(d/31) d=dMod30 EndIf ElseIfm=2Then IfyMod4=0AndyMod100=0AndyMod400=0Then Ifd>29Then m=m+Int(d/31) d=dMod29 EndIf Else Ifd>28Then m=m+Int(d/31) d=dMod28 EndIf EndIf EndIf Ifm>12Then y=y+Int(m/12) m=mMod12 EndIf IfLen(shi1)<2Then shi1="0"&shi1 EndIf IfLen(fen1)<2Then fen1="0"&fen1 EndIf IfLen(miao3)<2Then miao3="0"&miao3 EndIf Ifshi=24Andshi1<=23Then d=d-1 Ifd<=0Then Ifm=5Orm=7Orm=8Orm=10Orm=12Then d=30 m=m-1 ElseIfm=4Orm=2Orm=6Orm=8Orm=9Orm=11Orm=1Thend=31 m=m-1 ElseIfm=3Then IfyMod4=0AndyMod100=0AndyMod400=0Then d=29 m=m-1 Else d=28 m=m-1 EndIf EndIf EndIf Ifm<=0Then m=12 y=y-1 EndIf EndIf Ifm<10Then m="0"&m EndIf Ifd<10Then d="0"&d EndIf t2=y&"-"&m&"-"&d&"" t3=shi1&":"&fen1&":"&miao3 t4=t2&t3 TMC=t4 EndFunction 篇二:Excel日期常用函数 VBA日期的加减函数:DateAdd函数返回包含一个日期的Variant(Date),这一日期还加上了一段时间间隔。语法 DateAdd(interval,number,date)DateAdd函数语法中有下列命名参数:部分描述 interval必要。字符串表达式,是所要加上去的时间间隔。numberdate设置必要。数值表达式,是要加上的时间间隔的数目。其数值可以为正数(得到未来的日期),也可以为负数(得到过去的日期)。必要。Variant(Date)或表示日期的文字,这一日期还加上了时间间隔。 interval参数具有以下设定值:设置yyyy年qmyd日数日一周的日数周时分钟描述 s说明秒可以使用DateAdd函数对日期加上或减去指定的时间间隔。例如,可以用DateAdd来计算距今天为三十天的日期;或者计算距现在为45分钟的时间。为了对date加上“日”,可以使用“一年的日数”(“y”),“日”(”d”)或“一周的日数”(”w”