Início / computer / Perguntas / 1748298
Accepted
TrynRealHard
Asked: 2022-10-20 01:50:45 +0800 CST

formatar data retorna resultado errado

  • 772

Eu uso uma macro de autofiltro para obter valores de hoje - 3 meses, mas enquanto o resultado parece estar correto, a data formatada é mostrada errada:


Sub LastThreeMonths()

    Dim strDateFirst As String
    Dim strDateLast As String
    Dim strMonthNow As String
  
    strMonthNow = Month(Now)

    strDateFirst = (strMonthNow - 3) & "/" & "1" & "/" & frmEntry.cboYear.Value
    strDateLast = strMonthNow & "/" & LastDay(CDate(strMonthNow)) & "/" & frmEntry.cboYear.Value

    
    MsgBox Format(strDateFirst, "dd-mm-yyyy") & vbCrLf & Format(strDateLast, "dd-mm-yyyy")



End Sub

O Debug.Print retorna isso para 01-07-2022 strDateFirste isso para strDateLast30-10-2022 Deve ser "07-01-2022" para a strDateFirstvariável.

O filtro funciona corretamente embora.

O que estou perdendo? Eu acho que tem algo a ver com a subtração de "3" do mês atual.

microsoft-excel vba

1 respostas

  1. Best Answer

    Use as declarações de tipo corretas e use DateSerial para definir a data:

    Sub LastThreeMonths()
    Dim DateFirst As Date
    Dim DateLast As Date

    DateFirst = DateSerial(frmEntry.cboYear.Value, Month(Now) - 3, 1)
    DateLast = DateSerial(frmEntry.cboYear.Value, Month(Now) + 1, 0)

    MsgBox Format(DateFirst, "dd-mm-yyyy") & vbCrLf & Format(DateLast, "dd-mm-yyyy")
End Sub

    Ao definir o dia como 0no Month(Now) + 1retornará o último dia do mês atual.

    insira a descrição da imagem aqui

    • 0

relate perguntas