vb.net 简易日历

楼主，咱们是校友啊，我今年也做这个程序，能给我发一份程序呗，谢啦！！！QQ：2648039855

目前创新互联公司已为成百上千家的企业提供了网站建设、域名、网站空间、网站改版维护、企业网站设计、新昌网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

vb.net 如何判断今天是星期五

If Now.DayOfWeek = DayOfWeek.Friday Then MsgBox("今天是星期五") Else MsgBox("今天不是星期五")

vb.net中怎么根据日期算出是周几呢？

Public Function IsRunnian(ByVal n As Integer) As Boolean

Dim res As Boolean

res = False

If n Mod 400 = 0 Then

res = True

End If

If (n Mod 100  0) And (n Mod 4 = 0) Then

res = True

End If

IsRunnian = res

End Function

Public Function Fc(ByVal td As Date) As Byte

Dim y As Integer

Dim m As Integer

Dim d As Integer

Dim yc As Integer

Dim mc As Integer

Dim dc As Integer

y = Year(td)

m = Month(td)

d = Day(td)

dc = d

If IsRunnian(y) Then

mc = Val(Mid("512503514624", m, 1))

Else

mc = Val(Mid("622503514624", m, 1))

End If

yc = ((y Mod 100) \ 4 + (y Mod 100)) Mod 7

Fc = (yc + mc + dc) Mod 7

End Function

vb.net中如何获取当前日期所在星期的星期一

1

string[] Day = new string[] { "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六" };

string week = Day[Convert.ToInt32(DateTime.Now.DayOfWeek.ToString("d"))].ToString();

this.lbDay.Text = week;

2

this.lbDay.Text = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName(DateTime.Now.DayOfWeek);

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的asp.net编写显示当前日期时间和星期几的代码怎么写？急用

C#

string [] Day=new string []{"星期日","星期一","星期二","星期三","星期四","星期五","星期六"};

Console.WriteLine(Day[Convert.ToInt16(DateTime.Now.DayOfWeek)]);

相信VB.net的你，应该懂的。

网页名称：vb.net星期,vb星期函数
URL地址：http://kswjz.com/article/dsseoeh.html