Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
боксы заполняются исхоя из настроек системы

dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99) DAY_LAST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99) DAY_LAST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99) DAY_LAST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99) DAY_LAST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99) DAY_LAST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99) DAY_LAST.AddItem LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99) DAY_LAST.AddItem LPSTRToVBString(buffer) If DAY_FIRST > DAY_LAST Then  DAY_FIRST.Text = ""  DAY_LAST.Text = "" End If