Imports System
Public Class Program
Public Shared Sub Main()
Dim last30Dates As DateTime() = New DateTime(29) {}
Dim today As DateTime = DateTime.Today
For i As Integer = 0 To 30 - 1
last30Dates(i) = today.AddDays(-i)
Next
For Each dt In last30Dates
Console.WriteLine(dt.ToShortDateString())
Next
End Sub
End Class
' run:
'
' 04/10/2025
' 04/09/2025
' 04/08/2025
' 04/07/2025
' 04/06/2025
' 04/05/2025
' 04/04/2025
' 04/03/2025
' 04/02/2025
' 04/01/2025
' 03/31/2025
' 03/30/2025
' 03/29/2025
' 03/28/2025
' 03/27/2025
' 03/26/2025
' 03/25/2025
' 03/24/2025
' 03/23/2025
' 03/22/2025
' 03/21/2025
' 03/20/2025
' 03/19/2025
' 03/18/2025
' 03/17/2025
' 03/16/2025
' 03/15/2025
' 03/14/2025
' 03/13/2025
' 03/12/2025
'
