可以使用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()
等等！
注意：从字面意思可以理解是加，而括号里是填写对应的数值，当数值为负数，起到减的作用了。
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)
不是 有 函数嘛？
now() 就是 吧
取得 后 再 分离出你所需的，分别赋值 就行了，当然 还是 有 函数的
第一种方案:要求我们在文本框输入一个你想要的月份,进行判断
页面设计代码:
%@ 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中获取系统当前的时间用函数 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