Foxtable(狐表)用户栏目专家坐堂 → [求助]如何自动生成日期及上下午别


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

主题:[求助]如何自动生成日期及上下午别

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


加好友 发短信
等级:四尾狐 帖子:811 积分:10952 威望:0 精华:1 注册:2008/9/2 18:58:00
[求助]如何自动生成日期及上下午别  发帖心情 Post By:2011/12/27 19:09:00 [只看该作者]

如何根据录入时的系统时间,自动生成日期和午别?如2011年12月27日下午

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2011/12/27 21:06:00 [只看该作者]

更改操作系统的区域语言

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


加好友 发短信
等级:四尾狐 帖子:811 积分:10952 威望:0 精华:1 注册:2008/9/2 18:58:00
  发帖心情 Post By:2011/12/27 21:27:00 [只看该作者]

项目发布后不可能每一台用户电脑都改操作系统的区域语言,要通过代码自动生成,关键是“午别”

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/27 22:05:00 [只看该作者]

Dim d As Date = Date.now
Dim s As String
If d.Hour >= 12 Then
  s  = "下午"
Else
  s = "上午"
End If
s = Format(d,"yyyy年MM月dd日") & " " & s
output.show(s)


 回到顶部