What is the code for currency in Visual Basic?
339346
to declare currency variables in VB6, it's like:\nDim varName As Currency\n\nThere is no currency data type in VB.NET (http://www.ondotnet.com/pub/a/dotnet/2001/07/30/vb7.html?page=2/  )
522800
The value stopped changing at 3.141384 but\nI killed it at cnt= 148337\nOf course, to run it I converted it to GW Basic \nsince I don't have the version of basic this is for.  here it is with the minor changes.\n5 CLS\n6 KEY OFF\n10 A=0\n20 CNT=0\n30 C=1\n40 A=A+(1/C-1/(2+C))\n50 C=C+4\n60 CNT=CNT+1\n70 LOCATE 2,1\n75 PRINT 4*A,"cnt="CNT\n80 IF INKEY$="" GOTO 40
308129
The first link is an online currency converter web site.\nThe second link is to a free converter (called "Universal converter") that you can download and use on your pc with no installation required.
1099552
x' € S - {x}\nworks fine...\n( replace the € by the usual "is an element of" symbol )
502427
Currency Converter\nhttp://www.xe.com/ucc/\n\nhttp://www.digitaldutch.com/unitconverter/\nUnit converter\n\nDog years\nhttp://www.onlineconversion.com/dogyears.htm
524790
currencyconvertor.com
650282
It's like vashfish said.  You use KeyPress or KeyDown and then you see in the sub you use this:\n\nif Not IsNumeric(<textboxname>.text) then\n<textboxname>.text = <textboxname>.text.substring(0, <textboxname>.length - 1)\nMessageBox.Show("Error message")\nend if\n\n(replace the 3 dots with a comma, Y! won't let you use a comma like that, for some reason...)
551038
http://abstractvb.com/code.asp?F=1&P=1&A=1032
804254
dollar on a string\n\nlol
204091
you can get a free version of visual basic here\n\nhttp://msdn.microsoft.com/vstudio/express/default.aspx
747484
Press Alt+1+5+6 (All numbers on the number pad, with Num Lock turned on). The result is this: £
273902
Here are functions to go both ways from my Calculator program in VB6. You'll have to convert it into C++, but that shouldn't be too hard. E-mail me later if you can'c figure out how to convert it to C++...\n\n' sRomanStr = GetDecRomanStr( 234 )\nPublic Function GetDecRomanStr(ByVal xDecimal As Double) As String\n    Dim iThousands, iHundreds, iTens, iOnes As Integer\n    Dim sReturnStr As String\n    Dim sHunds(9) As String\n    Dim sTens(9) As String\n    Dim sOnes(9) As String\n    \n    sHunds(1) = "C"\n    sHunds(2) = "CC"\n    sHunds(3) = "CCC"\n    sHunds(4) = "CD"\n    sHunds(5) = "D"\n    sHunds(6) = "DC"\n    sHunds(7) = "DCC"\n    sHunds(8) = "DCCC"\n    sHunds(9) = "CM"\n    sTens(1) = "X"\n    sTens(2) = "XX"\n    sTens(3) = "XXX"\n    sTens(4) = "XL"\n    sTens(5) = "L"\n    sTens(6) = "LX"\n    sTens(7) = "LXX"\n    sTens(8) = "LXXX"\n    sTens(9) = "XC"\n    sOnes(1) = "I"\n    sOnes(2) = "II"\n    sOnes(3) = "III"\n    sOnes(4) = "IV"\n    sOnes(5) = "V"\n    sOnes(6) = "VI"\n    sOnes(7) = "VII"\n    sOnes(8) = "VIII"\n    sOnes(9) = "IX"\n    \n    iThousands = (xDecimal - (xDecimal Mod 1000)) / 1000\n    xDecimal = xDecimal Mod 1000\n    iHundreds = (xDecimal - (xDecimal Mod 100)) / 100\n    xDecimal = xDecimal Mod 100\n    iTens = (xDecimal - (xDecimal Mod 10)) / 10\n    xDecimal = xDecimal Mod 10\n    iOnes = xDecimal\n    \n    sReturnStr = ""\n    For iCount = 1 To iThousands\n        sReturnStr = sReturnStr + "M"\n    Next\n    If iHundreds > 0 Then\n        sReturnStr = sReturnStr + sHunds(iHundreds)\n    End If\n    If iTens > 0 Then\n        sReturnStr = sReturnStr + sTens(iTens)\n    End If\n    If iOnes > 0 Then\n        sReturnStr = sReturnStr + sOnes(iOnes)\n    End If\n    GetDecRomanStr = sReturnStr\nEnd Function\n\n' xDecimal = GetRomanDecNum( sRomanStr )\nPublic Function GetRomanDecNum(ByVal sRomanStr As String) As Double\n    Dim xDecimal As Double\n    Dim sStr As String\n        \n    sStr = Left(sRomanStr, 1)\n    While sStr = "M"\n        xDecimal = xDecimal + 1000\n        sRomanStr = Right(sRomanStr, Len(sRomanStr) - 1)\n        sStr = Left(sRomanStr, 1)\n    Wend\n    \n    iHunds = 0\n    If Left(sRomanStr, 2) = "CM" Then\n        iHunds = 9\n        sRomanStr = Right(sRomanStr, Len(sRomanStr) - 2)\n    Else\n        If Left(sRomanStr, 1) = "D" Then\n            iHunds = 5\n            sRomanStr = Right(sRomanStr, Len(sRomanStr) - 1)\n        Else\n            If Left(sRomanStr, 2) = "CD" Then\n                iHunds = 4\n                sRomanStr = Right(sRomanStr, Len(sRomanStr) - 2)\n            End If\n        End If\n    End If\n    If iHunds = 0 Or iHunds = 5 Then\n        sStr = Left(sRomanStr, 1)\n        While sStr = "C"\n            iHunds = iHunds + 1\n            sRomanStr = Right(sRomanStr, Len(sRomanStr) - 1)\n            sStr = Left(sRomanStr, 1)\n        Wend\n    End If\n    xDecimal = xDecimal + iHunds * 100\n    \n    iTens = 0\n    If Left(sRomanStr, 2) = "XC" Then\n        iTens = 9\n        sRomanStr = Right(sRomanStr, Len(sRomanStr) - 2)\n    Else\n        If Left(sRomanStr, 1) = "L" Then\n            iTens = 5\n            sRomanStr = Right(sRomanStr, Len(sRomanStr) - 1)\n        Else\n            If Left(sRomanStr, 2) = "XL" Then\n                iTens = 4\n                sRomanStr = Right(sRomanStr, Len(sRomanStr) - 2)\n            End If\n        End If\n    End If\n    If iTens = 0 Or iTens = 5 Then\n        sStr = Left(sRomanStr, 1)\n        While sStr = "X"\n            iTens = iTens + 1\n            sRomanStr = Right(sRomanStr, Len(sRomanStr) - 1)\n
6356
You can perform currency conversions at:\n\nhttp://www.xe.com/ucc/\n\n1 US dollar = 7.94620 Swedish Kronors
105069
Try yahoo Currency Convertor \nhttp://finance.yahoo.com/currency?u
362816
You could try and make a public const in the general declartions area ( I think its still called that ) , something like so\n\nPublic const convert = 2.54\n\nIm not sure if it will require quotes around it or not and you may have to also assign it afterwards ( Not sure on that either, I havent really used vb.net much.\n\nSo it may be \n\nPublic const convert\n\nconvert = 2.54\n\nor it could just be a simple matter of putting quotes around it ie\n\nPublic const convert = "2.54"\n\nLet me know what works :)
383056
what kind of program are you doing?? all i know is visual basic stuff
770914
Well it really depends on what program / operating system your using.  In DOS use ASCII character set to do it.  Hold down the ALT key and enter the ASCII code (for a heart it would be 003).  A little more tricky if you're in Windows.  It depends on the program you're using.  Many mail clients, IM programs, and forum pages have their own way of doing it. Here's a link that kinda explains it. \n\nhttp://www.jimprice.com/jim-asc.htm\n\nScroll down to the ASCII Q&A section and look at the questions about using the keyboard to generate the characters.  Here's an excerpt:\n\nQ: How do I generate extended ASCII characters from the keyboard? \nA: DOS will allow you to enter extended ASCII characters into many programs. Here's how you do it:\n\nMake sure NumLock is enabled on your keyboard. \nPress and hold the ALT key. \nWhile holding down the ALT key, enter the 3-digit decimal code for the extended ASCII character you want to generate. \nRelease the ALT key. \n\nQ: Does this work in Windows? \nA: A better way to enter special symbols in Windows applications (such as Word), is to take advantage of the symbols in the fonts provided by Windows. For example, in Word, use the following steps: \n\nClick on "Insert" (in the menu at the top of the page) \nFrom the drop-down menu, select "Symbol". A chart of special symbols will appear \nFrom the chart, you can select a symbol to insert into your document by highlighting the symbol, and clicking on the word "Insert" at the bottom of the chart. \n\nHere's a link to the complete ASCII code set:\nhttp://www.jimprice.com/ascii-0-127.gif\n\nHope this helps.