Téléchargé 6 fois
Vote des utilisateurs
0
0
Détails
Licence : Gratuit pour usage non commercial
Mise en ligne le 21 janvier 2014
Plate-forme :
Windows
Langue : Français
Référencé dans
Navigation
Horoscope Gaulois
Horoscope Gaulois
Les Celtes (dont les Gaulois faisait partie) étaient très proche
de la nature et croyaient ( entre autre chose ) que le jour et le
mois de naissance d'un des leurs correspondait à un arbre,
et que cet arbre emprunt de qualités les lui transmettait.
Ce programme (succint) nous aide à trouver notre arbre
de naissance.
de la nature et croyaient ( entre autre chose ) que le jour et le
mois de naissance d'un des leurs correspondait à un arbre,
et que cet arbre emprunt de qualités les lui transmettait.
Ce programme (succint) nous aide à trouver notre arbre
de naissance.
c'est parce que c'est un lien court, il faudrait mettre le lien complet vers SkyDrive
Bonjour,
pour être du Chêne,de l'Olivier , du Bouleau ou du Hêtre il faut vraiment naitre le bon jour
une amélioration de la procédure d'obtention de l'arbre (procedure test) serait-elle envisageable ? étonnamment on n'a pas les mêmes sources (peu fiables)
point de Sapin ici mais de l'if
désolé , je n'ai pas repris les mêmes valeurs pour le retour (question de flemme) , c'est le principe avec l'utilisation de Case qui importe
une autre manière 'plus lisible'
pour être du Chêne,de l'Olivier , du Bouleau ou du Hêtre il faut vraiment naitre le bon jour
une amélioration de la procédure d'obtention de l'arbre (procedure test) serait-elle envisageable ? étonnamment on n'a pas les mêmes sources (peu fiables)
Il existe 21 signes dans l'astrologie gauloise
désolé , je n'ai pas repris les mêmes valeurs pour le retour (question de flemme) , c'est le principe avec l'utilisation de Case qui importe
Code : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | function test(UneDate : TDateTime) : integer; var aa,mm,jj : word; begin DecodeDate(UneDate,aa,mm,jj); case (mm*100+jj) of 0321 : result:=1; // Chêne 0322..0331,0924..1003 : result:=2; // Noisetier 0401..0410,1004..1013 : result:=3; // Sorbier 0411..0420,1014..1023 : result:=4; // Érable 0421..0430,1024..1102 : result:=5; // Noyer 0501..0514,1103..1111,0805..0813,0204..0208 : result:=5; // Peuplier 0515..0524,1112..1121 : result:=7; // Châtaigner 0525..0603,1122..1201 : result:=8; // Frêne 0604..0613,1202..1211 : result:=9; // Charme 0614..0623,1212..1221 : result:=10; // Figuier 0624 : result:=11; // Bouleau 0625..0704 ,0101,1223..1231 : result:=12; // Pommier 0705..0714,0102..0111 : result:=13; // If 0715..0725,0112..0124 : result:=14; // Orme 0726..0804,0125..0203 : result:=15; // Cyprès 0814..0823,0209..0218 : result:=16; // Micocoulier 0824..0902,0219..0229 : result:=17; // Pin 0903..0912,0301..0310 : result:=18; // Saule 0913..0922,0311..0320 : result:=19; // Tilleul 0923 : result:=20; // Olivier 1222 : result:=21; // Hêtre else result:=0; end; |
Code : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | case it of 0101 : Result:=12; 0102..0111 : result:=13; 0112..0124 : result:=14; 0125..0203 : result:=15; 0204..0208 : result:=6; 0209..0218 : result:=16; 0219..0229 : result:=17; 0301..0310 : result:=18; 0311..0320 : result:=19; 0321 : result:=1; 0322..0331 : Result:=2; 0401..0410 : Result:=3; 0411..0420 : Result:=4; 0421..0430 : Result:=5; 0501..0514 : Result:=6; 0515..0524 : Result:=7; 0525..0603 : Result:=8; 0604..0613 : Result:=9; 0614..0623 : Result:=10; 0624 : result:=11; 0625..0704 : Result:=12; 0705..0714 : Result:=13; 0715..0725 : Result:=14; 0726..0804 : Result:=15; 0805..0813 : Result:=6; 0814..0823 : Result:=16; 0824..0902 : Result:=17; 0903..0912 : Result:=18; 0913..0922 : Result:=19; 0923 : Result:=20; 0924..1003 : result:=2; 1004..1013 : result:=3; 1014..1023 : result:=4; 1024..1102 : result:=5; 1103..1111 : result:=6; 1112..1121 : result:=7; 1122..1201 : result:=8; 1202..1211 : result:=9; 1212..1221 : result:=10; 1222 : result:=21; 1223..1231 : result:=12; else result:=0; end; |
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.