Welcome, Guest: Register On Nairaland / LOGIN! / Trending / Recent / NewStats: 3,152,119 members, 7,814,929 topics. Date: Wednesday, 01 May 2024 at 11:51 PM |
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, "." ' 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 |