Formattazione di un numero a due cifre anche se il primo è 0 vba

Question

Vorrei poter utilizzare VBA per visualizzare qualsiasi numero compreso tra 1 e 24 come numero a 2 cifre. Ovviamente gli unici che hanno un problema con questo sono 1-9 che vorrei mostrare come 01, 02, 03, ecc. C'è un modo per eseguire questo?

Answer 1

Non è possibile formattare una variabile intera, è necessario utilizzare una variabile stringa per la formattazione.

È possibile convertire la parte giorno di una data in un formato con zeri utilizzando la funzione di Day per estrarre il numero del giorno a partire dalla data, e quindi utilizzando la funzione Format con un formato "00" per aggiungere uno zero se necessario

Format (Day (Data), "00")

myDate è una variabile data che contiene il valore di fondo Data

il followin g macro può essere utilizzata come campione di lavoro

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

ho fatto in questo modo:

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

Questo farà il lavoro.