Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

User-Defined Data Types

Type Ledger      Number As Integer      Description As String      Debit As Currency      Credit As Currency      Balance As Currency End Type Sub typeDemo()     Dim ledgerRow As Ledger     ledgerRow.Number = 1001     ledgerRow.Description = "Rent"     ledgerRow.Debit = 750     ledgerRow.Balance = ledgerRow.Balance - ledgerRow.Debit End Sub