Question

How to convert days into human-readable weeks and days in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim days As Integer = 26
		
        Dim str As String = String.Format("{0} Weeks, {1} days", days \ 7, days Mod 7)
		
        Console.WriteLine(str)
    End Sub
End Class
  
    
    
' run:
'
' 3 Weeks, 5 days
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Module Program

    Public Function ToReadableWeeksDays(totalDays As Integer) As String
        Dim weeks As Integer = totalDays \ 7
        Dim days As Integer = totalDays Mod 7

        Return $"{weeks} week{If(weeks = 1, "", "s")} and {days} day{If(days = 1, "", "s")}"
    End Function

    Sub Main()
        Dim days As Integer = 26

        Console.WriteLine(ToReadableWeeksDays(days))
    End Sub

End Module



' run:
' 
' 3 weeks and 5 days
' 

 

70+ SQL courses for beginners and professionals