在线VBA代码缩进工具

zpy2

论坛上有需要代码缩进的朋友。
论坛上有很多插件可以实现VBA代码缩进格式化排版。

现分享一个在线工具实现代码缩进。
https://e.anyoupin.cn/EData/2

x-xx-xx

我用的是自己用vba写的vba排版,见笑了,我是萌新

zpy2

To achieve this in VBA, you can create a function that separates the dates into segments for each month. Here’s a sample function to help you get started:

```vba
Function SeparateDates(startDate As Date, endDate As Date) As String
    Dim output As String
    Dim monthStart As Date
    Dim monthEnd As Date

    ' Initialize output
    output = ""

    ' Handle the case where start and end dates are in the same month
    If Month(startDate) = Month(endDate) Then
        output = Format(startDate, "mmmm d, yyyy") & " - " & Format(endDate, "mmmm d, yyyy")
    Else
        ' Process the first month
        monthStart = DateSerial(Year(startDate), Month(startDate), Day(startDate))
        monthEnd = DateSerial(Year(startDate), Month(startDate) + 1, 0) ' Last day of the first month
        
        If endDate < monthEnd Then monthEnd = endDate ' Adjust end date if it's before the month's end
        
        output = Format(monthStart, "mmmm d, yyyy") & " - " & Format(monthEnd, "mmmm d, yyyy") & " & "

        ' Process the middle months
        Dim currentMonth As Date
        currentMonth = DateSerial(Year(monthEnd), Month(monthEnd) + 1, 1)
        
        Do While Month(currentMonth) < Month(endDate)
            monthStart = currentMonth
            monthEnd = DateSerial(Year(currentMonth), Month(currentMonth) + 1, 0)
            
            output = output & Format(monthStart, "mmmm d, yyyy") & " - " & Format(monthEnd, "mmmm d, yyyy") & " & "
            currentMonth = DateSerial(Year(currentMonth), Month(currentMonth) + 1, 1)
        Loop
        
        ' Process the last month
        monthStart = DateSerial(Year(endDate), Month(endDate), 1)
        monthEnd = endDate
        
        output = output & Format(monthStart, "mmmm d, yyyy") & " - " & Format(monthEnd, "mmmm d, yyyy")
    End If

    ' Return the result
    SeparateDates = output
End Function
```

**Usage Example:**
```vba
Sub TestSeparateDates()
    Dim result As String
    result = SeparateDates(DateSerial(2024, 7, 25), DateSerial(2024, 8, 7))
    MsgBox result ' Outputs: July 25, 2024 - July 31, 2024 & August 1, 2024 - August 7, 2024
End Sub
```

This function breaks down the date range into segments for each month and formats them accordingly.
Function SeparateDates(startDate, endDate)
    Dim output
    Dim monthStart
    Dim monthEnd
    Dim currentMonth

    ' Initialize output
    output = ""

    ' Handle the case where start and end dates are in the same month
    If Month(startDate) = Month(endDate) Then
        output = FormatDateTime(startDate, 2) & " - " & FormatDateTime(endDate, 2)
    Else
        ' Process the first month
        monthStart = DateSerial(Year(startDate), Month(startDate), Day(startDate))
        monthEnd = DateSerial(Year(startDate), Month(startDate) + 1, 0) ' Last day of the first month
        
        If endDate < monthEnd Then monthEnd = endDate ' Adjust end date if it's before the month's end
        
        output = FormatDateTime(monthStart, 2) & " - " & FormatDateTime(monthEnd, 2) & " & "

        ' Process the middle months
        currentMonth = DateSerial(Year(monthEnd), Month(monthEnd) + 1, 1)
        
        Do While Month(currentMonth) < Month(endDate)
            monthStart = currentMonth
            monthEnd = DateSerial(Year(currentMonth), Month(currentMonth) + 1, 0)
            
            output = output & FormatDateTime(monthStart, 2) & " - " & FormatDateTime(monthEnd, 2) & " & "
            currentMonth = DateSerial(Year(currentMonth), Month(currentMonth) + 1, 1)
        Loop
        
        ' Process the last month
        monthStart = DateSerial(Year(endDate), Month(endDate), 1)
        monthEnd = endDate
        
        output = output & FormatDateTime(monthStart, 2) & " - " & FormatDateTime(monthEnd, 2)
    End If

    ' Return the result
    SeparateDates = output
End Function


拆分月份