Post Race!

[nukem996]

y do i always post last?

[Visual Programmer]

How did this end up being 115 pages? thats about 4600 posts!!!!!!!

VP

[nukem996]

at one point it was really a race. and becuase we talk alot. in UK time CA time and NJ time.
i remember sonic when i was about 5 i beat all the games now i play computer games.

Morning people, how are you all? the visibility is so bad i had trouble seeing my nose!

[Ianpbaker]

Morning matey.

I just checked my mail and i've won on the bananalotto, I can now give up work, see the world and not have a care in the world. Or I can go down the newsagent and buy myself a can of coke to cellebrate as it was 50p.

[CyberSurfer]

Morning All!

Does anybody have a function kicking about to check if a date is in valid British format? IsDate switches invalid british dates to US format and then checks. I've already tried Format, and that didn't work either.

If no-one has one, I'll have to write one..DOH!

And yes, I know this should have been in VBQ, but it's my thread!

[Ianpbaker]

it's all gone quiet said rubarb
too quiet said custard

morning Jonathan, it wont be that much work to write it yourself, and how are you?

morning Ian, so who you gonna take on holiday then and how are you?

[CyberSurfer]

I'm decidedly fine, and you're right, it isn't all that much work. I'm nearly done already! How's yasel?

Originally posted by CyberSurfer
How's yasel?

whos yasel....? oh yourself, im ok still very tired, i have been for ages, and i cant consentrate on my programming i was working on this function for 3 days, and found all i needed was to add +2 to one of the varibles, somit that wud usally have taken 0-30mins show how much im lagging, so im gonna take a holiday soon, maybe iceland... or just my bed

[CyberSurfer]

Sounds Nice!

Do you have any idea how I might find out if "/" occurs more than twice in a string? I can't use split, coz I'm using VB5 at college.

[Ianpbaker]

it was quite funny chenko, I opened the email and it said congratulation's for winning, you have matched three number's blah de blah and and it wasn't untill you got to the bottom of the mail that it told you how much you got for three number's

[Ianpbaker]

cyber - eaiest thing, is to use the instr function inside a loop to c how many "/" are in the string

[CyberSurfer]

Errm...I thought that, but I only discovered InStr today (don't laugh!) and I'm not entirely sure how to do that.....

Public Function MyFunction()
Dim Data
Dim X
Dim iCount

For X = 1 To Len(Data) + 1
If Right(Left(Data, X), 1) Then iCount = iCount + 1
Next X

If iCount > 2 Then MyFunction = True
End Function

sorry if there are many mistakes i just cant concentrate and im sure there is a better way...

Ian, please call me Simon,
iva had before emails saying youve won, and all you win is entry into a prize draw but someone must win somewhere hey. just its gonna be me

[CyberSurfer]

Does that check for occurences of "/"? It probably does, but I can't concentrate either!

Originally posted by chenko

Public Function MyFunction()
Dim Data
Dim X
Dim iCount

For X = 1 To Len(Data) + 1
If Right(Left(Data, X), 1) = "/" Then iCount = iCount + 1
Next X

If iCount > 2 Then MyFunction = True
End Function

sorry if there are many mistakes i just cant concentrate and im sure there is a better way...

oppps

[CyberSurfer]

I'll just try it...

[Ianpbaker]

let me give you a hand

Dim blnFound as Boolean
Dim strDate as String
Dim iCountslash as Interger
Dim iSearchPlace as Interger

'set the search to true
blnFound = True

'start searching the string at the first character
iSearchPlace = 1

iCountslash = 0

Do While blnFound = True
  If instr(iSearchplace,strDate,"/") >= 1 Then
     'set the search to 1 character past the / that has been found
     iSearchplace = instr(iSearchplace,strDate,"/") + 1
     iCountslash = iCountslash + 1
  Else
    no slahes found
     blnFound  = False
  End If
Wend

there you go mate, nice an easy

if it has MORE than 2 "/" it will return True

[CyberSurfer]

It works!! Cheers Simon!

ive only use inStr once before and it was hit and miss until i got i right...

[Ianpbaker]

if that's about my code simon, i've got iCountslash to count how many slashes there are, same as yours, just done a different way

Originally posted by CyberSurfer
It works!! Cheers Simon!

It works!!! *faints*

[Ianpbaker]

simon - it's actually a proper win, if you goto www.bananalotto.co.uk, they have have a draw every day, no hassle, no spam, all you've got to do is click on an advertiser's link and close it as soon as it's open

yea i know that, just showing how funny these things can be... is this the most youve won?

BTW do you know anywhere where i can get decent little graphics animated or not for my avitari?

[Ianpbaker]

yeah first time, although i've only been playing it for about a month

3 balls - 50p
4 balls - £5
5 balls - £100
6 balls - £100,000
6 balls + banana ball - £1,000,000 (put's little finger at the side of his mouth)

wat do you do to enter?

[Ianpbaker]

nothing much. just enter your name and address and you can play every day for free

Can one of you help me with this please...

Dim DB As Database
Dim RS As Recordset
Dim sSQL As String
Set DB = DAO.OpenDatabase(DBpath, False, False, ";pwd=" & DBpassword)
sSQL = "SELECT * FROM holidaydata WHERE employee = '" & Department & "'"
Set RS = DB.OpenRecordset(sSQL)

Dim iRecords
RS.MoveLast
RS.MoveFirst
iRecords = RS.RecordCount

it stops at Movelast and complains there is no record!!!

dont worry i got it, the table name is employee and the field name is dept.... me just stupid.... would one of you have a look at my little program once ive finished... id like some ideas on how i could make it better... Thanks

[Ianpbaker]

if the recordset is not reurning any row's you can't use any of the move function's without getting an error.

Try enclosing this

If RS.BOF = False AND RS.EOF = False Then

RS.MoveLast
RS.MoveFirst

End IF

Do you suspect that Parksie might be dead?

[barrk]

Congratulations Ian..........buy a beer for us all?????


I sure hope parksie's not dead. He said he was going to try to make it to class today. Maybe he's learning something instead of just chatting.

[Ianpbaker]

I wish I could Katie, 50p = 0.736200 USD

[barrk]

I hate to show my ignorance (as I usually pretty good at hiding it). Isn't 50p fifty pounds?

[Ianpbaker]

I wish it was, 50p is 50 pence, a penny is our equivelent to you dime's and cents

[barrk]

What a dissappointment. I was looking forward to that beer.