Dim W_DAY(1 To 7) As String
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer) ' понедельник
W_DAY(1) = LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer) ' вторник
W_DAY(2) = LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer) ' среда
W_DAY(3) = LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer) ' четверг
W_DAY(4) = LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer) ' пятница
W_DAY(5) = LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer) ' суббота
W_DAY(6) = LPSTRToVBString(buffer)
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99)
DAY_FIRST.AddItem LPSTRToVBString(buffer) ' воскресенье
W_DAY(7) = LPSTRToVBString(buffer)
|