Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Check If A Number Has Decimals?


how can i check if a number has decimals?

i tried with mod but mod wouldn't give the rest if it's smaller than one...

thx




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Check For Decimals
First of all does anyone know of an easy way to check if a number countains decimals? Currently I'm doing it this way but it doesn't work properly:


Code:
If Right(LCSDTag, 1) = "." Or Right(LCSDTag, 2) = "." Or Right(LCSDTag, 3) = "." Or Right(LCSDTag, 4) = "." Or Right(LCSDTag, 5) = "." Then 'Check for decimals
MsgBox "No decimals please", vbCritical, "No deciamls"
Else
End If
If LCSDTag = "1111." it will set off the error message but if LCSDTag ="1.111" it doesn't set off the error message. Any ideas why?

Number Of Decimals
Hello

can you guys tell me how to find out the number of decimal places in a variable.

e.g. is i have a variable

var =256

is there any way which will tell me it has 3 decimal places

Whole Number Without Decimals
It is a simple but rightnow I am stuck with this please help

How do we find a number is whole number means it doesn't contains any decimals( like1,2,3 not like 1.22,3.44)

Please reply urgently

Gary

Variating Number Of Decimals
G'day,
Can anyone tell me if it's possible to use a numberformat that changes depending on the cell value. I want to set the number of decimals to two when that is of interest. In other words: I would like to enter a maximum number of decimals, like 1.33333333 --> 1.33 and 1 --> 1 (and not 1.00). Thanks for any ideas.

BTW, my sheet will be protected so the numberformat must be predefined.

I Want Only The Number With 2 Decimals Stored...
Hello,
Let's say I have a number, 9,58964893859292429012284183... I want to save only 9,59 into a variable. How would I do this ?

Thank you!

Control Number Of Decimals
Hi
My vba on Excel program reads a cell and I would like to control the number of decimals that I read.

variable = cells(5,10)

How can I do so that variable has only 2 decimals.

Thanks

Number Of Decimals Digits
Hello to all.

I am new with VB, so please forgive me if I sound ignorant. I am doing some calculations that involve double numbers, the results are ok, but I need to show only 2 decimal digits... and I have not been able to figure this out.

Could any body help me with this. ?

Thanks.

Truncating A Number Value (No Decimals)
I have the following calculations -
lvAccountTaxes = lvAccountFunds * Request("AccountTaxes")            

The problem is that i don't want any decimal places returned.

EX - lvAccountTaxes = 12589 * .17
I would like returned - 2140 NOT 2140.13
Is there a way to do that?

THANKS!

Number Faults With Decimals
Hello outthere

I'm working with vb in Excel

I have a limit at a TextBox which says that a maximum is reached at an input of 200
When putting for example 26.1 in this textbox, my own made msgbox appears and tells me
that 200 is reached. How is this possible ?

When putting only 26 in the textbox everything goes allright.

For those who did'n't understand this, the attachment is enclosed.

Please help me !!!

Display Decimals, Forcing The .00 If A Whole Number
Hi, I'm working on a few variables which I calculate then display on a form, using the round function I display to two decimal places ,my problem is after the calculation if the resulting number is a whole number say, 20, I want to display 20.00 but it always displays 20, is they're any way to force the display to two decimal places even if they are 00

Thanks

Specifying Number Of Decimals In SQL-query Or In Database
I have a database (.mdb) with a table having a field named "money".

The records in this field consists of numbers such as "2.3", "3" and "8.98" etc.

But I want to have the numbers in a format such as "2.30", "3.00" and "8.98", i.e. with two decimal numbers written

Now my SQL-query looks like this:

DataEnvironment.rsCommand.Open "SELECT Money FROM MyTable"

How should i change it?

Alternatively, how do i change the database so it automatically gives two decimal points to its recorded numbers?



Edited by - billiboy on 4/2/2006 4:32:21 AM

A Fast Way To Check If A Number Is A Square Number?
Hi, I'm dealing with pretty big numbers (storing them in Decimal format) and I would like to know what the best way to check if the number is square or not. I could create an array of booleans which stores if each number is square or not but this is impractical as I would have to have the array contain about 100 thousand million million elements.

