private string STimetoRunAsDateParam(STime time)
{
string s = time.Day.ToString("D2") + "/" + time.Month.ToString("D2") + "/2000 " + time.Hour.ToString("D2") + ":" + time.Minute.ToString("D2") + ":00 ";
Console.WriteLine(s);
return(s);
}
private void RunButton_Click(object sender, EventArgs e)
{
try
{
STime time = InitialSeedtoSTime((uint)InitialSeedInput.Value);
System.Diagnostics.Process.Start(ConfigurationManager.AppSettings["RunAsDateDirectory"], "/immediate " + STimetoRunAsDateParam(time) + ConfigurationManager.AppSettings["VBADirectory"]);
} catch
{
MessageBox.Show("An Error Occurred\nMake sure you have selected RunAsDate and VBA-rr correctly.");
}
}
private STime InitialSeedtoSTime(uint seed)
{
int minDay = 0;
int maxDay = 0;
STime t;
for (byte month = 1; month < 13; month++)
{
maxDay += DateTime.DaysInMonth(2000, month);
for (int day = minDay; day < maxDay; day++)
{
for (int hour = 0; hour < 24; hour++)
{
for (int minute = 0; minute < 60; minute++)
{
int v = 1440 * day + 960 * (hour / 10) + 60 * (hour % 10) + 16 * (minute / 10) + (minute % 10) + 0x5A0;
v = (v >> 16) ^ (v & 0xFFFF);
if (v == seed)
{
t = new STime
{
Month = month,
Day = day - minDay + 1,
Hour = hour,
Minute = minute
};
return(t);
}
}
}
}
minDay += DateTime.DaysInMonth(2000, month);
}
t = new STime
{
Month = 1,
Day = 1,
Hour = 0,
Minute = 0
};
return(t);
}
