tag:blogger.com,1999:blog-28160416.post3538339618015144412..comments2008-09-11T06:33:52.981-04:00Comments on Developer Notes: VBScript to convert timestamp to YYYYMMDD formatte...Thomashttp://www.blogger.com/profile/08347962976730903449noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-28160416.post-72842412695304371972008-09-11T06:33:00.000-04:002008-09-11T06:33:00.000-04:00Excellent! You've just helped me out of a holeHere...Excellent! You've just helped me out of a hole<BR/><BR/>Here's the code to do the same for hours, mins and seconds:<BR/><BR/>Function FormatHMS(timestamp)<BR/><BR/> Dim dateHour : dateHour = DatePart("h", timeStamp)<BR/> Dim dateMinute : dateMinute = DatePart("n", timeStamp)<BR/> Dim dateSecond : dateSecond = DatePart("s", timeStamp)<BR/><BR/> If dateHour < 10 Then<BR/> timeString = timeString & "0" & dateHour<BR/> Else<BR/> timeString = timeString & dateHour<BR/> End If<BR/><BR/> timeString = timeString & ":"<BR/><BR/><BR/> If dateMinute < 10 Then<BR/> timeString = timeString & "0" & dateMinute<BR/> Else<BR/> timeString = timeString & dateMinute<BR/> End If<BR/><BR/> timeString = timeString & ":"<BR/><BR/><BR/> If dateSecond < 10 Then<BR/> timeString = timeString & "0" & dateSecond<BR/> Else<BR/> timeString = timeString & dateSecond<BR/> End If<BR/><BR/> FormatHMS = timeString<BR/><BR/>End Functionrbhttp://www.blogger.com/profile/14820701014367573998noreply@blogger.com