- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 請問!! 西曆的日期格式如何設?? 例:19-AUG-2013 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39218)
-- 发布时间：2013/8/19 8:09:00
-- 請問!! 西曆的日期格式如何設?? 例:19-AUG-2013
請問!! 西曆的日期格式如何設?? 例:19-AUG-2013
-- 发布时间：2013/8/19 9:09:00
--
设置不了，用DrawCell, 控制面板设置日期时间格式为西历。
Messagebox.show(Format(Date.Today,"dd-MMM-yyyy"))
-- 发布时间：2013/8/19 9:20:00
--
謝謝回答!!
我是希望 月份為西方的月份,不然老外看不懂!!
建議:FT日期格式能加入 19-AUG-2013 或 August 19,2013 或 19-August-2013
[此贴子已经被作者于2013-8-19 9:22:45编辑过]
-- 发布时间：2013/8/19 9:30:00
--
如果你的系统是英文系统. 刚才那段代码弹出的就是英文格式的了. 中文系统才会显示 八月
-- 发布时间：2013/8/19 9:48:00
--
如果是中文的系统，可以自己将各式改为英文的：
此主题相关图片如下：日期.gif
-- 发布时间：2013/8/19 11:29:00
--
謝謝回答!!
我是希望在簡體或繁體的環境中,某控件能顯示的
-- 发布时间：2013/8/19 11:43:00
--
这个万能：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目11.foxdb |
-- 发布时间：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