I thought I could just take the square root of a number and see if the square root was an integer or not. However this does not work with numbers such as:

139411375073318926

Which when stored as a Decimal gets rounded up to the nearest integer and so it appears to be a square number when it's not.

Is there a quick guarenteed way to test if a number is square or not?

Four Decimals From Textbox To Cell Problem, Two Decimals No Problem
I have this textbox where a price should be written...no problem in the old days but now that we have a new currency that obligates us to write FOUR DECIMALS...I cant get the job done anymore...

So the QUESTION : How do I put a price in a textbox and write it to an excel cell so that in the cell four decimals are shown...

Two I can do...but Four seems a problem ...

tried format(...,"0.0000")
       format(...,"0,0000")

but they multiply or divide my input price...so format does not seem to work...unless you want TWO decimals

HELP

nitro

How To Check If A Number Is Xyz?
how to check if number is like xyz
i mean that if my number is:
122312321
it will give me a msgbox

i hope you understood me
tnx Zebro

Check For A Whole Number
How do you Check for a whole number in Visual Basic

Check If Value Is Number
Hi all, an easy one.

I have a combo box, and the contents are 1, 2 and 3. but they are easily changed.

Is there an api to check if it is a number. I want the user to be able to change to another value, as long as it is a number.

cheers
ILMV






Added [RESOLVED] to thread title and green "resolved" checkmark - Hack

Check For A Number
How can I make sure the user enters a number into a field and give them an error message for anything else.

Check If A Number Is Odd?
VB Code:
Private Sub Command1_Click()    Dim number As Long    number = CInt(Rnd * 9999)    Text1.Text = numberEnd Sub


how can i check that the 'number' is odd or even please?

Check If Number Is Odd Or Even
I use this code


VB Code:
Function IsOdd(number as integer) as boolean    Dim tNum as integer    tNum=right(number,1)    if tNum=0 or tNum=2 or tNum=4 or tNum=6 or tNum=8 or tNum=10 then        IsOdd=false    else        IsOdd=true    end ifend function


But are there any better way to check if it's odd or even?, because I need to call it thousand times in each second

Thanks

How To Check If The Value Is Number Or Not
hello all

i attach my program and i dont know how and were to do the thing that check if what the user enter with number value or not
i need it to be with number value

someone told me that its isnumeric or something like that
how to do it

Check For Number
i know this has been asked before i looked at it but took no notice

so how to check if the last char of a string is a number

Check To See If A Cell Is A Number
Visual Basic 6.3
Excel 2003

Hello,

I'm trying to write a code that looks at a cell and checks whether or not it is equal to a couple of texts, lies in a certain numeric range or none of the above. It then needs to flash up a message box saying "Invalid cell value" or something if none of the above are satisfied.

Everything is going fine, except when I try to include the bit about the numeric range. I have a series of Else If statements for the texts, and then the following for the number bit:

ElseIf 0 <= w <= 1 Then

Selection.NumberFormat = "0%"
Selection.Font.Bold = "False"
Selection.Font.ColorIndex = 0

Else

[show the invalid cell entry message]


The trouble is that when I run this, it accepts everything (including text) as being 0 <= w <= 1. (btw w is the cell value). When I set up 'w' as a string, it gives me a mismatch error when the cell being checked contains text, and accepts any number as lying in the range!


Setting up an error handler would be a pain in the ar5e as I would have to set up a lot of them. Is there any way of checking whether or not the cell value is a number or text at the start? Also, does VB deal with % cell entries and does it understand:

If n < X < m Then...

?

Thanks for reading this and any help would be appreciated.

Henry

How Do I Check If A Text Box Is A Number
i have a text box that i want to make a double vareable
how can i cheak that the value in the text box is a number thanks

Check If Variable Is A Number
Is there a function to check if the contents of a variable is a number?

Check If Divisible By A Number
Hi all, just a quick question...

What would be the easiest way to see if an integer is divisible by a number...

