VB.net 写一个方法，求一个时间变量=系统当前年月时间-去5个月的时间，求大神指点

可以使用VB.NET中的DataTime对象的AddMonths方法：

轮台ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18982081108（备注：SSL证书合作）期待与您的合作！

Dim d1 As Date = Now

MsgBox(d1) '显示现在的机器日期与时间

MsgBox(d1.AddMonths(2)) '显示现在的机器日期加上2个月的对应日期与时间

MsgBox(d1.AddMonths(-1)) '显示现在的机器日期减掉1个月的对应日期与时间

DataTime对象的方法很多，你可以通过在线查阅，例如：

d1.Add()

d1.AddDays()

d1.AddHours()

d1.AddMinutes()

d1.AddSeconds()

d1.AddYears()

等等！

注意：从字面意思可以理解是加，而括号里是填写对应的数值，当数值为负数，起到减的作用了。

vb.net中怎么获取日期中的年月日时分秒

Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '获得当前日期字符串

Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '当前日期转换成DateTime

Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '获得当前日期是星期几

Dim differadd As Integer = 1 - ThisWeekDay '相差的天数（星期1与当前星期几相差的天数）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份

Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份

Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号

Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)

Dim Yourday As DateTime = MyToday.Add(MyAdd)

MsgBox("本周星期一的日期是：" Yourday)

vb.net获取年，月，日，时，分，秒

不是 有 函数嘛？

now() 就是 吧

取得 后 再 分离出你所需的，分别赋值 就行了，当然 还是 有 函数的

.NET中取当前日期所在季度的第一天和最后一天的函数应该如何写？

第一种方案:要求我们在文本框输入一个你想要的月份,进行判断

页面设计代码:

%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="WebSite1_Default" %

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""

html xmlns=""

head runat="server"

title无标题页/title

/head

body

form id="form1" runat="server"

div

asp:Label ID="Label1" runat="server" Text="请输入当前月份:"/asp:Label

asp:TextBox ID="TextBox1" runat="server"/asp:TextBox

asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="提 交" /br /

br /

asp:Label ID="Label2" runat="server" Text="本季的第一天:"/asp:Label

asp:Label ID="Label3" runat="server" ForeColor="#FF0066"/asp:Label

asp:Label ID="Label4" runat="server" Text="本季的最后一天:"/asp:Label

asp:Label ID="Label5" runat="server" ForeColor="#003399"/asp:Label/div

/form

/body

/html

页面后台代码:

using System;

using System.Data;

using System.Configuration;

using System.Collections;

using System.Web;

using System.Web.Security;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Web.UI.WebControls.WebParts;

using System.Web.UI.HtmlControls;

using System.Timers;

public partial class WebSite1_Default : System.Web.UI.Page

{

protected void Page_Load(object sender, EventArgs e)

{

}

protected void Button1_Click(object sender, EventArgs e)

{

int month;

month = Convert.ToInt32(TextBox1.Text);

//农历法

if (month = 1 month 4)

{

Label3.Text = "1月1日";

Label5.Text = "3月31日";

}

else if (month = 4 month 7)

{

Label3.Text = "4月1日";

Label5.Text = "6月30日";

}

else if (month = 7 month 10)

{

Label3.Text = "7月1日";

Label5.Text = "9月30日";

}

else

{

Label3.Text = "10月1日";

Label5.Text = "12月31日";

}

}

}

********************************************************************

using System;

using System.Data;

using System.Configuration;

using System.Collections;

using System.Web;

using System.Web.Security;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Web.UI.WebControls.WebParts;

using System.Web.UI.HtmlControls;

using System.Timers;

public partial class WebSite1_Default : System.Web.UI.Page

{

protected void Page_Load(object sender, EventArgs e)

{

}

protected void Button1_Click(object sender, EventArgs e)

{

int month;

month = Convert.ToInt32(TextBox1.Text);

//阳历法

if (month = 3 month 6)

{

Label3.Text = "3月1日";

Label5.Text = "5月31日";

}

else if (month = 6 month 9)

{

Label3.Text = "6月1日";

Label5.Text = "8月31日";

}

else if (month = 9 month 12)

{

Label3.Text = "9月1日";

Label5.Text = "11月30日";

}

else

{

Label3.Text = "12月1日";

Label5.Text = "2月28日";

}

}

}

第二种方案:要求自动根据电脑系统的时间月份,进行判断!

页面代码

%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default2.aspx.cs" Inherits="WebSite1_Default2" %

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""

html xmlns=""

head runat="server"

title无标题页/title

/head

body

form id="form1" runat="server"

div

        

asp:Label ID="Label1" runat="server"/asp:Labelbr /

br /

        

asp:Label ID="Label2" runat="server" Text="本季的第一天:"/asp:Label

asp:Label ID="Label3" runat="server" ForeColor="#FF0066"/asp:Label

asp:Label ID="Label4" runat="server" Text="本季的最后一天:"/asp:Label

asp:Label ID="Label5" runat="server" ForeColor="#003399"/asp:Labelbr /

br /

br /

/div

/form

/body

/html

----------------------------------------------------------------------

后台代码:

using System;

using System.Data;

using System.Configuration;

using System.Collections;

using System.Web;

using System.Web.Security;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Web.UI.WebControls.WebParts;

using System.Web.UI.HtmlControls;

public partial class WebSite1_Default2 : System.Web.UI.Page

{

protected void Page_Load(object sender, EventArgs e)

{

int month;

month = System.DateTime.Now.Month;

Label1.Text = "当前的月份（按阳历算法）是: " + month+"月份";

//阳历法

if (month = 3 month 6)

{

Label3.Text = "3月1日";

Label5.Text = "5月31日";

}

else if (month = 6 month 9)

{

Label3.Text = "6月1日";

Label5.Text = "8月31日";

}

else if (month = 9 month 12)

{

Label3.Text = "9月1日";

Label5.Text = "11月30日";

}

else

{

Label3.Text = "12月1日";

Label5.Text = "2月28日";

}

}

}

如果楼主觉得我辛苦可以追加点分哈!呵呵

vb怎么获取系统当前的系统时间啊

vb中获取系统当前的时间用函数 now() 就可以。另外还有相关的时间 date() time()

now()获取系统当前日期和时间，如：2015-12-12 22：23：34

time()获取系统的时间，如：22：23：34不显示当前日期

date()获得系统的日期，如：2015-12-12

Private Sub Command1_Click()

MsgBox Now()

MsgBox Time()

MsgBox Date

End Sub

网站名称：包含vb.net获取当前季度的词条
分享地址：http://kswjz.com/article/phjhid.html