changing date format to yymmdd 1

[ciberperson]

I would like to convert my date to a format of yymmdd without separators in order to use as a string in a file name. How do I convert the system date to this format?

 

[rbobbitt]

I'm new to VBScript (but familiar with VB). From what I have gathered, VBScript doesn't supply a built-in Format() function like VB, otherwise this would only take one line.

Dim dt
Dim sp
Dim res

dt=Now()
sp=Instr(1,dt," &quot
yr=Mid(dt,sp-2,2)
dy=Mid(dt,sp-5,2)
mo=Mid(dt,1,Instr(1,dt,"/&quot-1)
If (Len(dy)=1) Then dy="0" & dy
If (Len(mo)=1) Then mo="0" & mo
res=yr & mo & dy

Cheers

 

[Bostlabs]

Here is another method.

dim dtmMonth, dtmDay, dtmYear, dtmMDY

dtmMonth = Month(date)
dtmDay = Day(date)
dtmYear = Year(date)
dtmMDY = dtmMonth & dtmDay & dtmYear

A format function would be much nicer.

 

[rbobbitt]

haha...like I said, obviously new to VBScript

 

[ciberperson]

Hey thanks for those great replies. I appreciate your time and effort and I learned something that I really needed to know.

 

[Bostlabs]

I'm glad I could help.
Here is a couple of links you might find useful.

http://msdn.microsoft.com/scripting/vbscript/techinfo/vbsdocs.htm

And the next own is a downloadable ref manual for VBScript. I've found it extremely helpful.

http://msdn.microsoft.com/scripting/vbscript/download/vbsdown.htm

Onward!
[sig][/sig]