yyyymmddhhmm date format 1

[rwei]

I need to find a way to convert the current date/time (i.e. Now()) into this "yyyymmddhhmm" format. Can anyone tell me how to do this? Can this be done?

 

[smurfhell]

Here's what I use:

currenttime = ConvWMIDateTime(objOS.LocalDateTime, "ISO8601")
Wscript.Echo "The time is " & currenttime

Function ConvWMIDateTime(sDMTFformat, iNamedFormat)

   Dim sYear, sMonth, sDay, sHour, sMinutes, sSeconds
   sYear = mid(sDMTFformat, 1, 4)
   sMonth = mid(sDMTFformat, 5, 2)
   sDay = mid(sDMTFformat, 7, 2)
   sHour = mid(sDMTFformat, 9, 2)
   sMinutes = mid(sDMTFformat, 11, 2)
   sSeconds = mid(sDMTFformat, 13, 2)

   ConvWMIDateTime = sYear & "-" & sMonth & "-" & sDay & " " _
                & sHour & ":" & sMinutes

   If IsNumeric(iNamedFormat) Then
     If iNamedFormat >= 0 And iNamedFormat <= 4 Then
       ' FormatDateTime will set date format to specified format
       ConvWMIDateTime = FormatDateTime(ConvWMIDateTime, iNamedFormat)
     End If
   End If
End Function

 

[RhythmAddict112]

prob a ton of ways..but

response.write   year(date)&Month(date)&Day(date)&hour(time)&Minute(time)

 

[PHV]

myDateTime = Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) _
& Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[rwei]

Thank you all, I've tried with PHV's answer (with minor changes), and it works great!!!