日期格式问题

Question

DTPicker1.Value = Format(Date, "yyyy-mm-dd")显不出时间为2007-3-31
但我想得到的是07-3-31怎么办,我本为是这样就行了
DTPicker1.Value = Format(Date, "yy-mm-dd")但是不行呀,还是得到2007-3-31,怎么办呀

Answer 1

DTpicker控件不能那样显示的话，你就用text啊，
text1.text=Format(Date, "yy-mm-dd")

Answer 2

不过DTpicker可以那样显示的：右击DTpicker1属性，格式选择3，自定义格式，在下面自定义格式里输入“07-3-31”就ok了。

Answer 3

dtpicker格式来源于控制面板中的区域和语言选项你猜想你可以在程序启动时把日期格式设置为"yy-mm-dd"，在程序结束时恢复为"yyyy-mm-dd"我曾经这么做过：在程序启动时强制日期格式为"yyyy-mm-dd"
    Dim back As Long
    Dim Updata As Double
    Dim dateformat As String
    dateformat = "yyyy-MM-dd"
    back = RegOpenKeyEx(HKEY_CURRENT_USER, reg1, 0&, KEY_ALL_ACCESS, phkresult)
    back = RegSetValueEx(phkresult, "sShortDate", 0&, REG_SZ, ByVal dateformat, LenB(dateformat))
    RegCloseKey (phkresult)
    Call SendMessageTimeout(HWND_BROADCAST, WM_WININICHANGE, 0, 0, SMTO_NORMAL, 0, 0)
具体到你的问题可以把dateformat = "yyyy-MM-dd"改为dateformat = "yy-MM-dd"
其中RegOpenKeyEx RegSetValueEx RegCloseKey SendMessageTimeout HWND_BROADCAST等参数的具体引用查找api文本浏览器。实在不行再联系我qq 397667325

Answer 4

是这样的，应该为Format(Date,   "yyyy-MM-dd ")，m要大写表示month，否则认为是minute。
呵呵，就这点区别，试试