Code:
Structure employee
Dim employeenumber As Integer
Dim name As String
Dim dob As Date
Dim age As Integer
Dim ninumber As String
Dim hourlyrate As Decimal
Structure pay
Dim month As String
Dim hoursworked As Integer
Dim normalpay As Decimal
Dim overtimepay As Decimal
Dim normalhoursworked As Integer
Dim overtimehoursworked As Integer
Dim overtimerate As Decimal
Dim grosspay As Decimal
Dim taxrate As Decimal
Dim taxdeducted As Decimal
Dim nideducted As Decimal
Dim netpay As Decimal
End Structure
End Structure
Structure employee
Dim employeenumber As Integer
Dim name As String
Dim dob As Date
Dim age As Integer
Dim ninumber As String
Dim hourlyrate As Decimal
Structure pay
Dim month As String
Dim hoursworked As Integer
Dim normalpay As Decimal
Dim overtimepay As Decimal
Dim normalhoursworked As Integer
Dim overtimehoursworked As Integer
Dim overtimerate As Decimal
Dim grosspay As Decimal
Dim taxrate As Decimal
Dim taxdeducted As Decimal
Dim nideducted As Decimal
Dim netpay As Decimal
End Structure
End Structure
I ja ovako punim employee
Code:
Dim personList As New List(Of employee)
Dim personNList As employee
personNList.name = "Smith"
personNList.dob = "20/06/1976"
personNList.age = 20
personNList.ninumber = "ninumber"
personNList.hourlyrate = 1.5
personList.Add(personNList)
Dim personList As New List(Of employee)
Dim personNList As employee
personNList.name = "Smith"
personNList.dob = "20/06/1976"
personNList.age = 20
personNList.ninumber = "ninumber"
personNList.hourlyrate = 1.5
personList.Add(personNList)
Ali kako da napunim pay strukturu tacnije treba da dodam 12 pay struktura u employee, za svaki mesec po jednu...
Help me please....
[Ovu poruku je menjao kijara camado dana 30.11.2013. u 00:41 GMT+1]