Программная смена формата даты! - VB

<font color="00AA00">'Code courtesy of</font>
<font color="00AA00">'Dev Ashish</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ILANGUAGE = &H1 <font color="00AA00">' ID языка</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SLANGUAGE = &H2 <font color="00AA00">' локализованное название языка</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SENGLANGUAGE = &H1001 <font color="00AA00">' английское название языка</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVLANGNAME = &H3 <font color="00AA00">' аббревиатура языка</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SNATIVELANGNAME = &H4 <font color="00AA00">' родное название языка</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ICOUNTRY = &H5 <font color="00AA00">' код страны</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SCOUNTRY = &H6 <font color="00AA00">' локализованное название страны</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SENGCOUNTRY = &H1002 <font color="00AA00">' английское название страны</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVCTRYNAME = &H7 <font color="00AA00">' аббревиатура названия страны</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SNATIVECTRYNAME = &H8 <font color="00AA00">' родное название страны</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IDEFAULTLANGUAGE = &H9 <font color="00AA00">' ID языка по умолчанию</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IDEFAULTCOUNTRY = &HA <font color="00AA00">' Код страны по умолчанию</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IDEFAULTCODEPAGE = &HB <font color="00AA00">' Кодовая страница по умолчанию</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SLIST = &HC <font color="00AA00">' list item separator</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IMEASURE = &HD <font color="00AA00">' 0 = metric, 1 = US</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDECIMAL = &HE <font color="00AA00">' Разделитель десятичных разрядов</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_STHOUSAND = &HF <font color="00AA00">' Разделитель тысяч</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SGROUPING = &H10 <font color="00AA00">' digit grouping</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IDIGITS = &H11 <font color="00AA00">' number of fractional digits</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ILZERO = &H12 <font color="00AA00">' leading zeros For decimal</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SNATIVEDIGITS = &H13 <font color="00AA00">' native ascii 0-9</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SCURRENCY = &H14 <font color="00AA00">' local monetary symbol</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SINTLSYMBOL = &H15 <font color="00AA00">' intl monetary symbol</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONDECIMALSEP = &H16 <font color="00AA00">' monetary decimal separator</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHOUSANDSEP = &H17 <font color="00AA00">' monetary thousand separator</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONGROUPING = &H18 <font color="00AA00">' monetary grouping</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ICURRDIGITS = &H19 <font color="00AA00">' # local monetary digits</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IINTLCURRDIGITS = &H1A <font color="00AA00">' # intl monetary digits</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ICURRENCY = &H1B <font color="00AA00">' positive currency mode</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_INEGCURR = &H1C <font color="00AA00">' negative currency mode</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDATE = &H1D <font color="00AA00">' date separator</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_STIME = &H1E <font color="00AA00">' time separator</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SSHORTDATE = &H1F <font color="00AA00">' short date format String</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SLONGDATE = &H20 <font color="00AA00">' long date format String</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_STIMEFORMAT = &H1003 <font color="00AA00">' time format String</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IDATE = &H21 <font color="00AA00">' short date format ordering</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ILDATE = &H22 <font color="00AA00">' Long date format ordering</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ITIME = &H23 <font color="00AA00">' time format specifier</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ICENTURY = &H24 <font color="00AA00">' century format specifier</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_ITLZERO = &H25 <font color="00AA00">' leading zeros in time field</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IDAYLZERO = &H26 <font color="00AA00">' leading zeros in day field</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_IMONLZERO = &H27 <font color="00AA00">' leading zeros in month field</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_S1159 = &H28 <font color="00AA00">' AM designator</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_S2359 = &H29 <font color="00AA00">' PM designator</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDAYNAME1 = &H2A <font color="00AA00">' Long name For Monday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDAYNAME2 = &H2B <font color="00AA00">' Long name For Tuesday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDAYNAME3 = &H2C <font color="00AA00">' Long name For Wednesday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDAYNAME4 = &H2D <font color="00AA00">' Long name For Thursday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDAYNAME5 = &H2E <font color="00AA00">' Long name For Friday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDAYNAME6 = &H2F <font color="00AA00">' Long name For Saturday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SDAYNAME7 = &H30 <font color="00AA00">' Long name For Sunday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVDAYNAME1 = &H31 <font color="00AA00">' abbreviated name For Monday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVDAYNAME2 = &H32 <font color="00AA00">' abbreviated name For Tuesday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVDAYNAME3 = &H33 <font color="00AA00">' abbreviated name For Wednesday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVDAYNAME4 = &H34 <font color="00AA00">' abbreviated name For Thursday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVDAYNAME5 = &H35 <font color="00AA00">' abbreviated name For Friday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVDAYNAME6 = &H36 <font color="00AA00">' abbreviated name For Saturday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVDAYNAME7 = &H37 <font color="00AA00">' abbreviated name For Sunday</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME1 = &H38 <font color="00AA00">' Long name For January</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME2 = &H39 <font color="00AA00">' Long name For February</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME3 = &H3A <font color="00AA00">' Long name For March</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME4 = &H3B <font color="00AA00">' Long name For April</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME5 = &H3C <font color="00AA00">' Long name For May</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME6 = &H3D <font color="00AA00">' Long name For June</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME7 = &H3E <font color="00AA00">' Long name For July</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME8 = &H3F <font color="00AA00">' Long name For August</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME9 = &H40 <font color="00AA00">' Long name For September</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME10 = &H41 <font color="00AA00">' Long name For October</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME11 = &H42 <font color="00AA00">' Long name For November</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SMONTHNAME12 = &H43 <font color="00AA00">' Long name For December</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME1 = &H44 <font color="00AA00">' abbreviated name For January</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME2 = &H45 <font color="00AA00">' abbreviated name For February</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME3 = &H46 <font color="00AA00">' abbreviated name For March</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME4 = &H47 <font color="00AA00">' abbreviated name For April</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME5 = &H48 <font color="00AA00">' abbreviated name For May</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME6 = &H49 <font color="00AA00">' abbreviated name For June</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME7 = &H4A <font color="00AA00">' abbreviated name For July</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME8 = &H4B <font color="00AA00">' abbreviated name For August</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME9 = &H4C <font color="00AA00">' abbreviated name For September</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME10 = &H4D <font color="00AA00">' abbreviated name For October</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME11 = &H4E <font color="00AA00">' abbreviated name For November</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME12 = &H4F <font color="00AA00">' abbreviated name For December</font>
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SABBREVMONTHNAME13 = &H100F

<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_SYSTEM_DEFAULT& = &H800
<font color="blue">Public</font> <font color="blue">Const</font> LOCALE_USER_DEFAULT& = &H400

<font color="blue">Const</font> cMAXLEN = <font color="darkblue"><b>255</b></font>