如何设置系统时间？

设定当前电脑的时间，年月日时分秒 问题点数：20、回复次数：5Top

1 楼Tenner（BE.Tenner）回复于 2003-02-02 21:15:24 得分 10

Dim   dtTime   As   Date  
  Dim   dtDate   As   Date  
   
  dtTime=CDate("XX:XX:XX")  
  dtDate=CDate("YYYY-MM-DD")  
   
  Time=dtTime  
  Date=dtDate  
   
  其中   XX   表示时：分：秒  
  YYYY-MM-DD   是日期  
  Top

2 楼xiaoxinghappy（清晨好凉，被窝好暖:）回复于 2003-02-02 21:30:51 得分 10

楼上的何必这么麻烦，真接等不是就可以了吗！  
  Time=CDate("XX:XX:XX")  
  Date=CDate("YYYY-MM-DD")  
  Top

3 楼verybelial（顶级狙击手）回复于 2003-02-05 20:06:37 得分 0

upTop

4 楼chianbird（中国鸟）回复于 2003-02-05 21:24:36 得分 0

Tenner(Tenner)   的写法在有些地方是必要的。Top

5 楼Tenner（BE.Tenner）回复于 2003-02-08 21:03:57 得分 0

我的写法主要是用在要设置的日期是由程序生成的时候  
  这时你就没法直接等于了Top

相关问题

• cdate
• dtdate
• tenner
• xx
• 设置
• 写法
• yyyy
• 时间
• dd
• 日期

• 帖主：netfor2000
• Tenner
• xiaoxinghappy

• Visual Basic类图书
• Visual Basic类源码下载