public void CrearLibro()
{
Random random = new Random();
this.Filename = this.prtRutaParaExportacion.Trim().Length > 0 ? this.prtRutaParaExportacion : "C:\\Exportacion_Excel";
if (!Directory.Exists(this.Filename))
{
Directory.CreateDirectory(this.Filename);
}
this.Filename = this.Filename + "\\" + this.prtTitulo + " " + DateAndTime.DatePart(DateInterval.Day, DateTime.Now, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1).ToString() + DateAndTime.Month(DateTime.Now).ToString() + DateAndTime.Year(DateTime.Now).ToString() + DateAndTime.Hour(DateTime.Now).ToString() + DateAndTime.Minute(DateTime.Now).ToString() + DateAndTime.Second(DateTime.Now).ToString() + ".xlsx";
if (File.Exists(this.Filename))
{
File.Delete(this.Filename);
}
if (File.Exists(this.Filename))
{
return;
}
this.chkexcel = false;
this.oexcel = (Application)Interaction.CreateObject("Excel.Application", "");
// ISSUE: reference to a compiler-generated method
this.obook = this.oexcel.Workbooks.Add((object)Missing.Value);
this.oexcel.Application.DisplayAlerts = true;
this.chkexcel = true;
}
/// <summary>
/// Implements the DATEPART function
/// </summary>
/// <param name="datepart">The specific part of the <paramref name="date"/> argument for which DATEPART will return an integer</param>
/// <param name="date">The date to extract the <paramref name="datepart"/> from</param>
/// <returns>The <paramref name="datepart"/> of the <paramref name="date"/></returns>
public static int?DatePart(string datepart, DateTime?date)
{
if (date == null)
{
return(null);
}
var interval = DatePartToInterval(datepart);
return(DateAndTime.DatePart(interval, date.Value));
}
/// <summary>
/// Implements the DATEPART function
/// </summary>
/// <param name="datepart">The specific part of the <paramref name="date"/> argument for which DATEPART will return an integer</param>
/// <param name="date">The date to extract the <paramref name="datepart"/> from</param>
/// <returns>The <paramref name="datepart"/> of the <paramref name="date"/></returns>
public static SqlInt32 DatePart(string datepart, SqlDateTime date)
{
if (date.IsNull)
{
return(SqlInt32.Null);
}
var interval = DatePartToInterval(datepart);
return(DateAndTime.DatePart(interval, date.Value));
}
public List <DateTime> GetAllDates(string symbol)
{
string url = string.Format(@"https://www.zacks.com/stock/research/{0}/earnings-announcements", symbol);
string HTMLCode = GetHTMLCode(url);
List <DateTime> resultDates = new List <DateTime>();
DateTime iDate;
DateTime NextEarningsDate = GetNextEarningDate(symbol);
string track1 = "\"earnings_announcements_earnings_table\"";
string track2 = "[ \"";
string track3 = "\"";
string trackEnd = "earnings_announcements_webcasts_table";
int local1 = 0;
int targetStart = 0;
int targetEnd = 0;
int local2 = 0;
local1 = HTMLCode.IndexOf(track1, local1 + 1);
local1 = HTMLCode.IndexOf(track1, local1 + 1);
local2 = HTMLCode.IndexOf(trackEnd, local1 + 1);
targetStart = HTMLCode.IndexOf(track2, local1 + track1.Length);
targetEnd = HTMLCode.IndexOf(track3, targetStart + track2.Length);
while (targetStart < local2)
{
iDate = DateTime.ParseExact(HTMLCode.Substring(targetStart + track2.Length, targetEnd - targetStart - track2.Length),
"M/d/yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None);
if (DateAndTime.DatePart("yyyy", iDate) + DateAndTime.DatePart("q", iDate) ==
DateAndTime.DatePart("yyyy", NextEarningsDate) + DateAndTime.DatePart("q", NextEarningsDate))
{
iDate = NextEarningsDate;
}
resultDates.Add(iDate);
//Console.WriteLine(iDate);
targetStart = HTMLCode.IndexOf(track2, targetEnd + track3.Length);
targetEnd = HTMLCode.IndexOf(track3, targetStart + track2.Length);
}
return(resultDates);
}
/// <summary>
/// Implementation of DatePart where DateValue is an object, in some cases this function is
/// expected to return null which is not done by Microsoft.VisualBasic.DateAndTime.DatePart.
/// </summary>
/// <param name="interval">DateInterval enumeration value or String expression representing
/// the part of the date/time value you want to return.
/// </param>
/// <param name="dateValue">Date value that you want to evaluate.</param>
/// <param name="dayOfWeek">A value chosen from the FirstDayOfWeek enumeration that specifies
/// the first day of the week. If not specified, FirstDayOfWeek.Sunday is used.</param>
/// <param name="weekOfYear">A value chosen from the FirstWeekOfYear enumeration that specifies
/// the first week of the year. If not specified, FirstWeekOfYear.Jan1 is used.</param>
/// <returns>Returns an Integer value containing the specified component of a given Date value
/// or null if DateValue is null.</returns>
public static object DatePart(string interval, object dateValue, FirstDayOfWeek dayOfWeek, FirstWeekOfYear weekOfYear)
{
if (dateValue == null)
{
return(null);
}
if (Convert.IsDBNull(dateValue))
{
return(null);
}
if ((dateValue is string) && (string.IsNullOrEmpty((string)dateValue)))
{
return(null);
}
return(DateAndTime.DatePart(interval, Convert.ToDateTime(dateValue), dayOfWeek, weekOfYear));
}
public void DatePart(string interval, object dateValue, int expected)
{
Assert.Equal(expected, DateAndTime.DatePart(interval, dateValue));
}
public void DatePart(DateInterval interval, DateTime dateValue, int expected)
{
Assert.Equal(expected, DateAndTime.DatePart(interval, dateValue));
}
public static Int32 GetWeekNum(this DateTime date) => DateAndTime.DatePart(DateInterval.WeekOfYear, date, FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1);
public void WriteRecordingQueueToFile()
{
if (RecordQueue.Length > 0)
{
string nmeafolder = Application.StartupPath + "\\NMEA";
if (!(new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.DirectoryExists(nmeafolder))
{
try
{
(new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.CreateDirectory(nmeafolder);
}
catch (Exception)
{
}
}
string nmeafile = nmeafolder + "\\" + System.Convert.ToString(DateAndTime.Year(DateTime.Now)) + Strings.Format(DateAndTime.Month(DateTime.Now), "00") + Strings.Format(DateAndTime.DatePart(DateInterval.Day, DateTime.Now, (Microsoft.VisualBasic.FirstDayOfWeek)Microsoft.VisualBasic.FirstDayOfWeek.Sunday, (Microsoft.VisualBasic.FirstWeekOfYear)Microsoft.VisualBasic.FirstWeekOfYear.Jan1), "00") + ".txt";
try
{
(new Microsoft.VisualBasic.Devices.ServerComputer()).FileSystem.WriteAllText(nmeafile, RecordQueue, true);
RecordQueue = ""; //Clear that out
}
catch (Exception)
{
}
}
}
public static int DatePart(DateInterval Interval, DateTime DateValue)
{
return(DateAndTime.DatePart((Microsoft.VisualBasic.DateInterval)Interval, DateValue,
Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Microsoft.VisualBasic.FirstWeekOfYear.Jan1));
}
/// <summary>
/// Returns a Date value containing a date and time value to which a specified time interval has been added.
/// </summary>
/// <param name="interval"></param>
/// <param name="dateTime"></param>
/// <returns></returns>
public static int DatePart(string interval, DateTime dateTime)
{
return(DateAndTime.DatePart(interval, dateTime));
}
/// <summary>
/// Gets a DateTime representing the first day in the current week (ISO Week)
/// </summary>
/// <param name="current">The current date</param>
/// <returns></returns>
public static DateTime FirstDayOfWeek(this DateTime current)
{
return(current.AddDays(1 - DateAndTime.DatePart(DateInterval.Weekday, current, Constants.vbMonday)));
}
private void BindPage(DateTime dDate)
{
var dBegin = default(DateTime);
var dEnd = default(DateTime);
var sBegin = default(DateTime);
var sEnd = default(DateTime);
var objEventInfoHelper = new EventInfoHelper(this.ModuleId, this.TabId, this.PortalId, this.Settings);
try
{
// Set Date Range
if (this.Settings.WeekStart != FirstDayOfWeek.Default)
{
this._dWeekStart =
dDate.AddDays(Convert.ToDouble(-(int)dDate.DayOfWeek + this.Settings.WeekStart));
}
else
{
this._dWeekStart = dDate.AddDays(Convert.ToDouble(-(int)dDate.DayOfWeek));
}
if (((int)dDate.DayOfWeek < (int)this.Settings.WeekStart) &
(this.Settings.WeekStart != FirstDayOfWeek.Default))
{
this._dWeekStart = this._dWeekStart.AddDays(-7);
}
this.lblWeekOf.Text = string.Format(Localization.GetString("capWeekEvent", this.LocalResourceFile),
DateAndTime.DatePart(
DateInterval.WeekOfYear, this._dWeekStart,
FirstWeekOfYearValue: FirstWeekOfYear.FirstFourDays),
this._dWeekStart.ToLongDateString());
this.ViewState[this.ModuleId + "WeekOf"] = this._dWeekStart.ToShortDateString();
// Allow 7 days for events that might start before beginning of week
sBegin = this._dWeekStart;
dBegin = DateAndTime.DateAdd(DateInterval.Day, -7, this._dWeekStart);
sEnd = DateAndTime.DateAdd(DateInterval.Day, Convert.ToDouble(+7), this._dWeekStart);
dEnd = sEnd;
// Get Events/Sub-Calendar Events
var getSubEvents = this.Settings.MasterEvent;
this._selectedEvents =
objEventInfoHelper.GetEvents(dBegin, dEnd, getSubEvents, this.SelectCategory.SelectedCategory,
this.SelectLocation.SelectedLocation, this.GetUrlGroupId(),
this.GetUrlUserId());
this._selectedEvents =
objEventInfoHelper.ConvertEventListToDisplayTimeZone(
this._selectedEvents, this.GetDisplayTimeZoneId());
// Setup ScheduleGeneral
// Create DataView
var eventTable = new DataTable("Events");
eventTable.Columns.Add("ID", Type.GetType("System.Int32"));
eventTable.Columns.Add("CreatedByID", Type.GetType("System.Int32"));
eventTable.Columns.Add("OwnerID", Type.GetType("System.Int32"));
eventTable.Columns.Add("StartTime", Type.GetType("System.DateTime"));
eventTable.Columns.Add("EndTime", Type.GetType("System.DateTime"));
eventTable.Columns.Add("Icons", Type.GetType("System.String"));
eventTable.Columns.Add("Task", Type.GetType("System.String"));
eventTable.Columns.Add("Description", Type.GetType("System.String"));
eventTable.Columns.Add("StartDateTime", Type.GetType("System.DateTime"));
eventTable.Columns.Add("Duration", Type.GetType("System.Int32"));
eventTable.Columns.Add("URL", Type.GetType("System.String"));
eventTable.Columns.Add("Target", Type.GetType("System.String"));
eventTable.Columns.Add("Tooltip", Type.GetType("System.String"));
eventTable.Columns.Add("BackColor", Type.GetType("System.String"));
if (this.Settings.Eventtooltipweek)
{
this.toolTipManager.TargetControls.Clear();
}
var dgRow = default(DataRow);
var objEvent = default(EventInfo);
foreach (EventInfo tempLoopVar_objEvent in this._selectedEvents)
{
objEvent = tempLoopVar_objEvent;
// If full enrollments should be hidden, ignore
if (this.HideFullEvent(objEvent))
{
continue;
}
if (objEvent.EventTimeEnd > sBegin && objEvent.EventTimeBegin < sEnd)
{
dgRow = eventTable.NewRow();
dgRow["ID"] = objEvent.EventID;
dgRow["CreatedByID"] = objEvent.CreatedByID;
dgRow["OwnerID"] = objEvent.OwnerID;
dgRow["StartTime"] = objEvent.EventTimeBegin;
if (!objEvent.AllDayEvent)
{
dgRow["EndTime"] = objEvent.EventTimeEnd;
}
else
{
// all day events are recorded as 23:59
dgRow["EndTime"] = objEvent.EventTimeEnd.AddMinutes(1);
}
//**** Add ModuleName if SubCalendar
var imagestring = "";
if (this.Settings.Eventimage && this.Settings.EventImageWeek &&
objEvent.ImageURL != null && objEvent.ImageDisplay)
{
imagestring = this.ImageInfo(objEvent.ImageURL, objEvent.ImageHeight, objEvent.ImageWidth);
}
dgRow["BackColor"] = "";
var iconString = "";
var eventtext = this.CreateEventName(objEvent, this.Settings.Templates.txtWeekEventText);
if (!this.IsPrivateNotModerator || this.UserId == objEvent.OwnerID)
{
var forecolorstr = "";
var backcolorstr = "";
var blankstr = "";
if (objEvent.Color != "")
{
backcolorstr = "background-color: " + objEvent.Color + ";";
blankstr = " ";
dgRow["BackColor"] = objEvent.Color;
}
if (objEvent.FontColor != "")
{
forecolorstr = "color: " + objEvent.FontColor + ";";
}
dgRow["Task"] = "<span style=\"" + backcolorstr + forecolorstr + "\">" + imagestring +
blankstr + eventtext + blankstr + "</span>";
iconString =
this.CreateIconString(objEvent, this.Settings.IconWeekPrio, this.Settings.IconWeekRec,
this.Settings.IconWeekReminder, this.Settings.IconWeekEnroll);
// Get detail page url
dgRow["URL"] = objEventInfoHelper.DetailPageURL(objEvent);
if (objEvent.DetailPage && objEvent.DetailNewWin)
{
dgRow["Target"] = "_blank";
}
}
else
{
dgRow["Task"] = imagestring + eventtext;
}
dgRow["Icons"] = iconString;
dgRow["Description"] = objEvent.EventDesc;
dgRow["StartDateTime"] = objEvent.EventTimeBegin;
dgRow["Duration"] = objEvent.Duration;
if (this.Settings.Eventtooltipweek)
{
var isEvtEditor = this.IsEventEditor(objEvent, false);
dgRow["Tooltip"] =
this.ToolTipCreate(objEvent, this.Settings.Templates.txtTooltipTemplateTitle,
this.Settings.Templates.txtTooltipTemplateBody, isEvtEditor);
}
eventTable.Rows.Add(dgRow);
}
}
var dvEvent = new DataView(eventTable);
this.schWeek.StartDate = this._dWeekStart;
this.schWeek.DateFormatString = this.Settings.Templates.txtWeekTitleDate;
this.schWeek.Weeks = 1;
this.schWeek.DataSource = dvEvent;
this.schWeek.DataBind();
}
catch
{ }
}
public static string SQLDate(string sText)
{
DateTime dateValue = Conversions.ToDate(sText);
return(Conversions.ToString(DateAndTime.DatePart(DateInterval.Month, dateValue, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) + "/" + Conversions.ToString(DateAndTime.DatePart(DateInterval.Day, dateValue, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) + "/" + Conversions.ToString(DateAndTime.DatePart(DateInterval.Year, dateValue, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)));
}
public void TaoKeHoachTuan(int IDNamHoc, DateTime TuNgay, DateTime DenNgay, int Ky2TuTuan)
{
XL_TuanInfo pXL_TuanInfo = new XL_TuanInfo();
cBXL_Tuan oBXL_Tuan = new cBXL_Tuan();
pXL_TuanInfo.IDDM_NamHoc = IDNamHoc;
DataView dv = oBXL_Tuan.GetByIDNamHoc(pXL_TuanInfo).DefaultView;
DateTime NgayDau, NgayCuoi;
int TuanThu, Tuan, Ky, idx;
// Lấy tuần thứ mấy trong năm. Dùng hàm DatePart của VB.NET
TuanThu = DateAndTime.DatePart(DateInterval.WeekOfYear, TuNgay, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1);
NgayDau = TuNgay;
NgayCuoi = NgayDau.AddDays(1);
Tuan = 1;
Ky = 1;
do
{
if ((TuanThu != DateAndTime.DatePart(DateInterval.WeekOfYear, NgayCuoi, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1)) && (NgayCuoi.DayOfWeek == DayOfWeek.Sunday))
{
dv.Sort = "TuanThu";
idx = dv.Find(Tuan);
if (idx < 0)
{
pXL_TuanInfo.TuanThu = Tuan;
pXL_TuanInfo.IDDM_NamHoc = IDNamHoc;
pXL_TuanInfo.TuNgay = NgayDau;
pXL_TuanInfo.DenNgay = NgayCuoi;
pXL_TuanInfo.ChoPhepXemLich = false;
pXL_TuanInfo.HocKy = Ky;
oBXL_Tuan.Add(pXL_TuanInfo);
}
else
{
pXL_TuanInfo.XL_TuanID = long.Parse(dv[idx]["XL_TuanID"].ToString());
pXL_TuanInfo.TuanThu = Tuan;
pXL_TuanInfo.IDDM_NamHoc = IDNamHoc;
pXL_TuanInfo.TuNgay = NgayDau;
pXL_TuanInfo.DenNgay = NgayCuoi;
pXL_TuanInfo.ChoPhepXemLich = false;
pXL_TuanInfo.HocKy = Ky;
oBXL_Tuan.Update(pXL_TuanInfo);
}
NgayCuoi = NgayCuoi.AddDays(1);
NgayDau = NgayCuoi;
TuanThu = DateAndTime.DatePart(DateInterval.WeekOfYear, NgayCuoi, FirstDayOfWeek.Sunday, FirstWeekOfYear.Jan1);
Tuan += 1;
if (Tuan < Ky2TuTuan)
{
Ky = 1;
}
else
{
Ky = 2;
}
}
NgayCuoi = NgayCuoi.AddDays(1);
}while (NgayCuoi <= DenNgay);
pXL_TuanInfo.TuanThu = Tuan;
oBXL_Tuan.DeleteTuanThua(pXL_TuanInfo);
}
