'Nom de la fonction : GetMyTimeNumber()
'Fonction : générer un nombre entier de temps
'Paramètre : lx ---- type de temps entier
' lx=0 à la minute lx=1 à l'heure lx=2 au jour lx=3 au mois
'Valeur de retour : valeur entière du temps de génération (minimum en minutes)
'Exemple:
'************************************************ *
Fonction publique GetMyTimeNumber(lx)
Si lx=0 Alors GetMyTimeNumber=Année(Date)*12*30*24*60+Mois(Date)*30*24*60+Jour(Date)*24*60+Heure(Heure)*60+Minute(Heure )
Si lx=1 Alors GetMyTimeNumber=Année(Date)*12*30*24+Mois(Date)*30*24+Jour(Date)*24+Heure(Heure)
Si lx=2 Alors GetMyTimeNumber=Année(Date)*12*30+Mois(Date)*30+Jour(Date)
Si lx=3 Alors GetMyTimeNumber=Année(Date)*12+Mois(Date)
Fonction de fin