DayOfWeek as String 1

[IlyaRabyy]

Colleagues,
The code below shows me the numeric (Int) sequential number of the day (in this case - Friday):

Dim ldToday As Date = Today, ldLastWeek As Date = ldToday.AddDays(-7), lcDate As String = ldLastWeek.ToString(Format("d")), _
    lcFriday As String = "", ldFriday As Date = ldLastWeek
'MsgBox("Today: " & ldToday.ToString("d") & vbCrLf & "Last week: " & ldLastWeek.ToString("d") & vbCrLf & lcDate)
Do While ldFriday.DayOfWeek < DayOfWeek.Friday
   ldFriday = ldFriday.AddDays(1)
Loop

MsgBox(ldFriday.DayOfWeek)

I cannot find how to convert it into the String (s./b. "Friday") - HOW-TO?
TIA!

Regards,

Ilya

 

[SkipVought]

Hi,

Module Module1
    Sub Main()
        ' Use current time.
        ' ... Use a format.
        ' ... Write to console.
        Dim time As DateTime = DateTime.Now
        Dim format As String = "dddd"     '... ddd==Mon, Tue... dddd==Monday, Tuesday...
        Console.WriteLine(time.ToString(format))
    End Sub
End Module

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein

 

[IlyaRabyy]

Works!
Great!


Regards,

Ilya