|
Not quite...
I'm assuming you have a TextBox on your Form called costofroom. I'm also assuming that you want the 'baserate' to be displayed in the TextBox and not 'amount' like in my example code.
dim baserate as double = 84.5
costofroom.text = Format(baserate,"Currency")
RageInTheMachine9532
|
|
|
|
|
sorry about that.. i tried.
ok, I have put that in.. have not tried one more error.
if I have $0.00 dollars as the amount for a box additonalguestcharge.text
I put...
additionalguesstcharge.text = format(0,"currency")
getting an error..but of course.
now what.
By the way thanks for all the input.
Thank you,
ibok23
|
|
|
|
|
Try this...
Dim amount as double
amount = 10.5
Console.Writeline(amount.ToString("C"))
Free your mind...
|
|
|
|
|
maybe try
Console.Writeline(Format(0,"$#,###0.00"))
i havent tried this but i remember i used something just like it before, i forget exactly what it was. mess around with that if it gives an error. itll b just around the corner.
------------------------
Jordan.
III
|
|
|
|
|
First, what's the error?
RageInTheMachine9532
|
|
|
|
|
i am not sure. I just now ran the problem and I received a yellow arrow at one of my endifs.
Not sure what to do.
Thank you,
ibok23
|
|
|
|
|
I finally got it done. Now i am haveing problems with my total.
I am trying to add three boxes together. I love math and I know what to do. I put
total.text = ((subtotal.text) + (additionalguestcharge.text) + (rollbed.text))
in my answer it gives me
$209.00$5.00$10.00
instead of adding it up.
This is weird.
Thank you,
ibok23
|
|
|
|
|
I have to leave, be back in one hour if I need to. Thanks again.
Thank you,
ibok23
|
|
|
|
|
ibok23 wrote:
total.text = ((subtotal.text) + (additionalguestcharge.text) + (rollbed.text))
That's because you adding String of characters together, not number values. What's going to make you redesign your code is the fact the the numbers you see in the TextBoxs can't be used in calculations. TextBoxs are lousy places to keep number values. You should only use them to display results.
Since I can't see all of your code, I can't tell you exactly what you have to do to make things right, but I can tell you you need to keep the value you use in calculations in numeric type variables. You also need to rename your TextBoxes so that their names don't conflict with any other variable names. I would suggest renaming them with a 'txt' prefex, like this:
total becomes txtTotal
subtotal becomes txtSubTotal
additionalguestcharge becomes txtAdditionalGuestCharge
...
Now, keep your numeric values in variables something like this:
Dim subtotal As Double
Dim additionalguestcharge as Double
Dim rollbed as Double
Dim total as Double
total = subtotal + additionalguestcharge + rollbed
txtTotal.Text = Format(total, "C")
Get the idea?
RageInTheMachine9532
|
|
|
|
|
Thanks - I see what I was doing wrong, I don't understand it all the way, but I do see.
Now one more question if you don't mind
How do you get to set a date picker back to the current date when you push the clear button?
I want them to be able when they push the clear button to default back to the current date.
|
|
|
|
|
Anonymous wrote:
I want them to be able when they push the clear button to default back to the current date.
Easy enough ... just set the Value property of the DateTimePicker control to the current Date using Now(). Put this code in the handler for the Clear button click:
dtpArrival.Value = Now()
dtpCheckout.Value = Now()
RageInTheMachine9532
|
|
|
|
|
when adding text in labels, textboxes, etc etc, you must convert them to a number first. they are concatenating (putting together) the text, with what you are doing right now. do something like:
total.text = CInt(CInt(subtotal.text) + CInt(additionalguestcharge.text) + CInt(rollbed.text))
------------------------
Jordan.
III
|
|
|
|
|
I am having to write a code to figure out how many days are from the starting of a project and the ending of the project. I am using the date picker and I have the day of the week, Month, day and year on both the starting and ending. How do I write a code to figure out how many days are in between?
Thank you,
ibok23
|
|
|
|
|
VB.NET Example
Dim FirstDate As Date
Dim SecondDate As Date
Dim days As Integer
Dim hours As Integer
Dim minutes As Integer
'Your DatePicker control would capture these dates
FirstDate = Now()
'I add 3 days just for example sake
SecondDate = DateAdd(DateInterval.Day, 3, FirstDate)
'Use datediff to calculate in days, then hours, then minutes
days = DateDiff(DateInterval.Day, FirstDate, SecondDate)
hours = DateDiff(DateInterval.Hour, FirstDate, SecondDate)
minutes = DateDiff(DateInterval.Minute, FirstDate, SecondDate)
Hope this helps
Gregory J Lynch
Hack
|
|
|
|
|
This does help. If I only want to find out about how many days do I still need to do the minute and hour (Dim)?
Dim hours As Integer
Dim minutes As Integer
hours = DateDiff(DateInterval.Hour, FirstDate, SecondDate)
minutes = DateDiff(DateInterval.Minute, FirstDate, SecondDate)
Do I type in this part at the bottom or does the date picker automatically do it?
'Your DatePicker control would capture these dates
FirstDate = Now()
'I add 3 days just for example sake
SecondDate = DateAdd(DateInterval.Day, 3, FirstDate)
Thank you,
ibok23
|
|
|
|
|
ibok23 wrote:
This does help. If I only want to find out about how many days do I still need to do the minute and hour (Dim)?
Dim hours As Integer
Dim minutes As Integer
No. If you don't need 'em, don't put 'em in.
ibok23 wrote:
Do I type in this part at the bottom or does the date picker automatically do it?
'Your DatePicker control would capture these dates
FirstDate = Now()
'I add 3 days just for example sake
SecondDate = DateAdd(DateInterval.Day, 3, FirstDate)
You have to supply the code that gets the dates from the date picker's and puts them in variables to use in this calculation.
RageInTheMachine9532
|
|
|
|
|
This is what I wrote, it still doesn't work but maybe I am close.
numberofdays.text = datediff(dateinterval.day, dtparrival, dtpcheckout)
dtparrival is my date picker for arrival
dtpcheckout is my date picker for checkout
numberofdays.text shows how many days they are there.
What am i doing wrong?
Thank you,
ibok23
|
|
|
|
|
ibok23 wrote:
numberofdays.text = datediff(dateinterval.day, dtparrival, dtpcheckout)
You're about half way there. The last two parameters you passed in are the references for the DateTimePicker controls themselves, not their values. Make the following change to get at the Value's in your controls:
numberofdays.Text = DateDiff(DateInterval.Day, dtparrival.Value, dtpcheckout.Value)
RageInTheMachine9532
|
|
|
|
|
ooookkkk,
I see.
I am still working on the currency part and then I'll debug it to see if it works. Hopefully. One more question if you don't mind.
numberofdays.text = (will be a number, correct)
ok what if I need to charge somebody $5.00 for every number of days
I wrote this and it didn't work
dim rollawaybed as double = 5
rollawaybedcharge.text = (rollawaybed * numberofdays.text)
then I have to put about the currency, but I am getting that this will not work.
Thank you,
ibok23
|
|
|
|
|
ibok23 wrote:
dim rollawaybed as double = 5
rollawaybedcharge.text = (rollawaybed * numberofdays.text)
Well, you're trying to multiply a Double (number) by a String (.Text). You can't do that. But what you can do is convert the String TO a number first:
Dim rollawaybed As Double = 5
Dim newcharge As Double = rollawaybed * Val(numberofdays.Text)
rollawaybedcharge.Text = Format(newcharge, "C")
Val will convert a string of numbers, like 5 or 5000 (NO PUNCTUATION!), into a actual value that can be used in calculations.
RageInTheMachine9532
|
|
|
|
|
I would like to have a datagrid that automatically 'Refreshes' the dataset every time a new record is entered into the sql database. When I run the update on the dataset, fill the datagrid and use the expand statement, it does not fill out the rows.
Any help / suggestions to achieving this is appreciated.
Thanks!
Bob Gronenthal
|
|
|
|
|
Can you show us your code piece ?
-----------------------------------------------------------
"I think there is a world market for maybe 5 computers"
Thomas Watson, chairman of IBM, 1943
"There is no reason anyone would want a computer in their home"
Ken Olson, chairman & founder of Digital equipment, 1977
"This 'telephone' has too many shortcomings to be seriously considered as a means of communication. The device is ingerently of no value to us."
Western Union internal memo, 1876
"640 K ought to be enough for anybody."
Bill Gates, 1981
"Computers in the future may
|
|
|
|
|
This is the code as it stands right now...
'Updates the current dataset the datagrid is using
Me.SqlDAFire_Cur.Update(Me.DsFire_Cur1)
Me.SqlDAFire_Cur.Fill(Me.DsFire_Cur1)
'Rebind the datasource to the datagrid
Me.DataGridFire.DataSource = Nothing
Me.DataGridFire.DataSource = Me.DsFire_Cur1
Me.DataGridFire.Expand(-1)
It does not expand the entire datagrid with the records though and since I would like this automated I was thinking of putting this into a timer event.
Thanks,
Bob
|
|
|
|
|
Anybody know how to convert a colour picked from a colour picker or whatever into an HTML colour code?
Much Obliged!
|
|
|
|
|
colors are represented in long
so try this (VB6)
htmlColor = "#" & Hex(Color)
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
