VBA Get Next Date using Excel VBA Functions

VBA Get Next Date using Excel VBA Functions. Date plays an important major role in data analysis to summarize data, to create graphs and dashboards based on date. We also format date using format function in multiple ways.

Table of Contents:

Objective
Macro to find Next Date using VBA
Date Format in different ways
Instructions to Run VBA Macro Code
Other Useful Resources

Macro to find Next Date using VBA

Let us see the procedure how to find Next Date using VBA Date and Format functions.

'Procedure to Get Next Date
Sub VBA_Next_Date()
    
    'Variable declaration
    Dim dDate As Date
    
    'Get next date
    dDate = DateAdd("d", 1, Date)
    
    'Display next date
    MsgBox "If today's date is " & Date & vbCrLf & _
    "then the next date is :" & dDate, vbInformation, "Get Next Date"
    
End Sub

Here is the output screen shot of the above macro procedure.

Format Date in different ways:

We have different format methods to format Date. You can find output in an immediate window.

'Format Date
Sub VBA_Format_Date()
    
    'Variable declaration
    Dim dDate As String
    
    dDate = Format(Date, "ddmmyy")
    Debug.Print dDate
    
    dDate = Format(Date, "ddmmyyyy")
    Debug.Print dDate
    
    dDate = Format(Date, "ddmmmyyyy")
    Debug.Print dDate
    
    dDate = Format(Date, "ddmmmyy")
    Debug.Print dDate
    
    dDate = Format(Date, "dd/mmm/yy")
    Debug.Print dDate
    
    dDate = Format(Date, "dd-mmm-yy")
    Debug.Print dDate
    
    dDate = Format(Date, "dddd ddmmmyy")
    Debug.Print dDate
    
    dDate = Format(Date, "dddd dd mmm yy")
    Debug.Print dDate
        
End Sub

Output screenshot: Here is the output screenshot for your reference.