Problème d'affichage d'un séparateur de Miliers
Posté : dim. 29 janv. 2017 17:48
Bonjour,
Je travaille activement sur un projet de management des patients dans un cabinet médical et ... pour l'entrée de la date de naissance , j'ai voulu installer une petite fioriture : un UpDown pour incrémenter ou décrémenter la valeur , Seulement voila , Ce petit coquinou met un Séparateur de Milliers (1 956 par exemple) même avec l'argument $UDS_NOTHOUSANDS et la bibliothèque incluse (évidement)
Je m'en remet a vous , car , c'est très important de ne pas avoir se séparateur , car après j'utilise la valeur brut pour calculer l'age avec :
Merci D'avance , et je ne doute pas de votre incommensurable rapidité
Je travaille activement sur un projet de management des patients dans un cabinet médical et ... pour l'entrée de la date de naissance , j'ai voulu installer une petite fioriture : un UpDown pour incrémenter ou décrémenter la valeur , Seulement voila , Ce petit coquinou met un Séparateur de Milliers (1 956 par exemple) même avec l'argument $UDS_NOTHOUSANDS et la bibliothèque incluse (évidement)
Je m'en remet a vous , car , c'est très important de ne pas avoir se séparateur , car après j'utilise la valeur brut pour calculer l'age avec :
GUICtrlSetData($Label4, _DateDiff('y', $yBirthdate, _DateStandardToCalcDate(_NowDate())))
Func _DateStandardToCalcDate($sDate)
If Not StringRegExp($sDate, "^\d{2}\/\d{2}\/\d{4}$") Then Return SetError(1, 0)
Local $ArrD = StringSplit($sDate, '/')
If $ArrD[0] <> 3 Then Return SetError(2, 0)
Return $ArrD[3] & '/' & $ArrD[2] & '/' & $ArrD[1]
EndFunc
Func _DateStandardToCalcDate($sDate)
If Not StringRegExp($sDate, "^\d{2}\/\d{2}\/\d{4}$") Then Return SetError(1, 0)
Local $ArrD = StringSplit($sDate, '/')
If $ArrD[0] <> 3 Then Return SetError(2, 0)
Return $ArrD[3] & '/' & $ArrD[2] & '/' & $ArrD[1]
EndFunc
