Imports System
Public Class Test
Public Shared Sub Main()
Dim dt As DateTime = DateTime.Now
For i As Integer = 0 To 6
Console.WriteLine(dt.ToString("ddd"))
dt = dt.AddDays(1)
Next
End Sub
End Class
' run:
'
' Fri
' Sat
' Sun
' Mon
' Tue
' Wed
' Thu
'