Реферат: Переменные

DatPos As Date 'дата поступления

SrokGod As Integer 'срок годности пусть будет в месяцах ;-)

End Type

'теперь, например, например для всех сортов колбасы

'объявляем переменную:

Dim Kolbasa As Towar

'и присваеваем значения (для этого после слова Kolbasa ставим точку!):

Kolbasa.Artikl = "Докторская"

Kolbasa.DatPos = #04-08-99#

Kolbasa.SrokGod = 12