Visual Basic

public function getTimeWorked(ByVal StartTime as date, ByVal Duration as TimeSpan, _
ByVal EndTime as date, ByVal LunchStartTime as date, ByVal LunchDuration as TimeSpan) as TimeSpan

dim ActualTimeWorked as TimeSpan
dim TimeWorked as TimeDuration = StartTime - EndTime
if (StartTime < LunchStartTime) and (EndTime > (LunchStartTime + LunchDuration)) then
      ActualTimeWorked = TimeWorked - LunchDuration 
endif
return ActualTimeWorked
end if

UPDATE Employee SET Emp_ID = 0918, W = "w"

SELECT * FROM dayScheduleTemplate,dayTemplateScheduleName, scheduleDate
 WHERE dayScheduleTemplate.dayTemplateScheduleName = dayTemplateScheduleName.[24TemplateScheduleName]
 and dayTemplateScheduleName.[24TemplateScheduleName] = scheduleDate.[24TemplateScheduleName] and
 scheduleDate.scheduleDate

If e.ColumnIndex = 0 Then<br />
        indexcombo = CType(Me.dgvTipuriColoane.Rows(e.RowIndex).Cells(e.ColumnIndex), DataGridViewComboBoxCell).Items.IndexOf(Me.dgvTipuriColoane.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString)<br />
    End If<br />
    valoareCombo = Me.dgvTipuriColoane.Rows(e.RowIndex).Cells(e.ColumnIndex).Value

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   if lstCust.Items.Count<>0 then
      txtCustID.Text = lstCust.Items(0).Item(0).Text
      txtCompName.Text = lstCust.Item(0).SubItems(1).Text
      ...
   end if
End sub

With Me
...
End With