Bookshelf Home | Contents | Index | Search | PDF

Siebel VB Language Reference > Siebel VB Language Reference >

Time Function

---

This standard VB function returns a string representing the current time.

Syntax

Time[$]

Argument	Description
Not applicable

Returns

An eight-character string of the format hh:mm:ss, where hh is the hour, mm is the minutes, and ss is the seconds. The hour is specified in military style and ranges from 0 to 23.

Usage

The dollar sign ($) in the function name is optional. If it is included, the return type is string. Otherwise the function returns a variant of vartype 8 (string).

Example

This example writes data to a file if it has not been saved within the last two minutes.

Sub Button_Click
   Dim tempfile
   Dim filetime, curtime
   Dim msgtext
   Dim acctno(100) as Single
   Dim x, I
   tempfile = "c:\temp001"
   Open tempfile For Output As #1
   filetime = FileDateTime(tempfile)
   x = 1
   I = 1
   acctno(x) = 0
   Do
      curtime = Time
      acctno(x) = 44
      If acctno(x) = 99 then
         For I = 1 to x -1
            Write #1, acctno(I)
         Next I
         Exit Do
      ElseIf (Minute(filetime) + 2)< = Minute(curtime) then
         For I = I to x
            Write #1, acctno(I)
         Next I
      End If
      x = x + 1
   Loop
   Close #1
   x = 1
   msgtext = "Contents of c:\temp001 is:" & Chr(10)
   Open tempfile for Input as #1
   Do While Eof(1) <> -1
      Input #1, acctno(x)
      msgtext = msgtext & Chr(10) & acctno(x)
      x = x + 1
   Loop
   Close #1
      Kill "c:\temp001"
End Sub

See Also

Date Function
Date Statement
Time Statement
Timer Function
TimeSerial Function
TimeValue Function

Bookshelf Home | Contents | Index | Search | PDF