IsNumber

thefool · Post by **thefool** » Sun Sep 04, 2005 3:07 pm

Its damn annoying that you brittish people use a dot "."

CodeMonkey · Post by **CodeMonkey** » Sun Sep 04, 2005 3:50 pm

I know and someone needs to tell the americans about that 'mm/dd/yyyy' thing for dates! it's just wrong!

Killswitch · Post by **Killswitch** » Sun Sep 04, 2005 3:51 pm

Hey we invented English, and we owned 0.25 of the world at one point - so you can stick your commas!

thefool · Post by **thefool** » Sun Sep 04, 2005 3:52 pm

hehe

Post by **Dare2** » Sun Sep 04, 2005 4:42 pm

Also stop throwing the "U" out of words like colour! Imagine that taken to an extreme:

This is or hose.
We use flor to bake or cakes.
News updates on the hor.

Por some water on it!
Of corse it's wrong!

thefool · Post by **thefool** » Sun Sep 04, 2005 5:16 pm

lol haha

dagcrack · Post by **dagcrack** » Mon Sep 05, 2005 6:56 am

I know and someone needs to tell the americans about that 'mm/dd/yyyy' thing for dates! it's just wrong! Wink

True... I don't know where they took the idea from .. (stole it from who?

) But I prefer dd/mm/yy all life.

Well.. Colour < Color ..
Color is used even in spanish! so it wins. end of story

Salute the chavs for me (those bloody townies!).
Castel for the Brit - Castle for the Yankee

Post by **Dare2** » Mon Sep 05, 2005 8:23 am

dagcrack wrote:Color is used even in spanish! so it wins. end of story

lol.

Who can (or wants to) argue with that.

thefool · Post by **thefool** » Mon Sep 05, 2005 1:10 pm

heh no argumenting, i just always write colour

dd/mm/yy is the correct one. Those americans, jeez :roll:

nco2k · Post by **nco2k** » Mon Sep 05, 2005 3:13 pm

@british people
stop driving in the wrong way.

oh and btw...

Code: Select all

Procedure IsNumeric(String.s)
  If Str(Val(String)) <> "0"
    Result = #True
  Else
    Result = #False
  EndIf
  ProcedureReturn Result
EndProcedure

Debug IsNumeric("99")
Debug IsNumeric("ABC")
Debug IsNumeric("AB99CD")

for the most people it should be good enough.

c ya,
nco2k

aszid · Post by **aszid** » Tue Sep 06, 2005 8:06 pm

that last one wont catch 0's though.... maybe this?

Code: Select all

Procedure IsNumeric(String.s)
  If String = Str(Val(string))
    Result = #True
  Else
    Result = #False
  EndIf
  ProcedureReturn Result
EndProcedure

Debug IsNumeric("99")
Debug IsNumeric("ABC")
Debug IsNumeric("AB99CD")
Debug IsNumeric("0")

nco2k · Post by **nco2k** » Tue Sep 06, 2005 8:45 pm

@aszid
yes you are right, my mistake sorry.

c ya,
nco2k

aszid · Post by **aszid** » Wed Sep 07, 2005 5:22 am

*editted*

blarg.... forget i even posted, i read to the beginning and saw the same code practically >.<

Post by **Dare2** » Wed Sep 07, 2005 6:25 am

Hate it when that happens.

Dräc · Post by **Dräc** » Wed Nov 29, 2006 8:44 pm

Just for fun...

Code: Select all

Procedure IsNumeric(String.s) 
  ProcedureReturn String = Str(Val(String)) 
EndProcedure

...but with a limitation for string starting by "0"

Code: Select all

Debug IsNumeric("0899")