以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何自动生成日期及上下午别  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15475)
--  作者：方丈
--  发布时间：2011/12/27 19:09:00
--  [求助]如何自动生成日期及上下午别
如何根据录入时的系统时间，自动生成日期和午别？如2011年12月27日下午
--  作者：czy
--  发布时间：2011/12/27 21:06:00
--  
更改操作系统的区域语言
--  作者：方丈
--  发布时间：2011/12/27 21:27:00
--  
项目发布后不可能每一台用户电脑都改操作系统的区域语言，要通过代码自动生成，关键是“午别”
--  作者：狐狸爸爸
--  发布时间：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)