vb编程计算某年某月某日是星期几 编程是什么，什么是编程？
\u7f16\u7a0b\u662f\u4ec0\u4e48\u610f\u601d\u7f16\u7a0b\u662f\u7f16\u5b9a\u7a0b\u5e8f\u7684\u4e2d\u6587\u7b80\u79f0\uff0c\u5c31\u662f\u8ba9\u8ba1\u7b97\u673a\u4ee3\u4e3a\u89e3\u51b3\u67d0\u4e2a\u95ee\u9898\uff0c\u5bf9\u67d0\u4e2a\u8ba1\u7b97\u4f53\u7cfb\u89c4\u5b9a\u4e00\u5b9a\u7684\u8fd0\u7b97\u65b9\u5f0f\uff0c\u4f7f\u8ba1\u7b97\u4f53\u7cfb\u6309\u7167\u8be5\u8ba1\u7b97\u65b9\u5f0f\u8fd0\u884c\uff0c\u5e76\u6700\u7ec8\u5f97\u5230\u76f8\u5e94\u7ed3\u679c\u7684\u8fc7\u7a0b\u3002
\u4e3a\u4e86\u4f7f\u8ba1\u7b97\u673a\u80fd\u591f\u7406\u89e3\u4eba\u7684\u610f\u56fe\uff0c\u5c31\u5fc5\u987b\u5c06\u9700\u89e3\u51b3\u7684\u95ee\u9898\u7684\u601d\u8def\u3001\u65b9\u6cd5\u548c\u624b\u6bb5\u901a\u8fc7\u8ba1\u7b97\u673a\u80fd\u591f\u7406\u89e3\u7684\u5f62\u5f0f\u544a\u8bc9\u8ba1\u7b97\u673a\uff0c\u4f7f\u5f97\u8ba1\u7b97\u673a\u80fd\u591f\u6839\u636e\u4eba\u7684\u6307\u4ee4\u53bb\u5de5\u4f5c\uff0c\u5b8c\u6210\u67d0\u79cd\u7279\u5b9a\u7684\u4efb\u52a1\u3002\u8fd9\u79cd\u4eba\u548c\u8ba1\u7b97\u4f53\u7cfb\u4e4b\u95f4\u4ea4\u6d41\u7684\u8fc7\u7a0b\u5c31\u662f\u7f16\u7a0b\u3002\u8bbe\u8ba1\u5177\u5907\u903b\u8f91\u6d41\u52a8\u4f5c\u7528\u7684\u4e00\u79cd\u201c\u53ef\u63a7\u4f53\u7cfb\u201d\u3002
\u6269\u5c55\u8d44\u6599\uff1a
\u8ba1\u7b97\u673a\u5bf9\u9664\u673a\u5668\u8bed\u8a00\u4ee5\u5916\u7684\u6e90\u7a0b\u5e8f\u4e0d\u80fd\u76f4\u63a5\u8bc6\u522b\u3001\u7406\u89e3\u548c\u6267\u884c\uff0c\u90fd\u5fc5\u987b\u901a\u8fc7\u67d0\u79cd\u65b9\u5f0f\u8f6c\u6362\u4e3a\u8ba1\u7b97\u673a\u80fd\u591f\u76f4\u63a5\u6267\u884c\u7684\u3002\u8fd9\u79cd\u5c06\u9ad8\u7ea7\u7a0b\u5e8f\u8bbe\u8ba1\u8bed\u8a00\u7f16\u5199\u7684\u6e90\u7a0b\u5e8f\u8f6c\u6362\u5230\u673a\u5668\u76ee\u6807\u7a0b\u5e8f\u7684\u65b9\u5f0f\u6709\u4e24\u79cd\uff1a
1\u3001\u89e3\u91ca\u65b9\u5f0f\uff1a\u8ba1\u7b97\u673a\u5bf9\u9ad8\u7ea7\u8bed\u8a00\u4e66\u5199\u7684\u6e90\u7a0b\u5e8f\u4e00\u8fb9\u89e3\u91ca\u4e00\u8fb9\u6267\u884c\uff0c\u4e0d\u80fd\u5f62\u6210\u76ee\u6807\u6587\u4ef6\u548c\u6267\u884c\u6587\u4ef6\u3002
2\u3001\u7f16\u8bd1\u65b9\u5f0f\uff1a\u7ecf\u8fc7\u5bf9\u6e90\u7a0b\u5e8f\u7684\u8bcd\u6cd5\u5206\u6790\u3001\u8bed\u6cd5\u5206\u6790\u3001\u8bed\u610f\u5206\u6790\u3001\u4ee3\u7801\u751f\u6210\u548c\u4ee3\u7801\u4f18\u5316\u7b49\u9636\u6bb5\u5c06\u6240\u5904\u7406\u7684\u6e90\u7a0b\u5e8f\u8f6c\u6362\u4e3a\u7528\u4e8c\u8fdb\u5236\u4ee3\u7801\u8868\u793a\u7684\u76ee\u6807\u7a0b\u5e8f\uff0c\u7136\u540e\u901a\u8fc7\u8fde\u63a5\u7a0b\u5e8f\u5904\u7406\u5c06\u7a0b\u5e8f\u4e2d\u6240\u7528\u7684\u51fd\u6570\u8c03\u7528\u3001\u7cfb\u7edf\u529f\u80fd\u8c03\u7528\u7b49\u5d4c\u5165\u5230\u76ee\u6807\u7a0b\u5e8f\u4e2d\uff0c\u6784\u6210\u4e00\u4e2a\u53ef\u4ee5\u8fde\u7eed\u6267\u884c\u7684\u4e8c\u8fdb\u5236\u6267\u884c\u6587\u4ef6\u3002
\u53c2\u8003\u8d44\u6599\u6765\u6e90\uff1a\u767e\u5ea6\u767e\u79d1-\u7f16\u7a0b
\u7f16\u7a0b\u662f\u7f16\u5b9a\u7a0b\u5e8f\u7684\u4e2d\u6587\u7b80\u79f0\uff0c\u5c31\u662f\u8ba9\u8ba1\u7b97\u673a\u4ee3\u4e3a\u89e3\u51b3\u67d0\u4e2a\u95ee\u9898\uff0c\u5bf9\u67d0\u4e2a\u8ba1\u7b97\u4f53\u7cfb\u89c4\u5b9a\u4e00\u5b9a\u7684\u8fd0\u7b97\u65b9\u5f0f\uff0c\u4f7f\u8ba1\u7b97\u4f53\u7cfb\u6309\u7167\u8be5\u8ba1\u7b97\u65b9\u5f0f\u8fd0\u884c\uff0c\u5e76\u6700\u7ec8\u5f97\u5230\u76f8\u5e94\u7ed3\u679c\u7684\u8fc7\u7a0b\u3002\u5c06\u5927\u95ee\u9898\u5206\u89e3\u6210\u4e00\u4e2a\u4e00\u4e2a\u7684\u5c0f\u95ee\u9898\uff0c\u5206\u89e3\u6210\u4e00\u6b65\u4e00\u6b65\u7684\u95ee\u9898\uff0c\u5728\u8fc7\u7a0b\u4e2d\u627e\u5230\u601d\u8def\uff0c\u6700\u7ec8\u628a\u5927\u95ee\u9898\u89e3\u51b3\u3002
\u4e3a\u4e86\u4f7f\u8ba1\u7b97\u673a\u80fd\u591f\u7406\u89e3\u4eba\u7684\u610f\u56fe\uff0c\u4eba\u7c7b\u5c31\u5fc5\u987b\u5c06\u9700\u89e3\u51b3\u7684\u95ee\u9898\u7684\u601d\u8def\u3001\u65b9\u6cd5\u548c\u624b\u6bb5\u901a\u8fc7\u8ba1\u7b97\u673a\u80fd\u591f\u7406\u89e3\u7684\u5f62\u5f0f\u544a\u8bc9\u8ba1\u7b97\u673a\uff0c\u4f7f\u5f97\u8ba1\u7b97\u673a\u80fd\u591f\u6839\u636e\u4eba\u7684\u6307\u4ee4\u4e00\u6b65\u4e00\u6b65\u53bb\u5de5\u4f5c\uff0c\u5b8c\u6210\u67d0\u79cd\u7279\u5b9a\u7684\u4efb\u52a1\u3002\u8fd9\u79cd\u4eba\u548c\u8ba1\u7b97\u4f53\u7cfb\u4e4b\u95f4\u4ea4\u6d41\u7684\u8fc7\u7a0b\u5c31\u662f\u7f16\u7a0b\u3002
\u7f16\u7a0b\u662f\u8bbe\u8ba1\u5177\u5907\u903b\u8f91\u6d41\u52a8\u4f5c\u7528\u7684\u4e00\u79cd\u201c\u53ef\u63a7\u4f53\u7cfb\u201d\u3002\u79d1\u6280\u521b\u65b0\u80fd\u529b\u7684\u57f9\u517b\u624d\u662f\u56fd\u4e4b\u6839\u672c\uff0cEzCode\u521b\u65b0\u7f16\u7a0b\u5b66\u9662\u4ee5\u57f9\u517b\u5b69\u5b50\u7684\u79d1\u6280\u521b\u65b0\u80fd\u529b\u4e3a\u6838\u5fc3\uff0c\u901a\u8fc7\u601d\u7ef4\u8bad\u7ec3\u7684\u542f\u8499\u7f16\u7a0b\u3001\u611f\u77e5\u4e16\u754c\u7684\u8f6f\u4ef6\u7f16\u7a0b\u3001\u521b\u65b0\u5236\u9020\u7684\u786c\u4ef6\u7f16\u7a0b\u3001\u4e07\u7269\u4e92\u8054\u7684\u79fb\u52a8\u7f16\u7a0b\u548c\u79d1\u6280\u521b\u65b0\u7684\u9879\u76ee\u7f16\u7a0b\uff0c\u8ba9\u5b69\u5b50\u8fd0\u7528\u7f16\u7a0b\u8fd9\u4e2a\u5de5\u5177\uff0c\u5c06\u81ea\u5df1\u7684\u521b\u610f\u548c\u60f3\u6cd5\u8868\u8fbe\u51fa\u6765\u3002\u5b69\u5b50\u5728\u5e7c\u65f6\u63a5\u89e6\u7684\u73af\u5883\uff0c\u5f80\u5f80\u548c\u4ee5\u540e\u53d1\u5c55\u6709\u6781\u5927\u7684\u5173\u8054\u3002\u4eba\u5de5\u667a\u80fd\u662f\u79bb\u4e0d\u5f00\u7f16\u7a0b\u7684\uff0c\u6240\u4ee5\u5b66\u4f1a\u7f16\u7a0b\u5c06\u4f1a\u662f\u5b69\u5b50\u5c06\u6765\u9762\u5bf9\u4eba\u5de5\u667a\u80fd\u65f6\u4ee3\u7684\u6709\u529b\u7ade\u4e89\u6b66\u5668\u3002
\u53e6\u5916\u5b66\u4e60\u7f16\u7a0b\u4e0d\u4ec5\u5b66\u4e60\u7684\u662f\u77e5\u8bc6\uff0c\u800c\u4e14\u5728\u5b66\u4e60\u8fc7\u7a0b\u4e2d\uff0c\u80fd\u591f\u63d0\u9ad8\u5b69\u5b50\u903b\u8f91\u601d\u7ef4\u80fd\u529b\u3001\u8bd5\u9519\u80fd\u529b\u3001\u4e13\u6ce8\u80fd\u529b\u548c\u52a8\u624b\u89e3\u51b3\u95ee\u9898\u7684\u80fd\u529b\u3002
Weekday(date[, firstdayofweek])
-- date: 必要; Date类型; 要求的日期
-- firstdayofweek: 可选; vbDayOfWeek类型; 定义每周第一天(默认为星期天)
Weekday返回一个Integer, 代表每周第几天.
============================================
WeekdayName(weekday[, abbreviate][, firstdayofweek])
-- weekday: 必要; Long类型; 每周第几天
-- abbreviate: 可选; Boolean类型; 表示星期的名称是否被缩写(默认为False)
-- firstdayofweek: 可选; vbDayOfWeek类型; 定义每周第一天(默认为星期天)
WeekdayName返回一个String, 如"星期一", 但根据不同的系统, 也会返回如"Monday".
============================================
你也可以不用WeekdayName自己得到星期名
Choose(Weekday(#8/8/2008#, vbMonday), "星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")
Private Sub Command1_Click()
Dim s As Date
s = "2008-7-26"
MsgBox WeekdayName(Weekday(s))
End Sub
'上面是系统函数，如果用数学方法也不难，就是((某天-今天)的天数-1) mod 7，返回的值将是0~6，其中0为星期日
使用VB自带的日期函数WeekdayName和Weekday，
例如：MsgBox WeekdayName(Weekday("2007-08-12"))
最后显示“星期日”
关于这两个函数的具体说明请参照：http://fireflys.vicp.net/Article/20070605193601.htm
这是c++程序我在vc6.0上调试过了应该满足你的要求,你自己看看行不行？不行的话你在补充说明一下哈。
#include
"stdlib.h"
#include
"string.h"
#include
"iostream.h"
bool
leap_year(int
year)
{
if((year%4==0&&year%100!=0)||(year%400==0))
return
true;
else
return
false;
}
void
main(void)
{
int
year;
int
month;
int
day;
int
days[12]={0};
int
week;
int
total;
int
i;
char
quit
=
'y';
while(tolower(quit)=='y')
{
total
=
0;
cout<<"请输入年月日:";
cin>>year>>month>>day;
if(leap_year(year))
{
days[0]=days[2]=days[4]=days[6]=days[7]=days[9]=days[11]=31;
days[1]=29;
days[3]=days[5]=days[8]=days[10]=30;
}
else
{
days[0]=days[2]=days[4]=days[6]=days[7]=days[9]=days[11]=31;
days[1]=28;
days[3]=days[5]=days[8]=days[10]=30;
}
for(i=0;
i
>quit;
}
}
绛旓細-- firstdayofweek: 鍙; vbDayOfWeek绫诲瀷; 瀹氫箟姣忓懆绗竴澶(榛樿涓烘槦鏈澶)WeekdayName杩斿洖涓涓猄tring, 濡"鏄熸湡涓", 浣嗘牴鎹笉鍚岀殑绯荤粺, 涔熶細杩斿洖濡"Monday".=== 浣犱篃鍙互涓嶇敤WeekdayName鑷繁寰楀埌鏄熸湡鍚 Choose(Weekday(#8/8/2008#, vbMonday), "鏄熸湡涓", "鏄熸湡浜", "鏄熸湡涓", "鏄熸湡鍥",...
绛旓細Dim a As Date a = DateSerial(y, m, d)msgbox Weekday(a)
绛旓細涓囧勾鍘 include <stdio.h> int IsLeapYear(int);main(){ int i;int day;int year;int temp;int temp_i;long int Year_days = 0;int Year_Start = 1;int Per_Year_Days;int month_day[]={31,28,31,30,31,30,31,31,30,31,30,31,29};printf("Please enter the year: ");scanf(...
绛旓細vbFirstJan1 1 鐢 1 鏈 1 鏃ユ墍鍦ㄧ殑鏄熸湡寮濮嬶紙榛樿锛銆倂bFirstFourDays 2 鐢卞湪鏂板勾涓嚦灏戞湁鍥涘ぉ鐨勭涓鍛ㄥ紑濮嬨倂bFirstFullWeek 3 鐢卞湪鏂扮殑涓骞翠腑绗竴涓畬鏁寸殑鍛ㄥ紑濮嬨傝鏄 DateDiff 鍑芥暟鐢ㄤ簬鍒ゆ柇鍦ㄤ袱涓棩鏈熶箣闂村瓨鍦ㄧ殑鎸囧畾鏃堕棿闂撮殧鐨勬暟鐩備緥濡傚彲浠ヤ娇鐢 DateDiff 璁＄畻涓や釜鏃ユ湡鐩稿樊鐨勫ぉ鏁帮紝鎴栬呭綋澶╁埌...
绛旓細棰樼洰锛氳緭鍏鏌愬勾鏌愭湀鏌愭棩锛屽垽鏂繖涓澶╂槸杩欎竴骞寸殑绗嚑澶╋紵1.绋嬪簭鍒嗘瀽锛氫互3鏈5鏃ヤ负渚嬶紝搴旇鍏堟妸鍓嶄袱涓湀鐨勫姞璧锋潵锛岀劧鍚庡啀鍔犱笂5澶╁嵆鏈勾鐨勭鍑犲ぉ锛岀壒娈婃儏鍐碉紝闂板勾涓旇緭鍏ユ湀浠藉ぇ浜3鏃堕渶鑰冭檻澶氬姞涓澶┿傘愮▼搴15銆戦鐩細杈撳叆涓変釜鏁存暟x,y,z锛岃鎶婅繖涓変釜鏁扮敱灏忓埌澶ц緭鍑恒1.绋嬪簭鍒嗘瀽锛氭垜浠兂鍔炴硶鎶婃渶...
绛旓細Dim Target As StringPrivate Sub Command1_Click() Dim intYear As Integer, intMonth As Integer, intDay As Integer Dim Year As String, Month As String, Day As String, T As String intYear = InStr(Text1.Text, "骞") intMonth = InStr(Text1.Text, "鏈") intDay = ...
绛旓細1. Dim 璧峰鏃ユ湡 As Date = #1/1/2000 Dim 缁撴潫鏃ユ湡 As Date = CDate(InputBox("璇锋寜鐓 鏈/鏃/骞 鐨勬牸寮忚緭鍏ュ綋鍓嶆棩鏈"))If 缁撴潫鏃ユ湡 > 璧峰鏃ユ湡 Then Dim 缁忚繃澶╂暟 As Integer = (缁撴潫鏃ユ湡 - 璧峰鏃ユ湡).Days Select Case 缁忚繃澶╂暟 Mod 5 Case 0, 1, 2 MsgBox("灏忕帇浠婂ぉ鎵撴笖鍘讳簡...
绛旓細2銆佽繕鍙互璇蜂細VB鐨勪汉甯綘鐢ㄨ瑷锛屽姞鍏ヤ竴瀹氱殑鍏紡缂栧啓涓涓3銆侀棸骞村緢濂璁＄畻锛氬皬瀛︾殑鏁欑涔﹀氨璁蹭簡锛4骞翠竴闂帮紝浣嗘槸纰板埌鏁寸櫨鐨勶紝姣斿100銆200銆300銆400銆500銆佲︹1900銆2000銆傞渶瑕佹槸400鐨勬暣鍊嶆暟鎵嶆槸闂板勾銆備篃灏辨槸鍏厓400骞淬800骞淬佲︹2000骞淬2400骞存槸闂板勾锛屼絾鏄2100骞存槸骞冲勾锛屾槑鐧戒簡鍚с
绛旓細鏌愬勾鐨勭n涓妭姘斾负鍑犳棩(浠0灏忓瘨璧风畻)'function sTerm(y,n) { ' var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000 ) + Date.UTC(1900,0,6,2,5) )' return(offDate.getUTCDate())'渚嬪锛氭煡2006骞4鏈1鏃ョ殑骞叉敮鏃ャ 灏嗘暟鍊间唬鍏璁＄畻鍏紡銆'G =4*...
绛旓細銆绋嬪簭4銆戦鐩細杈撳叆鏌愬勾鏌愭湀鏌愭棩锛屽垽鏂繖涓澶╂槸杩欎竴骞寸殑绗嚑澶╋紵1.绋嬪簭鍒嗘瀽锛氫互3鏈5鏃ヤ负渚嬶紝搴旇鍏堟妸鍓嶄袱涓湀鐨勫姞璧锋潵锛岀劧鍚庡啀鍔犱笂5澶╁嵆鏈勾鐨勭鍑犲ぉ锛岀壒娈 鎯呭喌锛岄棸骞翠笖杈撳叆鏈堜唤澶т簬3鏃堕渶鑰冭檻澶氬姞涓澶┿2.绋嬪簭婧愪唬鐮侊細main(){ int day,month,year,sum,leap;printf(鈥淺nplease input year...
