我的工作日志

原创 2004年10月08日 10:44:00

没有系统对日期补0,只有手动补0

'针对LEADBBS数据库的,来源BOARD_POPFUN.ASP 作用:日期处理
'例子:GetTimeValue(NOW())
'结果:20041008095752

Function GetTimeValue(DateString)
 Dim Temp,TempStr
 If isNull(DateString) or isTrueDate(DateString) = 0  Then Exit Function
 Temp = csTr(Year(DateString))
 If len(temp)<3 Then
  Temp = left(year(date),2) & temp
 End If
 TempStr = Temp
 
 Temp = csTr(month(DateString))
 If len(temp)<2 Then Temp = "0" & temp
 TempStr = TempStr & Temp

 Temp = csTr(day(DateString))
 If len(temp)<2 Then Temp = "0" & temp
 TempStr = TempStr & Temp

 Temp = csTr(Hour(DateString))
 If len(temp)<2 Then Temp = "0" & temp
 TempStr = TempStr & Temp

 Temp = csTr(Minute(DateString))
 If len(temp)<2 Then Temp = "0" & temp
 TempStr = TempStr & Temp

 Temp = csTr(Second(DateString))
 If len(temp)<2 Then Temp = "0" & temp
 TempStr = TempStr & Temp

 GetTimeValue = cCur(TempStr)
End Function
Rem 为VBScript的isDate缺陷而编写的函数,用on error resume next也拦不住
Function isTrueDate(TStr)
 Dim T
 T = TStr
 T = Replace(Replace(Replace(Replace(Replace(Replace(Replace(T,"年","-"),"月","-"),"日"," "),"上午"," "),"下午"," "),"  "," "),"  "," ")
 
 Dim N1,N2
 N1 = inStr(T,"-")
 If N1>0 Then N2 = inStrRev(T,"-")
 If N1 = N2 and N1 >0 Then
  isTrueDate = 0
  Exit Function
 End If

 N1 = inStr(T,":")
 If N1>0 Then N2 = inStrRev(T,"-")
 If N1 = N2 and N1 >0 Then
  isTrueDate = 0
  Exit Function
 End If

 If isDate(TStr) Then
  isTrueDate = 1
 Else
  isTrueDate = 0
 End If
End Function

软件测试工作日志一

当进行一项测试时,首先应该先做好前期工作: 第一:确定版本信息; 第二:测试是否有放大路口图,位图,矢量图,实景图;            测试是否有蓝色看板信息,电子狗,监控摄像头;        ...
  • fb2058
  • fb2058
  • 2014年01月02日 14:45
  • 1698

Android工作日志

明天就是新的一年了,这里将记录未来一年里关于android的工作记录,以便以后查找~_~...
  • l417584711
  • l417584711
  • 2010年12月30日 15:04
  • 1191

一个上海程序员的一天工作日志

每天清晨,当地铁 2号线穿过黄浦江,在车厢里便随处可见这样一群男青年:背着黑色电脑包,穿着不知品牌的深色夹克,头发有些乱,眼睛有些肿——有人把这时的地铁称为“张江专列”。   张江高科技园区,集...
  • chengyakun11
  • chengyakun11
  • 2012年11月25日 12:09
  • 5213

工作日志的作用

                                                                                         朱金灿 公司提倡我们每...
  • clever101
  • clever101
  • 2008年06月23日 22:09
  • 7581

2014年11月份工作日志 模板样例

2014年11月份工作日志 本月目标:                                    -------------------------------------------...
  • hsg77
  • hsg77
  • 2014年11月26日 17:42
  • 3131

程序员如何写工作日志

写过日志,但写过工作日志,可是这次培训实习要求每人每天写一篇工作日志,且发布到博客上,不知道工作日志该怎么写,也偷偷看过其他同学交的日志,有的看起来跟小学生的流水账日志一样,感觉不太靠谱啊,然后上网搜...
  • lingxue1027
  • lingxue1027
  • 2012年06月20日 13:41
  • 7391

工作日志管理的思考

工作日志是否合适,更应该从公司/部门的管理角度来评估,毕竟是“工作”的日志。企业需要通过日志来统计数据、分析绩效。 很多工作日志系统,较花哨,日历格式一目了然,这些对于待办任务的跟踪还可以,但是用于企...
  • astonish921
  • astonish921
  • 2018年01月10日 22:31
  • 43

QC工作日志1

12月底会有QC发布,准备的题目是 变电设备管理系统,主要功能是:1,对断路器和隔离开关进行系统的分类管理.2,针对所管辖范围内的断路器型号进行明确的分类,注名其常用备件情况.3.面向检修人员的检修日...
  • zzzi
  • zzzi
  • 2007年11月11日 20:09
  • 411

关于工作日志

本文是Milogs团队关于自己长期坚持写工作日志和团队工作日志管理的一个总结,和各位分享。本文来源 http://www.milogs.com我要求自己每天花点时间写工作日志,并不是去记录一些流水帐,...
  • milogs
  • milogs
  • 2006年05月03日 12:21
  • 2393

工作日志——记录工作心得(day1):客服弹窗js代码的引用

今天入职第一天,半天时间熟悉工作环境,剩下半天时间主管让我找一个客服弹窗代码并使用在项目网页上,我套用的是网上懒人图库的qq客服弹窗js代码。在这里整理了一下对其中部分代码的理解和修改,如果能够帮到读...
  • F_shan
  • F_shan
  • 2016年07月18日 22:06
  • 832
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:我的工作日志
举报原因:
原因补充:

(最多只允许输入30个字)