szukałem i znalazłem pewna procedure która wyswietla mi jaki jest aktualnie miesiąc - ale mi coś nie działa - może wy mi pomożecie - podrzucie jakieś procedury które by mi wyswietliły aktualny miesiąc na labelu
pozdrawiam
Moze ktos znajdzie cos prostszego, ale ja wymyslilem tak:
var
m, size :integer;
nazwa: string;
begin
{miesiac w mianowniku}
m:=MonthOf(Now);
size:=GetLocaleInfo(LOCALE_USER_DEFAULT,
Pred(LOCALE_SMONTHNAME1)+m, PChar(nazwa), 0);
SetLength(nazwa, size);
GetLocaleInfo(LOCALE_USER_DEFAULT,
Pred(LOCALE_SMONTHNAME1)+m, PChar(nazwa), size);
{miesiac w dopelniaczu}
size:=GetDateFormat(LOCALE_USER_DEFAULT, 0,
nil, PChar('ddMMMM'), PChar(nazwa), 0);
SetLength(nazwa, size);
GetDateFormat(LOCALE_USER_DEFAULT, 0,
nil, PChar('ddMMMM'), PChar(nazwa), size);
Label2.Caption:=Copy(nazwa, 3, MAXINT);
end;
w label1 powinien byc miesiac w mianowniku (np grudzien), w label2 w dopelniaczu (grudnia). Ale nie moglem sprawdzic bo mam Winde ustawiona na US i w obu pisze mi December
--
Pawel {Delphi 6 Personal}
Po pierwsze: naciśnij F1
wszystko było by spox gdyby mi nie wywalało błedu przy MonthOf - trzeba cos dodac do uses czy coś innego - mam delphi 5
proponuję tak
label1.Caption := formatdatetime('mmmm',now());
jeśli zmniejszysz ilość 'mm' będziesz miał format dwucyfrowy np 11 lub 01, tak samo formatuje się dzień i rok
zajrzyj do helpa na datetime formatting routines
pozdrawiam
pozdrawiam
wszystko było by spox gdyby mi nie wywalało błedu przy MonthOf - trzeba cos dodac do uses czy coś innego - mam delphi 5
uses DateUtils;
ale nie wiem czy zadziala w D5. Chocdzi tylko o odczytanie liczby aktualnego miesiaca, wiec na pewno da sie to zrobic jakos inaczej.
--
Pawel {Delphi 6 Personal}
Po pierwsze: naciśnij F1
dzięki o to mi chodziło [browar] [hurra] [cya]