Blog

VB.Net program to demonstrate the Max() function in LINQ query

'VB.NET program to demonstrate the 
'Max() function in LINQ query.

Imports System
Imports System.IO
Imports System.Linq

Module Module1
    Public Class Employee
        Public id As Integer
        Public name As String
        Public age As Integer
        Public salary As Integer
    End Class

    Sub Main()
        Dim empList = New List(Of Employee) From
        {
            New Employee() With {.id = 101, .name = "Amit", .age = 21, .salary = 5000},
            New Employee() With {.id = 102, .name = "Arun", .age = 22, .salary = 7000},
            New Employee() With {.id = 103, .name = "Aman", .age = 23, .salary = 6000},
            New Employee() With {.id = 104, .name = "Amar", .age = 21, .salary = 6700},
            New Employee() With {.id = 105, .name = "Akki", .age = 26, .salary = 7500},
            New Employee() With {.id = 105, .name = "Anuj", .age = 23, .salary = 8700}
        }

        Dim OldAge = Aggregate emp In empList Into Max(emp.age)

        Console.WriteLine("Age of oldest employee is: {0}", OldAge)
    End Sub
End Module

Age of oldest employee is: 26
Press any key to continue . . .