以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  日期值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69136)

--  作者:zsslly
--  发布时间:2015/5/31 14:01:00
--  日期值
窗口中有一个textbox,我想得到当前日的结果为:比如是     15年5月31日星期天

代码怎么写?

--  作者:大红袍
--  发布时间:2015/5/31 14:15:00
--  
msgbox(Format(Date.Today, "yy年MM月dd日dddd"))
--  作者:大红袍
--  发布时间:2015/5/31 14:16:00
--  
e.Form.Controls("TextBox1").Text = Format(Date.Today, "yy年MM月dd日dddd"))
--  作者:zsslly
--  发布时间:2015/5/31 14:24:00
--  
e.Form.Controls("TextBox1").Text = Format(Date.Today, "yy年MM月dd日dddd"))

这个代码不知道那里有问题?

--  作者:zsslly
--  发布时间:2015/5/31 14:25:00
--  
多了一个括孤
--  作者:zsslly
--  发布时间:2015/5/31 14:28:00
--  
老师,
e.Form.Controls("TextBox1").Text = Format(Date.Today, "yy年MM月dd日dddd")
这个代码显示今天,我还想显示往前一天或往后一天,应该怎么改?
谢谢

--  作者:大红袍
--  发布时间:2015/5/31 14:36:00
--  

e.Form.Controls("TextBox1").Text = Format(Date.Today, "yy年MM月dd日dddd")

e.Form.Controls("TextBox2").Text = Format(Date.Today.AddDays(1), "yy年MM月dd日dddd")

e.Form.Controls("TextBox3").Text = Format(Date.Today.AddDays(2), "yy年MM月dd日dddd")


--  作者:zsslly
--  发布时间:2015/5/31 14:41:00
--  
老师,AddDays是增加一天,如果减少一天是什么呢?
--  作者:大红袍
--  发布时间:2015/5/31 14:42:00
--  

e.Form.Controls("TextBox3").Text = Format(Date.Today.AddDays(-1), "yy年MM月dd日dddd")

 

http://www.foxtable.com/help/topics/1337.htm

 

 

 


--  作者:zsslly
--  发布时间:2015/5/31 14:45:00
--  
谢谢老师