home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / Num2Dolr.inc < prev    next >
Text File  |  1996-10-22  |  998b  |  42 lines
  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2.  FUNCTION Num2Dollars (ByVal Num)
  3.  
  4.    intDollars = int(Num)
  5.    intCents = CInt((Num - intDollars) * 100)
  6.  
  7.  ' Formatting the cents
  8.    If intCents = 0 Then
  9.      strCents = "00"
  10.    ElseIf intCents < 10 Then
  11.      strCents = "0" & intCents
  12.    Else
  13.      strCents = CStr(intCents)
  14.    End If
  15.  
  16.  ' Initializing Dollars
  17.    strDollars = ""
  18.  
  19.  ' Determine the dollars
  20.    While len(CStr(intDollars)) > 3
  21.      intTemp = intDollars mod 1000
  22.  
  23.      If intTemp = 0 Then
  24.     strDollars = "000" & strDollars
  25.      ElseIf intTemp < 10 Then
  26.     strDollars = "00" & CStr(intTemp) & strDollars
  27.      ElseIf intTemp < 100 Then
  28.     strDollars = "0" & CStr(intTemp) & strDollars
  29.      Else
  30.     strDollars = CStr(intTemp) & strDollars
  31.      End If
  32.  
  33.      strDollars = "," & strDollars
  34.      intDollars = (intDollars - intTemp) \ 1000
  35.    Wend
  36.  
  37.    strDollars = CStr(intDollars) & strDollars
  38.  
  39.    Num2Dollars = "$" & strDollars & "." & strCents
  40.  
  41.  END FUNCTION
  42. </SCRIPT>