Startseite › ASP_Volume2 › Remote MTS Administration
Advertisement
ASP_Volume2 Complete Applications #37341

Remote MTS Administration

Theo Kandiliotis
★★★★★
4.8 · Downloads: 2,341

This is a utility that allows you to perform simple administration tasks on the MTS packages of your computer or any remote computer connected to the network. The program requires the VB6 Service Pack 3 version of the following files: COMDLG32.OCX MSCOMCTL.OCX and also references the MTSAdmin library MTXADMIN.DLL that shoud normally reside in the MTS subfolder of your System folder.

AI

KI-Zusammenfassung: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Quellcode
original-source 
Upload
'Returns a string from a number to be displayed in a $xx.xx format
Public Function FormatMoney(sString)
	'change cRound to Normal, Up, Down
	Const cRound = "Normal"
	
	If InStr(sString, ".") Then
		'Adding extra zero's at the end for error correction (User passes "23." and it
		'	will still display correctly) 
		FormatMoney = sString & "000"
		Select Case cRound
			Case "Normal"
				If Mid(FormatMoney, InStr(FormatMoney, ".") + 3) > 4 Then
					FormatMoney = Left(FormatMoney, InStr(FormatMoney, ".") + 1) & Fix(Mid(FormatMoney, InStr(FormatMoney, ".") + 2, 1) + 1)
				End If
			Case "Up"
				If Mid(FormatMoney, InStr(FormatMoney, ".") + 3) > 0 Then
					FormatMoney = Left(FormatMoney, InStr(FormatMoney, ".") + 1) & Fix(Mid(FormatMoney, InStr(FormatMoney, ".") + 2, 1) + 1)
				End If
		End Select
		FormatMoney = Left(FormatMoney, InStr(FormatMoney, ".") + 2)
	Else: FormatMoney = sString & ".00" 'Appending cents to the dollar
	End If
	
	FormatMoney = "$" & FormatMoney	'Appending dollar sign to beginning
End Function
Originalkommentare (3)
Wiederhergestellt von der Wayback Machine