1

2

3

Dim D As Date

D = D.AddDays(50)

MsgBox(D.ToLongDateString)

1

2

Dim D As Date = Now

MsgBox(DateAdd(DateInterval.Day, 45, D))

1

MsgBox(Now.ToLongDateString & ", " & Now.ToLongTimeString)

1

MsgBox(Format(D, "dddd"))

1

MsgBox(D.DayOfWeek)

1

MsgBox(Date.IsLeapYear(Now.Year))

TimeString = "23:04:10"

DateString = "8/24/2011"

Dim D As Date = Now

Dim FormatString As String

MsgBox(Format(D, FormatString))

%s

Секунды, если спереди ноль — он не пишется

fff

Милисекунды

ss

Секунды, всегда двузначное число

%m

Минуты, если спереди ноль — он не пишется

mm

Минуты, всегда двузначное число

%h

Аналогично

hh

с часами (представление от 0 до 12)

HH

с часами (Представление от0 до 24)

%M

Аналогично

MM

с месяцами

ddd

День недели, в сокращенном виде, например, Пн

dddd

То же, но слово целиком, например, понедельник

MMM

Месяц, в сокращенном виде, например, янв

MMMM

То же, но в полном

%y

Год, в сокращенном виде, 2 последние цифры, если предпоследняя не 0 и одна в противном случае

yy

Год, 2 цифры в любом случае, например, 1996 год — 96

yyyy

Год целиком

1

2

        Dim D As Date = Now

        MsgBox(Format(D, "Сегодня dd -е число, год yyyy, а день недели - dddd, а месяц -  MMMM"))