Dim InitiatoryBalance As Integer = 30

تاريخ مباشرة العمل :

        Dim Date1 As New DateTime(2017, 1, 1)

تاريخ اليوم :

        Dim Date2 As New DateTime(2018, 1, 20)

حساب عدد الأشهر من تاريخ مباشرة العمل حتى تاريخ اليوم

        Dim TotalMonth As Integer = DateDiff(DateInterval.Month, Date1, Date2)

حساب الرصيد :

        Dim TotalBalance As Integer = TotalMonth * 3

إضافة الرصيد الإبتدائي , تحسباً لو كان يمتلك رصيد سابق

        Dim EmployeeBalance As Integer = TotalBalance + InitiatoryBalance