Help me pleaaaase : garder uniquement les décimales sous VB

Help me pleaaaase : garder uniquement les décimales sous VB - Programmation

Marsh Posté le 26-03-2002 à 04:57:04    

Salut, c'est pour un tp de fac.  
Je cherche une fonction ou une méthode ( que je n'ai malheureusement trouvé nul part et que je ne connais pas vu que je débute :sweat:  ) qui me permettrai de ne garder que les décimales d'une valeur.  
 
Pourquoi ? me demanderiez vous :
J'ai des coordonnées géographiques en valeurs décimales que je veus en degres , minutes, secondes.
ex : 170673.1
=> 170673.1 / 3600 = 47.40919444
=> 0.40919444 * 60 = 24.5516666
=> 0.5516666 * 60 = 33
 
soit : position à 47 degres 24 minutes 33 secondes  :ouch:


---------------
Pour qu'il y ait le moins de mécontents possibles, il faut toujours taper sur les mêmes ...
Reply

Marsh Posté le 26-03-2002 à 04:57:04   

Reply

Marsh Posté le 26-03-2002 à 08:49:30    

A "vue de nez", si on fait int(valeur_avec_decimales), les décimales ne passeront pas. Faut juste vérifier le signe si c'est négatif, voir comment ça s'ajuste (défaut, excès).

Reply

Marsh Posté le 26-03-2002 à 09:54:23    

en math :
valeur - partie_entière(valeur)=partie_décimale pour les nombres positifs
partie_entière(valeur) - valeur + 1 = partie_décimale pour les nombres négatifs

Reply

Marsh Posté le 26-03-2002 à 10:54:39    

prend le nombre et tu soustrait la partie entière
pour avoir la partie entière du nombre utilise la fonction:
variable=Fix(nombre)
ou sinon convertit le nombre en chaîne de caractère et utilise les diverse possibilité de traitement de chaîne

Reply

Marsh Posté le 26-03-2002 à 15:32:12    

A mon avis, le plus propre est quand même d'utiliser les opérateurs "\" (quotien d'une division) et "Mod" (reste de la division).
Ce qui donne dans ton cas :
 
Degres = valeurDecimale \ 3600
Minutes = (valeurDecimale Mod 3600) \ 60
Secondes = (valeurDecimale Mod 3600) Mod 60


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 26-03-2002 à 15:34:56    

merci tt le monde :hello:


---------------
Pour qu'il y ait le moins de mécontents possibles, il faut toujours taper sur les mêmes ...
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed