Même si, à première vue, il semble impossible de calculer le taux d'alcoolémie réel à cause de tous les facteurs (médication, humeur, fatigue, allergie,...), on peut malgré tout effectuer le calcul théorie de celui-ci selon la formule suivante:

Formule (F) = (l0 g x Nombre de verres) / Poids en kilogrammes x Coefficient

Enfin, supposons que le coefficient est le suivant en fonction des sexes:

Homme	Femme
0,70	0,60

A l'aide du code source DarkBASIC suivant, vous trouverez la réponse que vous souhaitez:

PRINT "Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:" PRINT "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: ";CalculDecilitresWhisky(Livre2Kilogramme(150.0),"H") PRINT "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: ";CalculDecilitresVin(Livre2Kilogramme(150.0),"H") PRINT "Nombre de verre (décilitres) de Bière pour un homme de 150 livres: ";CalculDecilitresBiere(Livre2Kilogramme(150.0),"H") WAIT KEY FUNCTION Livre2Kilogramme(livre#)    ReturnValue#=livre# * 0.4536 ENDFUNCTION ReturnValue# FUNCTION FormuleAlcool(pd#,sexe$)     LOCAL sx#     SELECT sexe$        CASE "H":sx#=0.7:ENDCASE        CASE "F":sx#=0.6:ENDCASE        CASE DEFAULT: sx#=0.0:ENDCASE     ENDSELECT     ReturnValue# = 100 * (0.5 * pd# * sx#) ENDFUNCTION ReturnValue# FUNCTION CalculDecilitresWhisky(pd#,sexe$)     ReturnValue#=INT(FormuleAlcool(pd#, sexe$)/320.0) / 10.0 ENDFUNCTION ReturnValue# FUNCTION CalculDecilitresVin(pd#,sexe$)     ReturnValue#=INT(FormuleAlcool(pd#, sexe$)/80.0) / 10.0 ENDFUNCTION ReturnValue# FUNCTION CalculDecilitresBiere(pd#,sexe$)     ReturnValue#=INT(FormuleAlcool(pd#, sexe$)/35.0)/ 10.0 ENDFUNCTION ReturnValue#

on obtiendra le résultat suivant:

Taux d'alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture: Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: 0.7 Nombre de verre (décilitres) de Vin pour un homme de 150 livres: 3 Nombre de verre (décilitres) de Bière pour un homme de 150 livres: 6.8