1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

        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    Год целиком