Crie uma string usando a função date, com zero anterior no dia e mês

Question

Estou tentando criar uma data no VBA. Eu quero que ele seja exibido como 13.04.2018 para a data de hoje.

No entanto, atualmente posso apenas obtê-lo para exibir como 13.4.2018

Como incluo um zero anterior em dias e meses com um único dígito?

Eu tenho atualmente para:

stDateDay = Day(Date)
stDateMonth = Month(Date)
stDateYear = Year(Date)
stDateFull = stDateDay & "." & stDateMonth & "." & stDateYear

    

Answer 1

Para formatar uma data (ou qualquer outro valor) no VBA, você pode usar a função Format . Por exemplo:

strDateFull = Format(Date, "dd.mm.yyyy")

O segundo parâmetro é uma string de formato que pode ser um nome de formato predefinido ( General Date , Long Date , Medium Date ou Short Date ) ou um especificador de formato incluindo símbolos como dd , mm ou yy .

Para obter uma lista completa de símbolos, consulte a documentação: link

    

Answer 2

simplesmente Você pode tentar isto:

Range("A1").Value = Format(StDateFull, "dd.mm.yyyy")

Ou você também pode Formatar a célula ou o intervalo de células antes de passar o valor de StDateFull para elas como:

Range("A1").NumberFormat = "dd.mm.yyyy"

Range("A:C").Select
Format$ ("dd.mm.yyyy")

Range("A1").value = stDateFull