vb6.0输入某年某月某日，显示出星期几，用哪些函数？

Question

如题所述

Answer 1

Dim a As Date
a = DateSerial(y, m, d)
msgbox Weekday(a)追问

y、m、d如何输进数值，如下面可以吗？
Dim a As Date
y=2012
m=9
d=14
a = DateSerial(y, m, d)
msgbox Weekday(a)

追答

可以，y,m,d只要是整数类型即可

本回答被提问者和网友采纳

Answer 2

自己写自定义函数