Visual Basic

Public Class MinimizeInTray<br />
    Public TrayMenu As New ContextMenu<br />
    Public Restorewindowstate As FormWindowState = <br />
FormWindowState.Normal<br />
    Public trayicon As New NotifyIcon<br />
    Public mainform As New Form<br />
    Public visible As Boolean = False<br />
    Sub New(ByVal form As Form, Optional ByVal icontext As String = "", <br />
Optional ByVal icon As Icon = Nothing)<br />
        TrayMenu.MenuItems.Clear()<br />
        mainform = form<br />
        TrayMenu.MenuItems.Add("Restore", AddressOf restore)<br />
        TrayMenu.MenuItems.Add("Close", AddressOf close)<br />
        AddHandler trayicon.DoubleClick, AddressOf restore<br />
        With trayicon<br />
            .Visible = False<br />
            If IsNothing(icon) Then<br />
                .Icon = mainform.Icon<br />
            Else<br />
                .Icon = icon<br />
            End If<br />
            .Text = icontext<br />
            .ContextMenu = TrayMenu<br />
        End With<br />
    End Sub<br />
    Private Sub restore(ByVal sender As System.Object, ByVal e As <br />
System.EventArgs)<br />
        mainform.ShowInTaskbar = True<br />
        visible = True<br />
        trayicon.Visible = False<br />
        mainform.WindowState = Restorewindowstate<br />
    End Sub<br />
    Private Sub close(ByVal sender As System.Object, ByVal e As <br />
System.EventArgs)<br />
        trayicon.Visible = False<br />
        mainform.Close()<br />
    End Sub<br />
End Class

                public   enum DateInterval
                {
                     Second, Minute, Hour, Day, Week, Month, Quarter, Year
		}

		public static long DateDiff(DateInterval Interval, System.DateTime StartDate, 
																	System.DateTime EndDate )
		{
			long lngDateDiffValue = 0;
			System.TimeSpan TS = new System.TimeSpan(EndDate.Ticks - StartDate.Ticks);
			switch (Interval)
			{
				case DateInterval.Day:
					lngDateDiffValue = (long) TS.Days;
					break;
				case DateInterval.Hour:
					lngDateDiffValue = (long)TS.TotalHours;
					break;
				case DateInterval.Minute:
					lngDateDiffValue = (long) TS.TotalMinutes;
					break;
				case DateInterval.Month:
					lngDateDiffValue = (long)( TS.Days / 30);
					break;
				case DateInterval.Quarter:
					lngDateDiffValue = (long)( (TS.Days / 30) / 3 );
					break;
				case DateInterval.Second:
					lngDateDiffValue = (long) TS.TotalSeconds;
					break;
				case DateInterval.Week:
					lngDateDiffValue = (long)( TS.Days / 7);
					break;
				case DateInterval.Year:
					lngDateDiffValue = (long)( TS.Days / 365);
					break;
			}
			return (lngDateDiffValue);
		}//end of DateDiff



DateDiff(DateInterval.Day,startdate,endDate)

Hope that helps. 

 

<div class="ForumSig">Regards,
Arun Kumar.A</div>

andyharman wrote:

Can't you just use the VB "DateDiff" function?