Foxtable(狐表)用户栏目专家坐堂 → 请教“周”列如何实现显示星期几


  共有4165人关注过本帖树形打印复制链接

主题:请教“周”列如何实现显示星期几

帅哥哟,离线,有人找我吗?
hongsejiyi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:322 积分:4991 威望:0 精华:0 注册:2019/1/1 15:53:00
  发帖心情 Post By:2022/4/30 9:53:00 [显示全部帖子]

Dim Today As Date = Date.Today

Dim Names As String = "日一二三四五六"

Dim Result As String

Result = "星期" & names.substring(Today.DayOfWeek,1)

Output.Show(Result)

 回到顶部
帅哥哟,离线,有人找我吗?
hongsejiyi
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:322 积分:4991 威望:0 精华:0 注册:2019/1/1 15:53:00
  发帖心情 Post By:2022/4/30 10:16:00 [显示全部帖子]

‘简单可以如下调用’
Dim Today As Date = Date.Today
output.Show(WeekDayName(weekday(today)))

 回到顶部
帅哥哟,离线,有人找我吗?
hongsejiyi
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:322 积分:4991 威望:0 精华:0 注册:2019/1/1 15:53:00
  发帖心情 Post By:2022/4/30 15:30:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:自动星期_2022-04-30_151420.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
hongsejiyi
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:322 积分:4991 威望:0 精华:0 注册:2019/1/1 15:53:00
  发帖心情 Post By:2022/4/30 15:37:00 [显示全部帖子]

上楼的是自动增加新行时执行,本楼是当【日期】列修改时,【周]自动更新

图片点击可在新窗口打开查看此主题相关图片如下:自动星期2_2022-04-30_151420.jpg
图片点击可在新窗口打开查看


 回到顶部