Basit bir For-Next döngüsü kurarak, tanımladığımız DateTime değişkenine her döngü çalıştığında 1 sayı arttırıyoruz.
Dim gunler As DateTime = DateTime.Now
For goster As Integer = 0 To 6
'Tarihsel göstermek için,
MsgBox(gunler.ToString("d"))
'Gün olarak göstermek için,
MsgBox(gunler.ToString("dd"))
'İlk 3 harfini göstermek için,
MsgBox(gunler.ToString("dddd"))
'Tam göstermek için,
MsgBox(gunler.ToString("dddd"))
gunler = gunler.AddDays(1)
Next