Programacion java

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

'se definen variables para guardar la hora de entrada y salida del empleado

Dim entrada As DateTime

Dim salida As DateTime

'se define una variable de tipo timespan para determinar las horas ,

'minutos y segundos trabajados por dia

Dim hora As TimeSpan

'se define una variable para guardar el resultado del timespan dando un formato

'de tipo string

Dim resultado As String

'se definen variaables para guardar el pago por hora y el pago diario del

Empleado()

Dim pago_dia, pago_hora, tarifa_diario, tarifa_extra, pago_extra, pago_feriado As Single

'se calcula el pago por hora

pago_hora = (busca_empleado(txt_idempl.Text)) / 160

'se recorre el listview asistencia para calcular pago diario en cada item

'cada item representa un dia laborado por determinado empleado

For i = 0 To lst_asistencia.Items.Count - 1

'se almacena la hora de entrada

entrada = DateTime.Parse(lst_asistencia.Items(i).SubItems(2).Text)

'se almacena la hora de salida

salida = DateTime.Parse(lst_asistencia.Items(i).SubItems(3).Text)

'se determina las horas trabajadas a traves de la diferencia entre las variables

'entrada y salida, ambas de tipo datetime

hora = salida.Subtract(entrada)

'++++Modificacion horas totales que trabajo en el mes ++++++++

'se creo la variable htotales para que almacene las horas totales

Dim htotales As TimeSpan

htotales = htotales + hora

'+++++++++++++++++++++++++++++++++++++++++++

Next

'se da formato a la variable hora haciendo una copia de su valor en una variable

'de tipo string

resultado = String.Format("{0}:{1}:{2}", hora.Hours, hora.Minutes, hora.Seconds)

'se agrega el resultado a la lista

lst_asistencia.Items(i).SubItems(4).Text = resultado

'se evalua las horas trabajadas para determinar el pago diario

'+++++++MODIFICACION veces que entro antes de las 8 am ++++++

'en la variable he guardo la hora de entrada, obtenida de la columna correspondiente del listview,

Dim he As Integer

Dim cuenta As Integer

Dim veces As Integer

he = CInt(Microsoft.VisualBasic.Left(lst_asistencia.Items(i).SubItems(2).Text, 2))

For cuenta = 0 To lst_asistencia.Items.Count - 1

If he < 8 Then

veces = veces + 1

End If

Next

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'++++++Modificacion Mensaje que contiene el nombre, veces que entro antes de las 8 y las horas totales

MsgBox("nombre: ", txt_nombreep.Text &_ "Veces que entro antes de las 8: ", veces &_ "Horas Totales: ", htotales )

' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Select hora.Hours

Case 8 'si trabajo 8 horas

pago_dia = pago_hora * 8

Case Is < 8 'si trabajo

...