posted January 03, 2006 07:31 PM            

Wilkommen!

I mean, you're welcome to use my code, but as soon as you're going to write code for the international market, you may feel the need for a routine that covers the 3 possibilities as mentioned here before.
Anyhow, tomorrow (Mittwoch/Wednesday) it will be downloadable from my website.

posted January 04, 2006 08:56 AM            

Mine just has a key=Locale, value '00000409'

I guess the installed locale has these settings 'built in' so you just have to deal with it.

Oh well, I guess that's why programming languages exist.. so some ambitious programmer could create a function like...

FUNCTION GetWeekNumber (date, weekMethod, firstdayofweek, OPTIONAL LocalId AS LONG) AS LONG
 '
 ' get the info for current, default or specified locale, massage until done
 '

Good to know, though.

MCM

posted January 04, 2006 09:09 AM            

I wonder, do you have W98? Maybe in that case you'll find those settings in WIN.INI.

posted January 04, 2006 09:30 AM            

Maybe it's one of these from Win.ini...

[intl]
slanguage=enu
iCountry=1
ICurrDigits=2
iCurrency=0
iDate=0
iDigits=2
iLZero=1
iMeasure=1
iNegCurr=0
iTime=0
iTLZero=0
s1159=AM
s2359=PM
sCountry=United States
sCurrency=$
sDate=/
sDecimal=.
sList=,
sLongDate=dddd, MMMM dd, yyyy
sShortDate=M/d/yy
sThousand=,
sTime=:

Not really important, but I think I'll check our your stuff anyway. from description, you just might be that 'ambitious programmer' mentioned earlier...

posted January 04, 2006 09:37 AM            

' *************************************************************************
' * Function WeekNumber in accordance with Windows settings               *
' *                                                                       *
' * %LOCALE_IFIRSTWEEKOFYEAR returns one of the following:                *
' *      0 = week containing Jan. 1 is first week                         *
' *      1 = first full week is first week                                *
' *      2 = week containing at least 4 days is first week  [ISO 8601]    *
' *                                                                       *
' * %LOCALE_IFIRSTDAYOFWEEK returns one of the 7 weekdays:                *
' *      0 = Monday                                         [ISO 8601]    *
' *         thru                                                          *
' *      6 = Sunday                                                       *
' *                                                                       *
' *************************************************************************
FUNCTION WeekNumber(wYear AS WORD, wMonth AS WORD, wDay AS WORD, iLocale AS LONG) AS BYTE

Since we can't post ZIP files in source code forum, might I suggest this (shamelessly copied from the "files" section of this web site).....

"Got a file to contribute?
E-mail it to files@powerbasic.com
Thanks for sharing your code!"

posted January 04, 2006 10:06 AM            

I do not quite understand what you mean. I've shared several files with PB. They're available from their Download section.
This one was and is meant for my own website. What difference does it make for you to download it either from their or from my website?

posted January 04, 2006 10:27 AM            

IF ISFALSE(GetDateFormat iLocale, dwShortLong, lpDate, "", szDate, SIZEOF(szDate)) THEN
' error detected by Windows. Eventually use GetLastError() to find out which one.
FUNCTION = ""
EXIT FUNCTION
END IF

To:

IF ISFALSE(GetDateFormat( iLocale, dwShortLong, lpDate, "", szDate, SIZEOF(szDate))) THEN
' error detected by Windows. Eventually use GetLastError() to find out which one.
FUNCTION = ""
EXIT FUNCTION
END IF

posted January 04, 2006 10:37 AM            

Corrected! Version 7.04 obviously accepts this syntax error.

posted January 04, 2006 10:44 AM            

quote:

---

What difference does it make for you to download it either from their or from my website?

---

For downloading? No difference. But finding it when you need it is another matter.

posted January 05, 2006 08:12 AM            

------------------
Egbert Zijlema, journalist and programmer (egbert at egbertzijlema dot nl)
http://www.egbertzijlema.nl/programming.html
*** Opinions expressed here are not necessarily untrue ***

posted January 05, 2006 09:20 AM            

OPTIONAL parameters (especially since the compiler started supporting them without all the CDECL and square brackets crap) are a really, really nice feature, especially for doing 'backward compatible' upgrades.

posted December 21, 2006 07:50 AM            

Yes, submitting the code to pb would have been a good idea.. However, I looked there and it doesn't seem like much have been uploaded there in years anyways?

If you have Egbert's latest code, will you please email it to me: HENNING at DIARY dut ST

Thx,

posted December 21, 2006 08:16 AM            

The site mentioned here is down. Webhosting is too expensive for me, being just an amateur.
Try the programming site below.