VB-Skript Datum-Format "YYYYMMDDHHMMSS"

Als Titel surgest ich muss fomat der jetzt () - Funktion, um die Anzeige auf das format "YYYYMMDDHHMMSS"

Habe ich ein Spiel-zu versuchen, um es zu teilen, aber dies löscht führende Nullen, dass ich Sie behalten müssen,

Beispiel unten mydt war "27/02/2015 13:02:27"

mydt = now() 

MSGBOX Year(mydt)& Month(mydt)& Day(mydt)& Hour(mydt)& Minute(mydt)& second(mydt)

zurück "201522713227"

muss ich es zurückgeben "20150227130227" ich konnte verwenden Sie eine, wenn < 10 aber es muss ein glatter Weg

wahrscheinlich etwas womit Sie in der Lage zu helfen?
sehen Sie, wenn Sie stackoverflow.com/a/9641534/603855 hilft.

InformationsquelleAutor Mike Harris | 2015-02-27

  1. 7

    Dank @Ekkehard.Horner und @Bagger

    Habe ich überprüft Ihren Rat und gewählt haben, gehen Sie mit der unten angepasst für meine Bedürfnisse.

    Habe ich gewählt, weil es eine Menge mehr nutzbar/anpassbar kann ich tauschen und ändern Datum-Formate erforderlich.

    Dim g_oSB : Set g_oSB = CreateObject("System.Text.StringBuilder")

Function sprintf(sFmt, aData)
   g_oSB.AppendFormat_4 sFmt, (aData)
   sprintf = g_oSB.ToString()
   g_oSB.Length = 0
End Function

'-------------------------------------------------------------------

Dim dt : dt = now()

WScript.Echo sprintf("{0:yyyyMMddhhmmss}", Array(dt))

    Dieser gibt den Wert in den erforderlichen format yyyyMMddhhmmss

    20150302110727

    Wenn Sie benötigen nur Datum ändern Sie einfach die sprintf

    sprintf("{0:yyyyMMdd}", Array(dt))

    Wollen einfach nur die Zeit 

    sprintf("{0:hhmmss}", Array(dt))

    und so weiter.....

    InformationsquelleAutor Mike Harris

  2. 1

    Hier ist meine vollständige Methode, die ich verwendet, um zu machen es schön.
    Gut für die Analyse der Daten für SQL.

    function getDateFormatedWithDash(DateVal)
    rtnDateStr = year(DateVal)
    m=month(DateVal)
    d=day(DateVal)
    h=Hour(DateVal)
    Min=Minute(DateVal)
    sec=second(DateVal)

    if month(DateVal)<10 then
        m="0"&month(DateVal)
    end if

    if day(DateVal)<10 then
        d="0"&day(DateVal)
    end if

    if Hour(DateVal)<10 then
        h="0"&Hour(DateVal)
    end if  

    if Minute(DateVal)<10 then
        Min="0"&Minute(DateVal)
    end if  

    if second(DateVal)<10 then
        sec="0"&second(DateVal)
    end if


    rtnDateStr = rtnDateStr&"-"&m&"-"&d&" "&h&":"&Min&":"&sec
    getDateFormatedWithDash=rtnDateStr
end function

    InformationsquelleAutor Gil Allen

  3. 0

    Dies funktioniert, konnte man auch mit regex

    mydt = now() 
wscript.echo (Month(mydt))
mm = add0( Month(mydt))
dd = add0( Day(mydt))
hh = add0( Hour(mydt))
mn = add0( Minute(mydt))
ss = add0( second(mydt))

MSGBOX Year(mydt)& mm & dd & hh & mn & ss

Function add0 (testIn)
 Select Case Len(testIn) < 2
   CASE TRUE
     add0 = "0" & testIn
   Case Else
     add0 = testIn
  End Select      
End Function

    InformationsquelleAutor Bagger

  4. 0

    Hier ist ein regex-Beispiel

      mydt = now()
Set regEx = New RegExp
  With regEx
  .Pattern = "\b\d\b"
  .IgnoreCase = True
  .Global = True
 End With

wscript.echo  Year(mydt)& _
  regEx.Replace(Month(mydt),"0" Month(mydt)) & _
  regEx.Replace(Day(mydt),"0" & Day(mydt)) &_
  regEx.Replace(Hour(mydt),"0" & Hour(mydt)) &_
  regEx.Replace(Minute(mydt),"0" & Minute(mydt)) & _ 
  regEx.Replace(second(mydt),"0" & second(mydt))

Set RegularExpressionObject = nothing

    InformationsquelleAutor Bagger

Schreibe einen Kommentar