Foxtable(狐表)用户栏目专家坐堂 → 請問!! 西曆的日期格式如何設?? 例:19-AUG-2013


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

主题:請問!! 西曆的日期格式如何設?? 例:19-AUG-2013

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


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
請問!! 西曆的日期格式如何設?? 例:19-AUG-2013  发帖心情 Post By:2013/8/19 8:09:00 [只看该作者]

請問!! 西曆的日期格式如何設??  例:19-AUG-2013

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


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

设置不了,用DrawCell, 控制面板设置日期时间格式为西历。

 

Messagebox.show(Format(Date.Today,"dd-MMM-yyyy"))


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


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2013/8/19 9:20:00 [只看该作者]

謝謝回答!!

   我是希望 月份為西方的月份,不然老外看不懂!!

建議:FT日期格式能加入 19-AUG-2013   或 August 19,2013 或 19-August-2013

[此贴子已经被作者于2013-8-19 9:22:45编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/19 9:30:00 [只看该作者]

如果你的系统是英文系统. 刚才那段代码弹出的就是英文格式的了.  中文系统才会显示 八月

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


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

如果是中文的系统,可以自己将各式改为英文的:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:日期.gif
图片点击可在新窗口打开查看

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


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2013/8/19 11:29:00 [只看该作者]

 謝謝回答!!

   我是希望在簡體或繁體的環境中,某控件能顯示的


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


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

这个万能:

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.foxdb


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


加好友 发短信
等级:六尾狐 帖子:1198 积分:7859 威望:0 精华:0 注册:2013/5/17 14:26:00
  发帖心情 Post By:2013/8/19 12:32:00 [只看该作者]

用户已经被屏蔽

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


加好友 发短信
等级:六尾狐 帖子:1433 积分:10763 威望:0 精华:0 注册:2013/3/29 10:23:00
  发帖心情 Post By:2013/8/19 17:02:00 [只看该作者]

謝謝狐爸!!

   ok!!了  textbox1 如下也可以了!!

     Dim wymd As WinForm.TextBox = e.Form.Controls("TextBox1")
     Dim dt As Date = Today
     Dim nms() As String = {"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"}
     wymd.text = dt.day & "-" & nms(dt.month - 1) & "-" & dt.year


 回到顶部