01.04.2010 11:42, Horodyski Marek (PZUZ) написав(ла):
hb_SetCodePage( 'UA866')
Form Changelog:
NOTE to users: Use HB_CDPSELECT() or SET( _SET_CODEPAGE ) instead.
FUNC main()
SET ALTERNATE TO cmonth.txt additive
SET ALTERNATE ON
SET DATE TO german
REQUEST HB_CODEPAGE_UA866
hb_cdpSelect('UA866')
?hb_langname()
for i := 1 TO 12
?CMonth( CToD( "01/" + AllTrim(Str(i ) ) + "/2010" ) )
next
RETURN nil
The result is language==EN:
in console:
HB_CDPUNIID()= cp866
hb_langname() Harbour Language: EN English (English)
January
February
March
April
May
June
July
August
September
October
November
December
in file:
HB_CDPUNIID()= cp866
hb_langname() Harbour Language: EN English (English)
January
February
March
April
May
June
July
August
September
October
November
December
Regards,
Alexey Myronenko
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
