100分急求:VB中的几句代码翻译~~~~

Question

各位大侠请帮我说明一哈,下面这几句的功能得要是得到一个什么结果~~~最好能举例说明~    U_now = dateadd("h",U_TZone-CFG_ZoneServer,now())
    
     dim day_(3),day_a(3)
day_a(0)=datevalue(U_now)
day_a(1)=dateadd("d",-1,day_a(0))
day_a(2)=cdate(year(day_a(0)) & "-" & month(day_a(0)) & "-1")
day_a(3)=cdate(year(day_a(0)) & "-1-1")

Answer 1

1.  DateAdd(interval, number, date) 返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。此例中的"h"表示增加小时2. DateValue(date),返回一个 Variant (Date)。3. dateadd("d",-1,day_a(0)), 表示减少一天4. cdate(year(day_a(0)) & "-" & month(day_a(0)) & "-1") 将一个表达式转成日期5. 同上

Answer 2

要的到结果,给变量弄个值，加个输出，在立即窗口就可以看到了：
Private Sub Command1_Click()
 U_TZone_CFG_ZoneServer = 2
 U_now = DateAdd("h", U_TZone - CFG_ZoneServer, Now())
Dim day_(3), day_a(3)
    day_a(0) = DateValue(U_now)
    day_a(1) = DateAdd("d", -1, day_a(0))
    day_a(2) = CDate(Year(day_a(0)) & "-" & Month(day_a(0)) & "-1")
    day_a(3) = CDate(Year(day_a(0)) & "-1-1")
    For Each a In day_a
      Debug.Print a
    Next
End Sub

Answer 3

1.  DateAdd(interval, number, date) 返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。此例中的"h"表示增加（number为正数）或减少（number为负数）小时2. DateValue(date),返回一个由字符串date组成的日期 如datevalue("2004-12-10")3. dateadd("d",-1,day_a(0)), 表示day_a(0)的前一天，其中day_a(0)是一个日期4. cdate(year(day_a(0)) & "-" & month(day_a(0)) & "-1") 返回一个由字符串date组成的日期 如cdate("2004-12-10")
5. 同上

Answer 4

我没有装VB,我是研究别人的程序,把它转为Delphi的,这一点我看不懂,所以上来问问~

Answer 5

U_now = dateadd("h",U_TZone-CFG_ZoneServer,now())
     dim day_(3),day_a(3)
day_a(0)=datevalue(U_now)
day_a(1)=dateadd("d",-1,day_a(0))
day_a(2)=cdate(year(day_a(0)) & "-" & month(day_a(0)) & "-1")
day_a(3)=cdate(year(day_a(0)) & "-1-1")假如 U_TZone-CFG_ZoneServer = 8
U_now = 2004-12-10 19:45:20
day_a(0) = 2004-12-10 19:45:20
day_a(1) = 2004-12-09 19:45:20
day_a(2) = 2004-12-01 00:00:00
day_a(3) = 2004-01-01 00:00:00

Answer 6

U_TZone-CFG_ZoneServer是什么意思,是不是取服务器当前时间!!

Answer 7

主要概念dateadd()函数，数组的定义与赋值