e.g.
if 4 is divisible by 2 = true
if 4 is divisible by 3 = false

just wondering if there is a VBfucntion that can help me cover this, or if i will have to do it mathmatically.

if any one has any ideas, they would be much appreciated.


Thank all,

Mojoinst

Check If Number Is Negative
How can I check if the integer is negative or not?

Check A Textbox For A Whole Number Value??
*sigh* I'm stuck.

I've a textbox I'm using for an App with a number keypad on it (like a calculator) and it is for Numbers only. I can't figure out how to make code to check to see if the number that's in it is a whole number or not?

Ex: txtNum.text contains 2400.78

If I press the . key again, I don't want it to insert another .
How can I test the value in the box for a whole number?

My brain is too tired to figure it out.

Help me out here you GooRoozzzz!


Edit: I'm actually Agent077. I found my old login password. I had forgotten it and couldn't get it back, due to the e-mail address for this account doesn't exist anymore.

Check For Prime Number..
how the porgram to check the prime number??
thanks...

Need Help With DO While Loop To Check If Number
Is there a way to do this without using the IsNumberic function?

Write a user defined Boolean function called MyIsNumber that behaves like the IsNumeric function to determine whether or not the textbox text property contains a number.

Use a Do While statement to loop through the characters in the string.

For this program, a number can be positive, negative (sign only in the first or last position) or unsigned, can contain only digits, and may or may not contain one decimal point (in any position). This is not the same definition that Microsoft uses.


Im finally stummped in my VB experience

Check If Number Is Integer?
How to check if number is Integer or not? Simple division calculation result below gives most of the cases floating point number, if this is the case, need to run calculation again.


Code:


Dim nFileHandle As Integer
Dim nShell As String
Const FILENAME = "C:division.txt"
Dim nLoopCount As Integer
Dim divCounter As Integer
divCounter = 0
nFileHandle = FreeFile
Open FILENAME For Output As #nFileHandle
line1:
Dim i As Integer
Randomize
i = Int(Rnd * 99) + 1

Dim j As Integer
Randomize
j = Int(Rnd * 9) + 1

If i < j Then GoTo line1

If i/j <> integer Then GoTo line1 'this doesn't work of course, but how to make it work?

MsgBox ("Division result is: " & i / j)
Print #nFileHandle, Format(i, "00"); "/"; Format(j, "0"); "="; i/j

divCounter = addCounter + 1
If divCounter < txtDiv Then GoTo line1
Close #nFileHandle
nShell = Shell("notepad " & FILENAME, vbNormalFocus)

How To Check Number In Textbox ?
How to check number in text box after val(string) in textbox .thanks

How To Check For Database Number?
hi!,

how do u check for the database data number. I am using "Microsoft Access". This is what i want. I want to check if the database field size is what the user types in and display a message box if number in text box is higher than this. For example if the database field size for name is 20 and i have 21 text in text box then i want to display message box saying "Number is bigge".

how do u do this. Can u send me sample code. If u send me sample code can u plz explain what the code means.

Anyways plz let me know as soon as possible.

Thank you for ur help in this matter.

Check If A Returned Variant Is A Number?
Is there a function to check if a returned variant is a number? Sort of like the isnumber() function in excel spreadsheet

How To Check Whether A Value Obtained Is A Whole Number/integer
Hello,

How do I check whether a value obtained from a procedure is an integer or whole number?

Ways To Check If A Number Is Of Power 2
I'm looking for different ways (efficient ways) to check if a given number is a power of 2. If you have one that you know or have used please post it.

Thanks

Check File Version Number
hi
how do u check a version of a specific file?

Check Number Of Characters In Text Box
Anyone know how to do this? For exampel if i want to have a text box for the time and a submit button, how could i check if the text box is full when the user presses the button? I want to do this because if the user only enters "00:00" it wont work, they have to enter "00:00:00".

Maybe i could do something like this?:


Code:
Private Sub Command1_Click()
If Text1.length = 1 or Text1.length = 2 or text1.length = 3 (and so on) Then
MsgBox "fill the whole text box"
Exit Sub
End If
End sub


