Bookshelf Home | Contents | Index | Search | PDF |
Siebel VB Language Reference > Siebel VB Language Reference >
TimeValue Function
This standard VB function returns a time value for a specified string.
Syntax
TimeValue(time)
Returns
A date/time value for the time represented by time.
Usage
The TimeValue function returns a variant of vartype 7 (date/time) that represents a time between 0:00:00 and 23:59:59, or 12:00:00 A.M. and 11:59:59 P.M., inclusive.
Example
This example writes a variable to a disk file based on a comparison of its last saved time and the current time. Note that the variables used for the TimeValue function are dimensioned as double, so that calculations based on their values work properly.
Sub Button_Click
Dim tempfile As String
Dim ftime As Variant
Dim filetime as Double
Dim curtime as Double
Dim minutes as Double
Dim acctno(100) as Integer
Dim x, I
tempfile = "C:\TEMP001"
Open tempfile For Output As 1
ftime = FileDateTime(tempfile)
filetime = TimeValue(ftime)
minutes = TimeValue("00:02:00")
x = 1
I = 1
acctno(x) = 0
Do
curtime = TimeValue(Time)
acctno(x) = 46
If acctno(x) = 99 then
For I = I to x-1
Write #1, acctno(I)
Next I
Exit Do
ElseIf filetime + minutes< = curtime then
For I = I to x
Write #1, acctno(I)
Next I
End If
x = x + 1
Loop
Close #1
x = 1
msgtext = "You entered:" & 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 SubSee Also
DateSerial Function
DateValue Function
Hour Function
Minute Function
Now Function
Second Function
TimeSerial Function
Bookshelf Home | Contents | Index | Search | PDF |
Siebel VB Language Reference Published: 18 June 2003 |