gb.MediumDate (gb)

Const MediumDate As Integer = 11 ' &HB