Welcome, Guest: Register On Nairaland / LOGIN! / Trending / Recent / New
Stats: 3,152,119 members, 7,814,929 topics. Date: Wednesday, 01 May 2024 at 11:51 PM

KenTimos's Posts

Nairaland Forum / KenTimos's Profile / KenTimos's Posts

(1) (of 1 pages)

Jobs/Vacancies / Re: Oauthc Recruitment 2020 by KenTimos: 11:22am On Aug 15, 2021
The latest I got regarding appointment letter is that people will be called for it this week. I don't know how far it's true.
Also, I heard before now that politicians have hijacked the recruitment process.
Programming / Re: How To Convert Numbers To Words In Excel by KenTimos: 1:55pm On Feb 19, 2020
Just a little modification



Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Naira, Kobo, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, "."wink
' Convert Kobo and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Kobo = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Naira = Temp & Place(Count) & Naira
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Naira
Case ""
Naira = "No Naira"
Case "One"
Naira = "One Dollar"
Case Else
Naira = Naira & " Naira"
End Select
Select Case Kobo
Case ""
Kobo = " Only"
Case "One"
Kobo = " One Kobo Only "
Case Else
Kobo = " " & Kobo & " Kobo Only "
End Select
SpellNumber = Naira & Kobo
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred and "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function

1 Like

Business / Re: Tips For Getting Your Business Name Approved With CAC by KenTimos: 12:07pm On May 10, 2019
Pls, what's the acceptable nature of business to register as a Mobile money agent (POS)? I am having difficulty in that aspect.
Jobs/Vacancies / Re: Peace Corps Of Nigeria Recruitment Form: Another Employment Scam? by KenTimos: 6:42am On Mar 02, 2017
Add me 08035141767
Jobs/Vacancies / Re: Peace Corps Of Nigeria Recruitment Form: Another Employment Scam? by KenTimos: 11:36am On Feb 27, 2017
Does anyone know the camp date for Lagos, Ogun and Oyo?

It seems people are no longer responding to issues.
Romance / Re: Can U Accept Her Back Irrespective Of Her Infidelity by KenTimos: 5:36pm On Nov 16, 2009
@Deep Sight.
No one cld be trusted 100%. But I fear women the most.If you have or had any experience about this,you'll sure understand my arguement.
Thanks thou.
Romance / Re: Can U Accept Her Back Irrespective Of Her Infidelity by KenTimos: 5:24pm On Nov 16, 2009
To start with, I cant accept her back even if she claims to be a changed person.
Maybe I should gives you personal and real life examples;
I dated a lady from 2000 to 2005.In yr 2005,we lost contact for 8 months due to my schooling (undergraduate) and her stubborness.The nxt time I saw her,she was with another man's 4 months pregnancy.Can you immagine that?She's now a mother of two.
Secondly,I have a friend who bleeped a lady 2 wks to her wedding with real man.Mind you,she continued the infidelity act with my friend even after wedding.They had series of romance sessions.They wld have done the real thing (sex),but I never excused the room for them.
The above are few out of my numerous life real time examples.
Guy,you have to be wise.Most women are deadly.Think straight.
Romance / Re: Can U Accept Her Back Irrespective Of Her Infidelity by KenTimos: 5:16pm On Nov 16, 2009
To start with, I cant accept her back even if she claims to be a changed person.
Maybe I should gives you personal and real life examples;
I dated a lady from 2000 to 2005.In yr 2005,we lost contact for 8 months due to my schooling (undergraduate) and her stubborness.The nxt time I saw her,she was with another man's 4 months pregnancy.Can you immagine that?She's now a mother of two.
Secondly,I have a friend who bleeped a lady 2 wks to her wedding with real man.Mind you,she continued the infidelity act with my friend even after wedding.They had series of romance sessions.They wld have done the real thing (sex),but I never excused the room for them.
The above are few out of my numerous life real time examples.
Guy,you have to be wise.Most women are deadly.Think straight.
Computers / Latest Codes For Zain Free Browsing, Could You: by KenTimos: 2:53pm On Mar 17, 2009
Does any one have latest code for zain free browsing on the PC?
Phones / Re: Bible Download. by KenTimos: 3:20pm On Mar 11, 2009
Any body interested in some mobile phones and pc softwares? Feel free to pm me on ogajus@yahoo.com. I will give you the details of where I reside at Oshodi. All you need do is to signify your interest.
Always ready to assist at no cost, believe you me.
Phones / Invest Today Because It Dosent Require Any Fee To Register by KenTimos: 3:14pm On Mar 11, 2009
Me 2 Everyone is a new company that just started. The below information is very useful for you to digest:

me2everyone Limited was incorporated in England in September 2008. Run by an experienced team and advised by our Global Executive board, we aim to create one of the most visited websites on the planet by 2012. When the main website launches we wll add language support in Spanish, Japanese, Korean, Chinese, French, German, Portuguese, Arabic, Russian and Italian. We will also add furthe languages upon request.

Any shares on this page will be paid for by us (or our partners) and so you can relax, knowing you never have to pay a single penny for your membership. In 2009 we will open an in-world "trading room" where you can offer your shares for sale to other members. Today they may be worth just their face value £0.001 each, Tomorrow that value could soar! All we need are members who become involved: we will take care of the rest. Our aim is to seek a stock market listing in 2012/13 and to create an income stream from business members who are given a new way of reaching customers.

To register, just click on this link: www.me2everyone.com/270439
Phones / Re: GSM Network Issues And Problems (Zain, Etisalat, Glo, MTN) by KenTimos: 9:19am On Feb 15, 2009
I learnt there is dmc.ng.zain.com.Is there anyway I can do that on mtn too?I learnt of a guy that usually send mtn settings from his fone.I wish I cld do that too.In fact,he customised the settings with his name.Could anyone assist me?

(1) (of 1 pages)

(Go Up)

Sections: politics (1) business autos (1) jobs (1) career education (1) romance computers phones travel sports fashion health
religion celebs tv-movies music-radio literature webmasters programming techmarket

Links: (1) (2) (3) (4) (5) (6) (7) (8) (9) (10)

Nairaland - Copyright © 2005 - 2024 Oluwaseun Osewa. All rights reserved. See How To Advertise. 26
Disclaimer: Every Nairaland member is solely responsible for anything that he/she posts or uploads on Nairaland.