Thanks for any help i can get!!

Check If Textbox Text Is A Number?
Hi everyone?

How can know if a textbox text its a valid number?

Thanks.

Database - Check To See If Card Number Is Already Being Used
i want to see if the database already has the gift card number, and if it does, give an error. if no, write the new gift card info to the databse

here is the code i am using:

VB Code:
'Register a new Gift Card    'On Error GoTo message    'Connect to database    strCNString = "Data Source=" & App.Path & "DATABASE.mdb"    cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"    cn.ConnectionString = strCNString    cn.Properties("Jet OLEDB:Database Password") = ""    cn.Open    'Open recordsource    rs.Open "Select * from GiftCards", cn, adOpenDynamic, adLockOptimistic    'Ready recordsource for adding username and password    rs.AddNew    'Assign test boxes on form to their appropriate field in the recordsource    rs.Fields("CardAmount").Value = txtCardAmount.Text    rs.Fields("CardNumber").Value = txtCardNumber.Text    rs.Fields("Date").Value = Format(Date, "MM.DD.YYYY")    'Save record    rs.Update    'Close connections to database    rs.Close    cn.Close

How To Check If An Input In Textbox Is A Number ?
how to check if an input in textbox is a number ?

Check Random Number Code
I found this code to generate a random ID. But I'm not up on all the math biz in VB and wondered if someone more learned then I could tell me whats going on in the code and if the code would or could generate the same number twice?


VB Code:
'////// TIMEDATE MARKER //////////////////Function generateID()   Randomize     generateID = 1 & CInt(Rnd() * 10000)End Function

How To Check That A Number Is Negative Or Decimal???
i need to tell if the number in my textbox is a decimal or negative
how to change it first to a numeric since VB takes it as a string???
then do i use CDec?
ans for the negative number check?
pls help
thx!

Need To Check Number In A Temporary Field.
Hi everyone (first time poster)

I have a database in access and I am using access VBA.

heres my code

Code:


SQLStg = "SELECT Count(DriverClass.ClassID) AS CountClass"
SQLStg = SQLStg & " FROM DriverClass "
SQLStg = SQLStg & " WHERE DriverID = " & Me.DriverID
Set rec = db.OpenRecordset(SQLStg)
If rec.EOF Then
MsgBox "Warning, Driver must be entered in at least one class", , "Warning"
Else
MsgBox "Your good", , "A-OK"
End If



it is the if statement I am having trouble with. I want to write code that will see if the driver is in at least one class (count >0 ). The way the code is now, rec will always = 1 because the result of count needs to be put in a field.

I hope I was able to explain this. I am still quite new to Acess VBA. Thanks for your input and help.

Check If The Variable Is An Integer Number
How can I check If the result of calculation is an integer number?

Thank you for the help.

How To Check Number Of Difference Character In Data?
Dear all expert programmer,

I have data belew.
tmpstr = "abcd,bcdf,abcdef" <-- data is unlimit and separate by comma

I want to find number of difference character.
If I input 1 : result is "abcd,bcdf" because they have one difference character.

If I input 2 : result "abcd, abcdef" and "bcdf, abcdef" because they have two diffence character.

Please tell me how to code it.

Thank you for all answer.

Check Array Values For Highest Number
I have an array with 4 slots

Dim x(3)

I need to check the array to make sure at least 1 of the numbers in it is higher than all other numbers.

What is the most efficient way to do this?

Unable To Check Cell Value And Assign Number To Variable
Is there anything wrong with this?

I am trying to check if a box has a fill colour and if it does, add 1 onto the variable


Code:
Sub CollateTicks()

LastRow = LastRowInColumn(3)

Dim TicksWhite As Double
Dim TicksAmber As Double
Dim TicksGreen As Double
Dim TicksRed As Double

TicksWhite = 0
TicksAmber = 0
TicksGreen = 0
TicksRed = 0

For x = 8 To LastRow

