y do i always post last?
Printable View
y do i always post last?
How did this end up being 115 pages? thats about 4600 posts!!!!!!!
VP
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!
Morning matey.
I just checked my mail and i've won on the bananalotto:D, 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. :)
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!
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?
I'm decidedly fine, and you're right, it isn't all that much work. I'm nearly done already! 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 :DQuote:
Originally posted by CyberSurfer
How's yasel?
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.
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 :(
cyber - eaiest thing, is to use the instr function inside a loop to c how many "/" are in the string
Errm...I thought that, but I only discovered InStr today (don't laugh!) and I'm not entirely sure how to do that.....
sorry if there are many mistakes i just cant concentrate and im sure there is a better way...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
Ian, please call me Simon,
iva had before emails saying youve won, and all you win is entry into a prize draw :rolleyes: but someone must win somewhere hey. just its gonna be me:D
Does that check for occurences of "/"? It probably does, but I can't concentrate either!
Quote:
Originally posted by chenko
sorry if there are many mistakes i just cant concentrate and im sure there is a better way...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
oppps:rolleyes:
I'll just try it...
let me give you a hand
there you go mate, nice an easyCode: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
if it has MORE than 2 "/" it will return True
It works!! Cheers Simon!
ive only use inStr once before and it was hit and miss until i got i right...
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 :)
Quote:
Originally posted by CyberSurfer
It works!! Cheers Simon!
It works!!! *faints*
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?
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?
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...
it stops at Movelast and complains there is no record!!!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
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
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?
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.
I wish I could Katie, 50p = 0.736200 USD
I hate to show my ignorance (as I usually pretty good at hiding it). Isn't 50p fifty pounds?
I wish it was, 50p is 50 pence, a penny is our equivelent to you dime's and cents
What a dissappointment. I was looking forward to that beer.