HNC Computing at the mo'...For next year, I've applied for a BSc(Hons) Computer Science at the University of Kent at Canterbury...Still waiting to hear back..
Printable View
HNC Computing at the mo'...For next year, I've applied for a BSc(Hons) Computer Science at the University of Kent at Canterbury...Still waiting to hear back..
i was gonna be doing that but they wouldnt let me as i wasnt 18:( but now i do two courses in the evenings, ASP (big pile of shyte) and VB, im now in the advanced group, they wudnt let me go straigth into it as they wanted me to do the beginning crap, but after two sessions i was told i could go up to the ADV group :D which ive only been at a months worth outa 3 months:D wasnt my falt the lorry really hit me :D (i did no lie)Quote:
Originally posted by CyberSurfer
HNC Computing
Were doing ****y ADO at the moment, i to program DB, but i hate ADO (i program DAO)
Weird...I started my HNC at 17....
BASTARDS!!! well im gonna try again when im 17 any way... im out for lunch so ill see you later, take care
cya!*WAVES then walks into a lamppost* ARGGHH!!
:D
oh and how do i get the mail to command working in my signiture?
use [ email ] address [ /email ] (without the tag spaces)...
ie..
[email protected]
dohh, i should av just guessed that, so hows the weather? typical british question heh? av u heard about all these new flood warning especally in the south-east, does it eva stop raining?
No rain up here, just lotsa snow! And more snow... In fact, it's just started snowing again!
and thats why the rivers are starting to flood down ere hehe:D
...I'm bored! nuthing to do...
BTW how do i call a form from another project in a project group?
I'm afraid I have no clue! Never used project groups before....Just finished IsBritishDate, though, works magic!
cool... thou how do you tell if somit like 04/04/01 is british or american? im only using a group project as i want a few of my programs to run in a MDI form, is it possible to Shell a EXE and run it in a MDI form? i wouldnt think so my self, dya mind me having a look at your IsBritishDate Function?
04/04/01 doesn't matter, coz even if it was switched round it would still be the same date...
Here is my function, sorry about all the comments (required to write them by the tutor), and sorry if it is written a bit crappily as well..
Code:Public Function IsBritishDate(ByVal vntDate As Variant) As Boolean
Dim digits() As String
Dim counter As Integer
Dim checkvar As Integer
Dim lastvar As String
Dim slastvar As String
Dim instances As Integer
Dim day As Integer
Dim month As Integer
'Checks to see if there is any actual data to check
If vntDate = "" Then
IsBritishDate = False
Exit Function
End If
'End date check
' Checks to see if there are any "/" characters in the date string
checkvar = InStr(1, vntDate, "/") ' Looks for the first instance of "/"
If checkvar = 0 Then ' If none were found
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
'End "/" Check"
' Check if the date string is longer than 10 digits
If Len(vntDate) > 10 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
'End 10 digit check
'Checks to see if there are more than two "/" in the date string
For counter = 1 To Len(vntDate) + 1
If Right(Left(vntDate, counter), 1) = "/" Then
instances = instances + 1
End If
Next counter
If instances > 2 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
'End two "/" check
'Splits up date string into an array.
ReDim digits(Len(vntDate))
For counter = 1 To Len(vntDate)
digits(counter) = Mid(vntDate, counter, 1)
Next counter
'End Split
'Checks specific digits, adding "0" where appropriate
'IsNumeric checks to see if the specified variable holds a valid number.
'"<>" means NOT EQUAL TO
If digits(2) = "/" Then
digits(1) = "0" & digits(1)
End If
If IsNumeric(Val(digits(3))) And digits(3) <> "0" And digits(4) = "/" Then
digits(3) = "0" & digits(3)
End If
If IsNumeric(Val(digits(4))) And Not IsNumeric(digits(3)) And digits(5) = "/" Then
digits(4) = "0" & digits(4)
End If
lastvar = digits(UBound(digits))
slastvar = digits(UBound(digits) - 1)
If Len(lastvar) = 1 And slastvar = "/" Then
lastvar = "0" & lastvar
digits(UBound(digits)) = lastvar
End If
'End Check
vntDate = "" ' Sets vntDate to ""
'Joins up array to form new "vntDate"
For counter = 1 To UBound(digits)
vntDate = vntDate & digits(counter)
Next counter
'End Join
' If the the four digits which would form the day and month are numeric, then put those values into the specified variables.
If IsNumeric(Mid(vntDate, 1, 2)) And IsNumeric(Mid(vntDate, 4, 2)) Then
day = Mid(vntDate, 1, 2)
month = Mid(vntDate, 4, 2)
Else ' Otherwise
IsBritishDate = False ' Return a false value for the function
Exit Function ' Exit the current function
End If
'End day and month check
'Splits up date string into an array.
ReDim digits(Len(vntDate))
For counter = 1 To Len(vntDate)
digits(counter) = Mid(vntDate, counter, 1)
Next counter
'End Split
' If the "/" symbols are in the right place
If digits(3) <> "/" Or digits(6) <> "/" Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
' End Check
'Performs a precautionary check on the month and day digits, and returns a "False" value if the conditions are not met.
If month > 12 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
'End Precautionary Check
'Checks the month variable, and performs a check on the day variable accordingly.
Select Case month
Case 1
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 2
If day > 29 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 3
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 4
If day > 30 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 5
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 6
If day > 30 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 7
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 8
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 9
If day > 30 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 10
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 11
If day > 30 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
Case 12
If day > 31 Then
IsBritishDate = False ' Return a false value for the function
Exit Function
End If
End Select
'End Month, Day check
IsBritishDate = True ' All the above tests have been passed, the input data is a valid date, so return a "True" value for this function.
End Function
ok wat about 04/05/01??? lolQuote:
Originally posted by CyberSurfer
04/04/01 doesn't matter, coz even if it was switched round it would still be the same date...
The function would take that to mean 4th of May, 2001. The program clearly asks you to enter dates as dd/mm/yy. However, I'm sure someone'll manage to do it wrong :p <siiiiiigh!>
Morning gentlemen!
Hi Katie! How are things in sunny Cali? Not 6 inches deep in snow, I bet!
Nope...no snow but only 20 degrees....brrrrrrrrrrrrrrrrrrr!
You have 6" of snow???????
This thread must be the longest thread on the site...
Hello by the way.
hi katie - hows it going?
20 DEGREES! It's 0 outside here! :( We have 6 inches of snow, a ton of roads are blocked, college has been closed for the last two days, and there are only two people (including me) in today!
Wish I was over in California!
And yes, chrismitchell, this is indeed the longest thread on the site :D :D :D :D :D :D
Come on over! The more the merrier....except be prepared for electricity shortages....
:) I'll take a torch...
Morning, how are you?
What's new with you all???
I'm fine.............(at least that's what my husband tells me)
I'm wishing I was somewhere hot...
Apart from that, 2nd semester of my course has started, and I'm still hugely happy with life in general.....
You??
I'm VERY content with my life in general..... :-)
my daughter is still pretty sick so it's not as happy as it could be right now though. I'm taking her back to the doctor this afternoon.....hopefully, they'll fix her up soon :-(
Hope she gets better soon :)
Thanks............I hate seeing her sick.....I miss seeing her smile...........
Yeah :(
Anyhoo, I'm off home now, so I'll maybe speak to y'all later tonight, or tomorrow..
wow..it must be cool being a mum...
or even a human at all :(
Bye Jonathan...
It is pretty cool being a mom most of the time.
Behemoth are you not human??
cya ya <fill with people who are leaving>
who are leaving then?
no, im a mountain climbing android...remember :D
How could I forget................what was I thinking?
How's the eye anyway?
very sore. I'm not sure this ointment stuff's doing me any good. - chloramphenicol...anyone heard of it?
Haven't heard of it. I've decided that most doctors are crap anyway. Erin (my daughter) has been sick for over a week and isn't better...the doctors just keep throwing antibiotics at her but nothing seems to work....I wish I was that overpaid for being incompetent!...oh wait..maybe I am ;-)
antibiotics are becoming less and less useful because of doctors like that!
whats the matter with your daughter anyway?
She has tonsilitis. They want to take them out but have to get them "healthy" first. She is just miserable. I know she's not a baby anymore but I still feel that I should be able to make her feel better.
6 inches of snow! We had 9 yesterday when I woke up. We got another 3 last night. And it's snowing now with an estimated 3 - 5 left to go. I can't believe they called the college's off for 6 inches of snow!
aint that somit they use for engines behemoth?:DheheQuote:
Originally posted by Behemoth
chloramphenicol...
Hey all, how are ya?
OK...
A further update on South Dakota weather. We have already gotten five inches today, so their 3 - 5 inches was a bunch of bull. It doesn't look like it's going to stop either. I think I may be stuck at home tomorrow. (That makes me sooooo upset!)
Well...then you can come on here and chat to us :D
OK...sounds good to me.
Oops...forgot!
Evening everyone! :D
Bit later here tonight as I had a concert to do :eek:
Well, just as you get here, I am going to leave
Nothing personal....
But I would like to make it home tonight. With the weather here, I have to get going very soon.
Hehe....course not ;)
Hope you get home intact / at all :eek:
Me too. I have the 4-wheel drive truck today, so I should be just fine.
Goodbye!
Bye!
Hmmm...where's everyone else? :rolleyes:
Up Up Up!!!! ^^^^^^
||||||||||||
Damn didn't work right
Guess i'll have to do it the hard way...
Long enough yet?
Hey there stranger!
Haven't seen you around much ;)
in my area its
preschool
grade school
kindergarden
1st
2nd
3rd
4th
middle school
5th
6th
7th (thats my grade)
8th
high school
9th
10th
11th
12th
collage
when i first came to school i feel asleep during the morning anousments, as i usally do. then i went to my specal, i noticed it was really cold and every one was were jackets as i started to really wake up i got cold. my techer told us, THAT IT WAS 50 DEGREES!!!!!! so the entre moring i had to were my jacket. then i did all this work. and finnaly went home. but i had to goto the doctor, he had to take blood, DAMN IT!!!! then i had to go shoping and i finnaly got home at 6pm.
Is anybody out there?
yep...
How's it going Katie?
How are you doing this evening?
I'm doing CRAPPY! I took Erin to the doctor today and on the way back to work the fan belt broke and I'm sitting here waiting for a ride home since I'm stranded.
I'm fine....
The valentines dance is tomorow evening(from 8 to 11:30)... and the science fair is at like 7:30am the next day....... gonna be really tired..... :o
Quote:
Originally posted by barrk
I'm doing CRAPPY! I took Erin to the doctor today and on the way back to work the fan belt broke and I'm sitting here waiting for a ride home since I'm stranded.
That is pretty crappy....
I hope you find a ride soon Katie...
Good for you...are you ready for an nice evening with Amanda?