|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题函数|原创******************************
||FunctionTimeDiff(sBegin,sEnd)
||本函数盘算两个工夫的差,能够不必变动间接利用
||machinecat2001/10/26
******************************
******************************
注:起首必要判别用户输出的sBegin与sEnd之间的巨细
能够经由过程DataDiff函数取得二者之间的工夫差,不必要举行庞大的工夫换算
******************************
FunctionTimeDiff(sBegin,sEnd)
DimiHourB,iMinuteB,iSecondB,iMiniSecondB
DimiHourE,iMinuteE,iSecondE,iMiniSecondE
DimdTimeB,dTimeE,dTimeDiff
DimiHour,iMinute,iSecond,iMiniSecond
iHourB=clng(Left(sBegin,2))
iMinuteB=clng(Mid(sBegin,4,2))
iSecondB=clng(Mid(sBegin,7,2))
iMiniSecondB=clng(Mid(sBegin,10,4))
iHourE=clng(Left(sEnd,2))
iMinuteE=clng(Mid(sEnd,4,2))
iSecondE=clng(Mid(sEnd,7,2))
iMiniSecondE=clng(Mid(sEnd,10,4))
dTimeB=iHourB*3600+iMinuteB*60+iSecondB+iMiniSecondB/1000
dTimeE=iHourE*3600+iMinuteE*60+iSecondE+iMiniSecondE/1000
dTimeDiff=dTimeE-dTimeB
iHour=Int(dTimeDiff/3600)
dTimeDiff=dTimeDiff-iHour*3600
iMinute=Int(dTimeDiff/60)
dTimeDiff=dTimeDiff-iMinute*60
iSecond=Int(dTimeDiff)
dTimeDiff=dTimeDiff-Int(dTimeDiff)
iMiniSecond=dTimeDiff
TimeDiff=iHour&"小时"&iMinute&"分钟"&iSecond&FormatNumber(iMiniSecond,3)&"秒"
EndFunction
</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 |
|