Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour aussi,
Dans une requête : Champ calculé :PENTIERE: Ent([LeChampMonetaire]) Champ calculé :PDECIMALE: [LeChampMonetaire]-[pentiere]
En VBA: Sub zozo() Dim LeChamp As Double, pentiere As Long, pdecimale As Single LeChamp = 123456.98 pentiere = Int(LeChamp) pdecimale = LeChamp - pentiere Debug.Print pentiere, pdecimale End Sub
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
je voudrais séparer la partie entière (avant la virgule) et la partie décimale (après la virgule) d'un monbre réel (prix en euros).
Bonjour aussi,
Dans une requête :
Champ calculé :PENTIERE: Ent([LeChampMonetaire])
Champ calculé :PDECIMALE: [LeChampMonetaire]-[pentiere]
En VBA:
Sub zozo()
Dim LeChamp As Double, pentiere As Long, pdecimale As Single
LeChamp = 123456.98
pentiere = Int(LeChamp)
pdecimale = LeChamp - pentiere
Debug.Print pentiere, pdecimale
End Sub
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
je voudrais séparer la partie entière (avant la virgule) et la partie
décimale (après la virgule) d'un monbre réel (prix en euros).
Dans une requête : Champ calculé :PENTIERE: Ent([LeChampMonetaire]) Champ calculé :PDECIMALE: [LeChampMonetaire]-[pentiere]
En VBA: Sub zozo() Dim LeChamp As Double, pentiere As Long, pdecimale As Single LeChamp = 123456.98 pentiere = Int(LeChamp) pdecimale = LeChamp - pentiere Debug.Print pentiere, pdecimale End Sub
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
je voudrais séparer la partie entière (avant la virgule) et la partie décimale (après la virgule) d'un monbre réel (prix en euros).