-
Feb 1st, 2001, 07:43 PM
#4401
Banned
y. . .
-
Feb 1st, 2001, 07:53 PM
#4402
Member
How did this end up being 115 pages? thats about 4600 posts!!!!!!!
VP
VP/Sonic taking on the (vb) world, one post at a time.
-
Feb 1st, 2001, 07:58 PM
#4403
Banned
becuase. . .
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.
-
Feb 2nd, 2001, 03:40 AM
#4404
Morning people, how are you all? the visibility is so bad i had trouble seeing my nose!
-
Feb 2nd, 2001, 04:11 AM
#4405
Fanatic Member
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.
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 04:32 AM
#4406
Thread Starter
Hyperactive Member
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!
-
Feb 2nd, 2001, 05:24 AM
#4407
Fanatic Member
it's all gone quiet said rubarb
too quiet said custard
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 05:30 AM
#4408
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?
-
Feb 2nd, 2001, 05:37 AM
#4409
Thread Starter
Hyperactive Member
I'm decidedly fine, and you're right, it isn't all that much work. I'm nearly done already! How's yasel?
-
Feb 2nd, 2001, 05:41 AM
#4410
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
-
Feb 2nd, 2001, 05:51 AM
#4411
Thread Starter
Hyperactive Member
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.
-
Feb 2nd, 2001, 05:52 AM
#4412
Fanatic Member
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
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 05:53 AM
#4413
Fanatic Member
cyber - eaiest thing, is to use the instr function inside a loop to c how many "/" are in the string
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 05:59 AM
#4414
Thread Starter
Hyperactive Member
Errm...I thought that, but I only discovered InStr today (don't laugh!) and I'm not entirely sure how to do that.....
-
Feb 2nd, 2001, 06:02 AM
#4415
Code:
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...
-
Feb 2nd, 2001, 06:04 AM
#4416
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
-
Feb 2nd, 2001, 06:05 AM
#4417
Thread Starter
Hyperactive Member
Does that check for occurences of "/"? It probably does, but I can't concentrate either!
-
Feb 2nd, 2001, 06:06 AM
#4418
Originally posted by chenko
Code:
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
-
Feb 2nd, 2001, 06:07 AM
#4419
Thread Starter
Hyperactive Member
-
Feb 2nd, 2001, 06:08 AM
#4420
Fanatic Member
let me give you a hand
Code:
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
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 06:08 AM
#4421
if it has MORE than 2 "/" it will return True
-
Feb 2nd, 2001, 06:10 AM
#4422
Thread Starter
Hyperactive Member
-
Feb 2nd, 2001, 06:10 AM
#4423
ive only use inStr once before and it was hit and miss until i got i right...
-
Feb 2nd, 2001, 06:10 AM
#4424
Fanatic Member
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
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 06:12 AM
#4425
Originally posted by CyberSurfer
It works!! Cheers Simon!
It works!!! *faints*
-
Feb 2nd, 2001, 06:18 AM
#4426
Fanatic Member
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
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 06:22 AM
#4427
yea i know that, just showing how funny these things can be... is this the most youve won?
-
Feb 2nd, 2001, 06:23 AM
#4428
BTW do you know anywhere where i can get decent little graphics animated or not for my avitari?
-
Feb 2nd, 2001, 06:25 AM
#4429
Fanatic Member
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)
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 06:33 AM
#4430
-
Feb 2nd, 2001, 06:35 AM
#4431
Fanatic Member
nothing much. just enter your name and address and you can play every day for free
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 06:45 AM
#4432
Can one of you help me with this please...
Code:
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!!!
-
Feb 2nd, 2001, 06:48 AM
#4433
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
-
Feb 2nd, 2001, 06:49 AM
#4434
Fanatic Member
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
Last edited by Ianpbaker; Feb 2nd, 2001 at 06:54 AM.
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 09:10 AM
#4435
Do you suspect that Parksie might be dead?
-
Feb 2nd, 2001, 10:20 AM
#4436
Hyperactive Member
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.
-
Feb 2nd, 2001, 10:23 AM
#4437
Fanatic Member
I wish I could Katie, 50p = 0.736200 USD
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 10:25 AM
#4438
Hyperactive Member
I hate to show my ignorance (as I usually pretty good at hiding it). Isn't 50p fifty pounds?
-
Feb 2nd, 2001, 10:26 AM
#4439
Fanatic Member
I wish it was, 50p is 50 pence, a penny is our equivelent to you dime's and cents
Yeah, well I'm gonna build my own lunar space lander! With blackjack aaaaannd Hookers! Actually, forget the space lander, and the blackjack. Ahhhh forget the whole thing!
-
Feb 2nd, 2001, 10:27 AM
#4440
Hyperactive Member
What a dissappointment. I was looking forward to that beer.
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|