Changing the default hour and day function format

Hi,

I never use VB but I am looking at a DTS script that looks for the hour and day and second to have the leading 0.

so 9am on 1/1/2006 should be 0900 01012006

Here are the current functions:

the hh, mon, da and min needs to be updated.

mydate =now()
hh=Hour(time)
min=Minute(time)
yy=Year(date)
mon=Month(date)
da=DatePart("d",Date)

Thanks
sjsharp80Asked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
sirbountyConnect With a Mentor Commented:
mydate = Now()
hh = LZ(Hour(Time))
Min = LZ(Minute(Time))
yy = Year(Date)
mon = LZ(Month(Date))
da = LZ(DatePart("d", Date))
Stop


Here's the function:
Function LZ(str)
  LZ = str
  If (str >= 0) And (str < 10) Then LZ = "0" & str
End Function
0
 
sjsharp80Author Commented:
Perfect, thanks
0
All Courses

From novice to tech pro — start learning today.