13518219792
你自己需要的啊 分不清那一个的 以下是我前几天写的
成都创新互联公司专注于企业全网营销推广、网站重做改版、集宁网站定制设计、自适应品牌网站建设、html5、商城网站制作、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为集宁等各大城市提供网站开发制作服务。
1.CSDN 很多资料和已解决问题
CSDN在全球范围内注册用户超过220万，日浏览量超过800万，是中国大陆及全球华人IT专业人士中最受推崇的专业品牌。
凭借领先的技术平台和优质的内容服务，CSDN赢得IT专业人士一致好评，在2004年中国BBS百强评选中，CSDN名列IT类网站榜首，2006年度当选Red Herring亚洲未上市科技百强企业。
2.问专家
它的广告：如果您在编程过程中遇到任何问题，您可以把您的问题寄给我们，我们将努力帮助您寻找答案或线索。
3.网络大本营
偏向于网络编程.net 和 asp
4.VB爱好者乐园
内容还全面，有很多完整的程序和技巧
5. 编程爱好者论坛
全面，偏向技术
6.月光软件
一个很不错的网站，内容全面 有大量源码，推荐！
7.计算机等级考试内容辅导视频教学
手把手的老师在线讲课，速度还可以
8.中国VB网
内容很多
呵呵 转自我今天写在我们论坛的帖子
Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim y,m,t As Integer
begin:
' 输入数据时一行一个
y=CInt(Console.ReadLine())
m=CInt(Console.ReadLine())
t=CInt(Console.ReadLine())
If y
200 Then
Console.WriteLine("ERROR")
goto begin
End If
pr(y,m,t)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function pr(y As Integer,m As Integer,t As Integer) As Integer
Dim ye,[Me],i As Integer
ye=CInt((m+t-2)/12+y)
[Me]=(m+t-2) Mod 12+1
End If
End Function
Function mday(y As Integer,m As Integer) As Integer
Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}
Dim ad As I
给你个网站看
可在线将vb.net代码转成c＃的，我用过，还可以的，但是转后也要改动一些。这里还有将c＃转vb.net的。
这是我转的：
string[] ArrValue = new string[43];
int Nums;
public void Page_Load(object Sender, EventArgs E)
{
int I;
if (!IsPostBack) {
for (I = 1900; I = 2101; I++) {
ListItem IItem = new ListItem();
IItem.Text = (string)I;
if (I == Year(Now)) {
IItem.Selected = "True";
}
DropYear.items.add(IItem);
}
for (I = 1; I = 12; I++) {
ListItem IItem = new ListItem();
IItem.Text = (string)I;
if (I == Month(Now)) {
IItem.Selected = "True";
}
DropMonth.items.add(IItem);
}
}
DispDetail(Conversion.Val(DropYear.SelectedItem.Text), Conversion.Val(DropMonth.SelectedItem.Text));
}
public void DispDetail(int YYear, int MMonth)
{
System.DateTime theDate;
int theYear;
int theMonth;
int theDay;
int theWeek;
int theFirstNum;
int NumOfMonth;
int i;
string theStr;
theYear = YYear;
theMonth = MMonth;
theDay = 1;
//获得所要查询的月的第一天日期
theDate = DateSerial(theYear, theMonth, theDay);
//确定所要查询的第一天是星期几
theWeek = weekday(theDate);
theFirstNum = theWeek;
//确定所要查询的月的天数
NumOfMonth = GetDayNum(theyear, themonth);
for (i = 0; i = 41; i++) {
ArrValue(i) = "";
}
for (i = 0; i = NumOfMonth - 1; i++) {
ArrValue(theFirstNum - 1 + i) = i + 1;
}
}
public object GetDayNum(int YYear, int MMonth)
{
object functionReturnValue = null;
if (MMonth == 1 | MMonth == 3 | MMonth == 5 | MMonth == 7 | MMonth == 8 | MMonth == 10 | MMonth == 12) {
functionReturnValue = 31;
}
else {
if (MMonth == 4 | MMonth == 6 | MMonth == 9 | MMonth == 11) {
functionReturnValue = 30;
}
else {
if (((YYear % 4 == 0) (YYear % 100 != 0)) | (YYear % 400 == 0)) {
functionReturnValue = 29;
}
else {
functionReturnValue = 28;
}
}
}
return functionReturnValue;
}
