Question

Alright, so I have the following code to grab the last 4 characters in a folder name, which will always be date, formatted as MMDD. This date will always be a Monday date as well.

Folder name example being trimmed below: C:\Temp\Textfiles\20120813

Dim MMDD_Date As String = Microsoft.VisualBasic.Right(TextBox1_Path.Text, 4)

What I’m unsure of, is how to calculate the remaining days for that week, ending on a Friday. Obvioulsy you cant convert the string to an int and add 1 since some months have 29, 30 or 31 depending on leap years.

The end result would be something like this:

Mon: 0813

Tue: 0814

Wed: 0815

Thu: 0816

Fri: 0817

Any suggestions to point me in the right direction?

Answer 1

Looks like you want something like this. I am not entirely sure. This is in C#, I assume you can convert it to VB.NET.

var folderName = @"C:\Temp\Textfiles\20120813"; //Test input
var dateString = folderName.Substring(folderName.Length - 8);
var date = DateTime.ParseExact(dateString, "yyyyMMdd", CultureInfo.InvariantCulture);

var counter = date.DayOfWeek; //OP says this is always a Monday, but is not hardcoded
var mmdd = int.Parse(folderName.Substring(folderName.Length - 4));
var myDates = new List<string>();

do
{
  myDates.Add(string.Format("{0}: {1:0000}", counter.ToString().Substring(0, 3), mmdd++)); //E.g. "Mon: 0813"
} while (counter++ < DayOfWeek.Friday);