请问怎么样在程序中修改控制面板的中的当前时间？

Question

Date ="2001/6/5"
Time = "12:30"

Answer 1

声明SetLocaleInfo  API函数
定义LOCALE_SSHORTDATE 和 LOCALE_STIMEFORMAT常数,用VB的API View工具 dim Rul as long
'日期设置
Rul=SetLocaleInfo(0, LOCALE_SSHORTDATE, "yyyy-MM-dd")
'时间设置
Rul=SetLocaleInfo(0, LOCALE_STIMEFORMAT, "HH:mm:ss")

Answer 2

为什么不好使，常量我也引用了。
Public Const LOCALE_SSHORTDATE = &H1F
Public Const LOCALE_STIMEFORMAT = &H1003why?

Answer 3

我如下使用：Option Explicit
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As LongPrivate Sub Command1_Click()
Dim Rul As Long
'日期设置
Rul = SetLocaleInfo(0, LOCALE_SSHORTDATE, "2002-10-28")
'时间设置
Rul = SetLocaleInfo(0, LOCALE_STIMEFORMAT, "18:30:10")End Sub但是系统无任何反应！why?

Answer 4

cqq_chen(我是谁)的程序是改变系统的短日期显示格式的  Rul=SetLocaleInfo(0, LOCALE_SSHORTDATE, "yyyy-MM-dd")
 '时间设置
 Rul=SetLocaleInfo(0, LOCALE_STIMEFORMAT, "HH:mm:ss")
（不能用具体的时间，你打开控制面板的区域设置就知道了），改变以后好象要注销或重起才能看出来。edyang(石头)的是改变具体时间和日期的（不是格式）
 具体看你的程序要求了~