Sheets("Critical Document Matrix").Select
Range("AA" & x).Select
If Selection.Interior.ColorIndex = 3 Then
TicksRed = TicksRed + 1

If Selection.Interior.ColorIndex = 44 Then
TicksAmber = TicksAmber + 1

If Selection.Interior.ColorIndex = 43 Then
TicksGreen = TicksGreen + 1

If Selection.Interior.ColorIndex = xlNone Then
TicksWhite = TicksWhite + 1

End If
End If
End If
End If

Sheets("Critical Document Matrix").Select
Range("AB" & x).Select
If Selection.Interior.ColorIndex = 3 Then
TicksRed = TicksRed + 1

If Selection.Interior.ColorIndex = 44 Then
TicksAmber = TicksAmber + 1

If Selection.Interior.ColorIndex = 43 Then
TicksGreen = TicksGreen + 1

If Selection.Interior.ColorIndex = xlNone Then
TicksWhite = TicksWhite + 1

End If
End If
End If
End If

Sheets("Critical Document Matrix").Select
Range("AC" & x).Select
If Selection.Interior.ColorIndex = 3 Then
TicksRed = TicksRed + 1

If Selection.Interior.ColorIndex = 44 Then
TicksAmber = TicksAmber + 1

If Selection.Interior.ColorIndex = 43 Then
TicksGreen = TicksGreen + 1

If Selection.Interior.ColorIndex = xlNone Then
TicksWhite = TicksWhite + 1

End If
End If
End If
End If

Sheets("Critical Document Matrix").Select
Range("AD" & x).Select
If Selection.Interior.ColorIndex = 3 Then
TicksRed = TicksRed + 1

If Selection.Interior.ColorIndex = 44 Then
TicksAmber = TicksAmber + 1

If Selection.Interior.ColorIndex = 43 Then
TicksGreen = TicksGreen + 1

If Selection.Interior.ColorIndex = xlNone Then
TicksWhite = TicksWhite + 1

End If
End If
End If
End If

Sheets("Critical Document Matrix").Select
Range("AE" & x).Select
If Selection.Interior.ColorIndex = 3 Then
TicksRed = TicksRed + 1

If Selection.Interior.ColorIndex = 44 Then
TicksAmber = TicksAmber + 1

If Selection.Interior.ColorIndex = 43 Then
TicksGreen = TicksGreen + 1

If Selection.Interior.ColorIndex = xlNone Then
TicksWhite = TicksWhite + 1

End If
End If
End If
End If

Sheets("Critical Document Matrix").Select
Range("AF" & x).Select
If Selection.Interior.ColorIndex = 3 Then
TicksRed = TicksRed + 1

If Selection.Interior.ColorIndex = 44 Then
TicksAmber = TicksAmber + 1

If Selection.Interior.ColorIndex = 43 Then
TicksGreen = TicksGreen + 1

If Selection.Interior.ColorIndex = xlNone Then
TicksWhite = TicksWhite + 1

End If
End If
End If
End If

Sheets("Critical Document Matrix").Select
Range("AG" & x).Select
If Selection.Interior.ColorIndex = 3 Then
TicksRed = TicksRed + 1

If Selection.Interior.ColorIndex = 44 Then
TicksAmber = TicksAmber + 1

If Selection.Interior.ColorIndex = 43 Then
TicksGreen = TicksGreen + 1

If Selection.Interior.ColorIndex = xlNone Then
TicksWhite = TicksWhite + 1

End If
End If
End If
End If

Next x

Sheets("Maturity Dashboard").Select
Range("C28").Select
ActiveCell.FormulaR1C1 = TicksWhite

Sheets("Maturity Dashboard").Select
Range("C29").Select
ActiveCell.FormulaR1C1 = TicksAmber

Sheets("Maturity Dashboard").Select
Range("C30").Select
ActiveCell.FormulaR1C1 = TicksRed

Sheets("Maturity Dashboard").Select
Range("C31").Select
ActiveCell.FormulaR1C1 = TicksGreen

End Sub

Copyright 2005-08 www.BigResource.com, All rights reserved