您的位置：程序门 -> vb -> 基础类

一个程序不会写了，那位高手帮助一下

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

一个程序不会写了，那位高手帮助一下

发表于：2007-06-25 22:01:47 楼主

写一个1900——————2300年中的任何一天实星期几的程序

发表于：2007-06-25 22:11:371楼得分:0

private sub command1_click（)
msgbox weekday（ddate, vbmonday)
end sub

ddate是你需要传入的日期，返回值是数字，1--〉星期一。。。

发表于：2007-06-25 22:49:132楼得分:0

我试了一下,不能用
而且和我的意图也不一样
我的描述好象有点不请
是在窗体上画三个text控件,分别输入年月日
然后运行程序在窗体上显示我输入的日期是星期几
不是用now（)函数

发表于：2007-06-25 22:57:563楼得分:0

你用now函数也不能告诉你是星期几阿

我们把你的三个textbox叫做td,tm,ty,给一个button叫做command1.点击按钮，
msgbox显示周几

private sub command1_click（)
dim s as string
s=ty.text & "/ " & tm.text & "/ " & td.text

msgbox weekday（cdate（s), vbmonday)
end sub

其实你可以用dtpicker,用3个textbox不如dpticker来得方便
你自己试试看就知道了

发表于：2007-06-26 09:42:454楼得分:0

楼上正解,它返回的数值就代表是星期几了的.

发表于：2007-06-26 09:47:095楼得分:0

然后你根据返回值写个函数来实现星期几不就行了？

发表于：2007-06-26 19:44:246楼得分:0

我在机子上试了一下，结果不对

发表于：2007-06-26 20:07:077楼得分:0

你也不说哪里不对，我的机器上这个是正确的

发表于：2007-06-26 21:35:418楼得分:0

weekday的返回值不是按星期一，二，三之类的排的

返回值

weekday 函数可以返回以下诸值：

常数值描述
vbsunday 1 星期日
vbmonday 2 星期一
vbtuesday 3 星期二
vbwednesday 4 星期三
vbthursday 5 星期四
vbfriday 6 星期五
vbsaturday 7 星期六

其他资讯