Formatieren einer Zahl zu zwei Ziffern, auch wenn die erste eine 0 VBA ist

Question

Ich möchte in der Lage sein, VBA zu verwenden, um eine beliebige Zahl zwischen 1-24 als eine 2-stellige Nummer anzuzeigen. Offensichtlich sind die einzigen, die ein Problem damit haben, 1-9, die ich als 01, 02, 03 usw. anzeigen möchte. Gibt es eine Möglichkeit, dies durchzuführen?

Answer 1

Sie können keine Integer-Variable formatieren, Sie müssen eine String-Variable zum Formatieren verwenden.

Sie können den Tag Teil eines Datums in ein Format, mit führenden Nullen mit der Day Funktion wandeln die Tagesnummer ab dem Zeitpunkt zu extrahieren, und dann mit einem "00" Format der Format Funktion mit einem führenden Null bei Bedarf

hinzufügen

Format (Tag (myDate), "00")

ist

myDate ein Date-Variable des vollständigen Datumswert

die followin enthält

number_item = 2 
number_item = WorksheetFunction.Text(number_item, "00") 

den Job Dies tun: g-Makro kann als Arbeitsprobe

Sub Macro1() 
    Dim myDate As Date 

    myDate = "2015-5-1" 

    Dim dayPart As String 

    dayPart = Format(Day(myDate), "00") 

    MsgBox dayPart 
End Sub 

Answer 2

Ich habe es wie folgt verwendet werden.