Gestion des extensions selon le size

Télécharger le projet
Commenter

Description

Fonction qui vérifie un nombre et le traduit selon le poids. Ex.: 1115798 donnera 1.1 MB

Permet de mettre un size sans ce soucier des extension et faire une gestion de ceux si !

Source / Exemple : 


sub ValueSizeImage(SizeImage, Extension)
                dim SizeTotalSelect
	if SizeImage <> "" then 
		if SizeImage = 0 or SizeImage < 0 then
			SizeTotalSelect = ""
			ExtensionValueSelect = "NaN"
					
		elseif SizeImage > 0 or SizeImage < 1048576 then
			SizeTotalSelect = (SizeImage / 1024)
			if SizeTotalSelect < 999 then 
				ExtensionValueSelect = "KB"
			else
				SizeTotalSelect = (SizeImage / 1048576)
				if SizeTotalSelect > 999 then
					SizeTotalSelect = (SizeTotalSelect / 1024)
					ExtensionValueSelect = "GB"
				else
					ExtensionValueSelect = "MB"
				end if
			end if
						
		elseif SizeImage => 1048576 or SizeImage < 1073741824 then
			SizeTotalSelect = (SizeImage / 1073741824)
			ExtensionValueSelect = "GB"
		
		elseif SizeImage => 1073741824 then
			SizeTotalSelect = (SizeImage / 1099511627776)
			ExtensionValueSelect = "TB"
				
		else
			SizeTotalSelect = ""
			ExtensionValueSelect = "NaN"
		end if
				
		if SizeTotalSelect <> "" then
			SizeTotalSelect = FormatNumber(SizeTotalSelect, 1)
			SizeImage = SizeTotalSelect
			Extension = ExtensionValueSelect 
		end if
				
	else
		SizeTotalSelect = 0
		ExtensionValueSelect = "B"
	end if		
end sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Jackboy)