ASP-VBCode.Com - ASP.Net, VB.Net, PayPal IPN Solution, Web Design

Visual Basic 6 Code Functions/Procedures

InQuotes Function

PauseTime Proc.

Remove Invld Chr Function

Database Insert Proc.

Database Select Function

Database Delete Proc.

Database Update Function

Make Enter key to act as TAB

Time calculation

Change 1st char to Ucase

Populate MSFlxGrid with db data

How to use CASE

Save file

Open file

Populate TreeView w/database

Catch RDO Error

Time calculation

'******************************************************************
'*      Value(s)passed:                             .....                                           
'*      Value(s)returned:                          .....                                          
'*      Date:                                            10-12-2002
'*      Author:                                          Ahmad E. Ashparie                               
'*      ___________________________________________      
'*                                  Modification Log                            
'*      Date            Author              Description                         
'*      ------            --------              -------------                        
'*                                                                             
'*******************************************************************


Function UpdateTimeFormat() As Boolean

    Dim Time1
    Dim Time2
    Dim MinTime
    Dim TotalTime
    
    Time1 = Format(Trim(txtRoomOpndTime.Text), "hh:mm a/p")
    Time2 = Format(Trim(txtRoomClsdTime.Text), "hh:mm a/p")
    MinTime = DateDiff("n", Time1, Time2)
    
    If DateDiff("n", Time1, Time2) < 0 Then
        TotalTime = 1440 - (Abs(MinTime))
        txtRoomTotalTime.Text = TotalTime
    ElseIf DateDiff("n", Time1, Time2) > 0 Then
        txtRoomTotalTime.Text = _
                Abs(DateDiff("n", Time1, Time2))
    ElseIf DateDiff("n", Time1, Time2) = 0 Then
        MsgBox "RoomOpndTime cannot be equal to RoomClsdTime ...!"
        UpdateTimeFormat = False
        Exit Function
    Else
        txtRoomTotalTime.Text = _
                Abs(DateDiff("n", Time1, Time2))
    End If

End Function