comment faire un nom de string avec plusieu morceau

[scaraber]

salu voila je suis en train de continuer mon horloge et je vulais ajouter a fetes du jours donc j'ai deux methode
1ere methode
je fait 3 ligne par fete

Code : Tout sélectionner

if jour=1
fete$="jour de l'an"
endif 

etc jusqua 365
2nd methode
je listedun coter et je recup la valeur dans un for next

Code : Tout sélectionner

dfete = DayOfYear(Date())  
for fete=1 to 365
if fete=dfete
la je veut reconstituer mon nom de string
je c pas si c sa ... en tout cas chez moi sa marche pas 
fete$="nfete"+fete+"$"
endif
nfete1$="jour de lan"
nfete2$="basile"
etc

si quelqun savait comment faire la deuxieme methode ...
merci d'avance

[lionel_om]

Bah il te faut des datas.
Soit 365 datas

Code : Tout sélectionner

data.s "jour de l'an"
data.s [...]
data.s"ascension" ...

Soit, étant donné qu'il n'y a que peu de fêtes :

Code : Tout sélectionner

data.w 1
data.s "Jour de l'an"
...
data.w 358
data.s "Noel"

Pour le dernier système, tu peut le lire via ce code :

Code : Tout sélectionner

Dim fete.s(365) 

jour.w
for i = 0 to n-1   ; n à définir (365 au max)
  Read jour
  Read fete(jour)
next i

Ensuite pour voir s'il y a une fête un jour donné :

Code : Tout sélectionner

dfete = DayOfYear(Date()) 
Debug "La fête d'aujourd'hui : " + fete(dfete)

[Backup]

moi je ferai comme ça ! (lance avec debugger)

Code : Tout sélectionner

 Restore command
For t5=1 To 6 ; il y a 6 saint 
    Read saint$
    ;If t5=5 ;<----- on veut le saint numero 5 (du 5em jours )
    Debug " le saint du "+Str(t5)+ " em jour est : "+saint$
   ; EndIf 
Next t5



DataSection 
command:
Data.s "dobro", "polo","oliv" ,"denis","le soldat inconnu", "cederavic"
EndDataSection

[scaraber]

je vasi examiner ces codes en attendat voici mon horloge il reste 2 trois truc a finioler masi bon quand ce sera fini je metrai un topic dans aplication ....
horloge multifonction

[scaraber]

merci bcp j'avait pas pencer au data s amarche super voici mon code (1 heure dessus )

Code : Tout sélectionner

  dfete = DayOfYear(Date())  

Restore command 
For t5=1 To dfete
    Read saint$ 
   If t5=dfete
    fetes$=saint$
    EndIf 
Next t5 

DataSection 
command: 
Data.s " Jour de l'an ", "Basile ","Geneviève" ,"Odilon ","Edouard", "Mélaine", "Raymond" ," Lucien "," Alix "," Guillaume"," Pauline "," Tatiana "," Yvette "," Nina "," Rémi "," Marcel"," Roseline ","Prisca "," Marius "," Sébastien "," Agnès "," Vincent "," Banard "," François de Sales"," Conversion de Paul"," Paule - Melany"," Angèle "," Thomas d'Aquin"," Gildas "," Martine "," Marcelle "
Data.s " Ella "," Présentation"," Blaise "," Véronique"," Agathe "," Gaston "," Eugènie "," Jacqueline"," Apolline "," Arnaud "," Notre Dame de Lourdes ", " Félix ", " Béatrice", " Valentin "," Claude "," Julienne", " Alexis "," Bernadette"," Gabin "," Aimée "," Damien" ," Isabelle "," Lazare ", " Modeste"," Roméo ","Nestor ", "Honorine ", "Romain ","Auguste "
Data.s " Aubin "," Charles le Bon "," Guénolé "," Casimir "," Olive "," Colette"," Félicité"," Jean de Dieu", " Alexia - Françoise"," Vivien "," Rosine "," Justine "," Rodrigue "," Mathilde "," Louise "," Bénédicte "," Patrice "," Cyrille "," Joseph "," Printemps"," Clémence "," Léa "," Victorien "," Catherine "," Annonciation"," Larissa ","Habib "," Gontran" ," Gwladys "," Amédée "," Benjamin" 
Data.s " Hugues - Valéry"," Sandrine "," Richard "," Isidore "," Irène "," Marcellin "," Jean-Baptiste de la Salle "," Julie "," Gautier", " Fulbert "," Stanislas"," Jules "," Ida "," Maxime "," Paterne "," Benoît-Joseph"," Anicet "," Parfait "," Emma "," Odette "," Anselme "," Alexandre"," Georges "," Fidèle "," Marc "," Alida "," Zita "," Valérie "," Catherine de Sienne "," Robert "
Data.s " Fête du travail" ," Boris "," Philippe - Jacques "," Florian - Sylvain "," Judith "," Prudence"," Gisèle "," Armistice 1945"," Pacôme "," Solange "," Estelle "," Achille "," Rolande "," Matthias "," Denise "," Honoré "," Pascal "," Eric "," Yves "," Bernardin", " Constantin"," Emile "," Didier "," Donatien"," Sophie "," Bérenger"," Augustin "," Germain "," Aymar "," Lorraine - Ferdinand "," Visitation de la Sainte Vierge  "
Data.s " Justin "," Blandine "," Kévin "," Clotilde"," Igor "," Norbert", " Gilbert "," Médard "," Diane "," Landry "," Barnabé "," Guy "," Antoine de Padoue", " Elisée "," Germaine "," Jean François Régis"," Hervé "," Léonce "," Romuald "," Silvère "," Eté "," Alban "," Audrey "," Yann - Jean-Baptiste"," Prosper "," Anthelme "," Fernand "," Irénée "," Pierre - Paul"," Martial "
Data.s " Thierry "," Martinien "," Thomas "," Florent "," Antoine "," Mariette "," Raoul "," Thibault", " Amandine "," Ulrich "," Benoît "," Olivier "," Henri et Joël "," Fête Nationale "," Donald "," Notre Dame du Mont Carmel"," Charlotte "," Frédéric "," Arsène "," Marina "," Victor "," Marie Madeleine"," Brigitte "," Christine "," Jacques "," Anne et Joachin"," Nathalie "," Samson "," Marthe "," Juliette "," Ignace de Loyola "
Data.s " Alphonse ", "Julien Eymard", "Lydie ","Jean-Marie Vianney","Abel ","Transfiguration", "Gaétan","Dominique","Amour ","Laurent ","Claire ","Clarisse ","Hippolyte ","Evrard ","Assomption","Armel ","Hyacinthe", "Hélène ","Jean Eudes","Bernard ","Christophe","Fabrice ","Rose de Lima ","Barthélémy ","Louis ","Natacha ","Monique ","Augustin ","Sabine ","Fiacre ","Aristide "
Data.s " Gilles "," Ingrid "," Grégoire "," Rosalie "," Raïssa "," Bertrand "," Reine "," Nativité "," Alain "," Inès "," Adelphe "," Apollinaire "," Aimé "," Croix Glorieuse "," Roland "," Edith "," Renaud "," Nadège "," Emilie "," Davy "," Matthieu "," Maurice "," Automne "," Thècle "," Hermann "," Côme et Damien"," Vincent de Paul "," Venceslas "," Michel - Gabriel - Raphaël "," Jérôme "
Data.s " Thérèse de l'Enfant Jésus "," Léger "," Gérard "," François d'Assise "," Fleur "," Bruno "," Serge "," Pélagie"," Denis "," Ghislain "," Firmin "," Wilfried"," Géraud "," Juste "," Thérèse d'Avila "," Edwige "," Baudoin "," Luc "," René "," Adeline "," Céline "," Elodie "," Jean de Capistran"," Florentin "," Crépin "," Dimitri "," Emeline "," Simone - Jude"," Narcisse "," Bienvenue "," Quentin "
Data.s " Toussaint"," Défunts "," Hubert "," Charles "," Sylvie "," Bertille "," Carine "," Geoffroy "," Théodore "," Léon "," Armistice 1918 "," Christian "," Brice "," Sidoine "," Albert "," Marguerite"," Elisabeth "," Aude "," Tanguy "," Edmond "," Présence de Marie "," Cécile "," Clément "," Flora "," Catherine "," Delphine "," Sévrin "," Jacques de la Marche "," Saturnin "," André "
Data.s " Florence "," Viviane "," François Xavier"," Barbara "," Gérald "," Nicolas "," Ambroise "," Immaculée Conception", " Pierre Fourier "," Romaric "," Daniel(elle) "," Jeanne-Françoise de Chantal", " Lucie "," Odile "," Ninon "," Alice "," Gaël "," Gatien "," Urbain "," Théophile"," Hivers "," Françoise Xavière "," Armand "," Adèle "," Noël "," Etienne"," Jean "," Innocents "," David "," Roger "," Sylvestre" 

EndDataSection 

il y a 12 ligne (1 par mois) chacune de 30 nom le lien sera bientot mis a jour d'ici 20 min

[lionel_om]

Avec autant de fêtes, ca serait pe etre mieux un fichier externe
Et des openFile(..), ReadString()...

[Backup]

je pense que tous ce qui est en dehors du programme(les fichiers de donnees), peut etre sensible a l'oublie en cas de copie, ou d'effacement involontaire, de ralentissement a l'acces des données ect.....
bref inclure des donnés dans l'executable , je trouve ça mieux c'est une bonne ecole, et evite d'user le disk dur !!


.... et les programme "Puzzle" !

[scaraber]

aussi metre un fichier exterieur aurais ete plsu dur a metre en place (3 ligne par fete:
1-fete1$ =read string
2-if dfete=1
3-fete$=fete1$
4-endif
etc (365 fois )

[scaraber]

je vein de voir une enorme erreur
le moisde fevrier na pas tt le temps 29 jour donc voiciu le code te dici 10 min le fichier sera rectifier

Code : Tout sélectionner

     
       dfete = DayOfYear(Date())  
year=Year(Date())
If Year=2008 Or Year=2012 Or Year=2016 Or Year=2020 Or Year(Date())=2024 
Restore command 
Else 
Restore command2
EndIf
For t5=1 To dfete
    Read saint$ 
   If t5=dfete
    fetes$=saint$
    EndIf 
Next t5 

DataSection 
command: 
Data.s " Jour de l'an ", "Basile ","Geneviève" ,"Odilon ","Edouard", "Mélaine", "Raymond" ," Lucien "," Alix "," Guillaume"," Pauline "," Tatiana "," Yvette "," Nina "," Rémi "," Marcel"," Roseline ","Prisca "," Marius "," Sébastien "," Agnès "," Vincent "," Banard "," François de Sales"," Conversion de Paul"," Paule - Melany"," Angèle "," Thomas d'Aquin"," Gildas "," Martine "," Marcelle "
Data.s " Ella "," Présentation"," Blaise "," Véronique"," Agathe "," Gaston "," Eugènie "," Jacqueline"," Apolline "," Arnaud "," Notre Dame de Lourdes ", " Félix ", " Béatrice", " Valentin "," Claude "," Julienne", " Alexis "," Bernadette"," Gabin "," Aimée "," Damien" ," Isabelle "," Lazare ", " Modeste"," Roméo ","Nestor ", "Honorine ", "Romain "
Data.s "Auguste "
Data.s " Aubin "," Charles le Bon "," Guénolé "," Casimir "," Olive "," Colette"," Félicité"," Jean de Dieu", " Alexia - Françoise"," Vivien "," Rosine "," Justine "," Rodrigue "," Mathilde "," Louise "," Bénédicte "," Patrice "," Cyrille "," Joseph "," Printemps"," Clémence "," Léa "," Victorien "," Catherine "," Annonciation"," Larissa ","Habib "," Gontran" ," Gwladys "," Amédée "," Benjamin" 
Data.s " Hugues - Valéry"," Sandrine "," Richard "," Isidore "," Irène "," Marcellin "," Jean-Baptiste de la Salle "," Julie "," Gautier", " Fulbert "," Stanislas"," Jules "," Ida "," Maxime "," Paterne "," Benoît-Joseph"," Anicet "," Parfait "," Emma "," Odette "," Anselme "," Alexandre"," Georges "," Fidèle "," Marc "," Alida "," Zita "," Valérie "," Catherine de Sienne "," Robert "
Data.s " Fête du travail" ," Boris "," Philippe - Jacques "," Florian - Sylvain "," Judith "," Prudence"," Gisèle "," Armistice 1945"," Pacôme "," Solange "," Estelle "," Achille "," Rolande "," Matthias "," Denise "," Honoré "," Pascal "," Eric "," Yves "," Bernardin", " Constantin"," Emile "," Didier "," Donatien"," Sophie "," Bérenger"," Augustin "," Germain "," Aymar "," Lorraine - Ferdinand "," Visitation de la Sainte Vierge  "
Data.s " Justin "," Blandine "," Kévin "," Clotilde"," Igor "," Norbert", " Gilbert "," Médard "," Diane "," Landry "," Barnabé "," Guy "," Antoine de Padoue", " Elisée "," Germaine "," Jean François Régis"," Hervé "," Léonce "," Romuald "," Silvère "," Eté "," Alban "," Audrey "," Yann - Jean-Baptiste"," Prosper "," Anthelme "," Fernand "," Irénée "," Pierre - Paul"," Martial "
Data.s " Thierry "," Martinien "," Thomas "," Florent "," Antoine "," Mariette "," Raoul "," Thibault", " Amandine "," Ulrich "," Benoît "," Olivier "," Henri et Joël "," Fête Nationale "," Donald "," Notre Dame du Mont Carmel"," Charlotte "," Frédéric "," Arsène "," Marina "," Victor "," Marie Madeleine"," Brigitte "," Christine "," Jacques "," Anne et Joachin"," Nathalie "," Samson "," Marthe "," Juliette "," Ignace de Loyola "
Data.s " Alphonse ", "Julien Eymard", "Lydie ","Jean-Marie Vianney","Abel ","Transfiguration", "Gaétan","Dominique","Amour ","Laurent ","Claire ","Clarisse ","Hippolyte ","Evrard ","Assomption","Armel ","Hyacinthe", "Hélène ","Jean Eudes","Bernard ","Christophe","Fabrice ","Rose de Lima ","Barthélémy ","Louis ","Natacha ","Monique ","Augustin ","Sabine ","Fiacre ","Aristide "
Data.s " Gilles "," Ingrid "," Grégoire "," Rosalie "," Raïssa "," Bertrand "," Reine "," Nativité "," Alain "," Inès "," Adelphe "," Apollinaire "," Aimé "," Croix Glorieuse "," Roland "," Edith "," Renaud "," Nadège "," Emilie "," Davy "," Matthieu "," Maurice "," Automne "," Thècle "," Hermann "," Côme et Damien"," Vincent de Paul "," Venceslas "," Michel - Gabriel - Raphaël "," Jérôme "
Data.s " Thérèse de l'Enfant Jésus "," Léger "," Gérard "," François d'Assise "," Fleur "," Bruno "," Serge "," Pélagie"," Denis "," Ghislain "," Firmin "," Wilfried"," Géraud "," Juste "," Thérèse d'Avila "," Edwige "," Baudoin "," Luc "," René "," Adeline "," Céline "," Elodie "," Jean de Capistran"," Florentin "," Crépin "," Dimitri "," Emeline "," Simone - Jude"," Narcisse "," Bienvenue "," Quentin "
Data.s " Toussaint"," Défunts "," Hubert "," Charles "," Sylvie "," Bertille "," Carine "," Geoffroy "," Théodore "," Léon "," Armistice 1918 "," Christian "," Brice "," Sidoine "," Albert "," Marguerite"," Elisabeth "," Aude "," Tanguy "," Edmond "," Présence de Marie "," Cécile "," Clément "," Flora "," Catherine "," Delphine "," Sévrin "," Jacques de la Marche "," Saturnin "," André "
Data.s " Florence "," Viviane "," François Xavier"," Barbara "," Gérald "," Nicolas "," Ambroise "," Immaculée Conception", " Pierre Fourier "," Romaric "," Daniel(elle) "," Jeanne-Françoise de Chantal", " Lucie "," Odile "," Ninon "," Alice "," Gaël "," Gatien "," Urbain "," Théophile"," Hivers "," Françoise Xavière "," Armand "," Adèle "," Noël "," Etienne"," Jean "," Innocents "," David "," Roger "," Sylvestre" 

EndDataSection 

DataSection 
command2: 
Data.s " Jour de l'an ", "Basile ","Geneviève" ,"Odilon ","Edouard", "Mélaine", "Raymond" ," Lucien "," Alix "," Guillaume"," Pauline "," Tatiana "," Yvette "," Nina "," Rémi "," Marcel"," Roseline ","Prisca "," Marius "," Sébastien "," Agnès "," Vincent "," Banard "," François de Sales"," Conversion de Paul"," Paule - Melany"," Angèle "," Thomas d'Aquin"," Gildas "," Martine "," Marcelle "
Data.s " Ella "," Présentation"," Blaise "," Véronique"," Agathe "," Gaston "," Eugènie "," Jacqueline"," Apolline "," Arnaud "," Notre Dame de Lourdes ", " Félix ", " Béatrice", " Valentin "," Claude "," Julienne", " Alexis "," Bernadette"," Gabin "," Aimée "," Damien" ," Isabelle "," Lazare ", " Modeste"," Roméo ","Nestor ", "Honorine ", "Romain "
Data.s " Aubin "," Charles le Bon "," Guénolé "," Casimir "," Olive "," Colette"," Félicité"," Jean de Dieu", " Alexia - Françoise"," Vivien "," Rosine "," Justine "," Rodrigue "," Mathilde "," Louise "," Bénédicte "," Patrice "," Cyrille "," Joseph "," Printemps"," Clémence "," Léa "," Victorien "," Catherine "," Annonciation"," Larissa ","Habib "," Gontran" ," Gwladys "," Amédée "," Benjamin" 
Data.s " Hugues - Valéry"," Sandrine "," Richard "," Isidore "," Irène "," Marcellin "," Jean-Baptiste de la Salle "," Julie "," Gautier", " Fulbert "," Stanislas"," Jules "," Ida "," Maxime "," Paterne "," Benoît-Joseph"," Anicet "," Parfait "," Emma "," Odette "," Anselme "," Alexandre"," Georges "," Fidèle "," Marc "," Alida "," Zita "," Valérie "," Catherine de Sienne "," Robert "
Data.s " Fête du travail" ," Boris "," Philippe - Jacques "," Florian - Sylvain "," Judith "," Prudence"," Gisèle "," Armistice 1945"," Pacôme "," Solange "," Estelle "," Achille "," Rolande "," Matthias "," Denise "," Honoré "," Pascal "," Eric "," Yves "," Bernardin", " Constantin"," Emile "," Didier "," Donatien"," Sophie "," Bérenger"," Augustin "," Germain "," Aymar "," Lorraine - Ferdinand "," Visitation de la Sainte Vierge  "
Data.s " Justin "," Blandine "," Kévin "," Clotilde"," Igor "," Norbert", " Gilbert "," Médard "," Diane "," Landry "," Barnabé "," Guy "," Antoine de Padoue", " Elisée "," Germaine "," Jean François Régis"," Hervé "," Léonce "," Romuald "," Silvère "," Eté "," Alban "," Audrey "," Yann - Jean-Baptiste"," Prosper "," Anthelme "," Fernand "," Irénée "," Pierre - Paul"," Martial "
Data.s " Thierry "," Martinien "," Thomas "," Florent "," Antoine "," Mariette "," Raoul "," Thibault", " Amandine "," Ulrich "," Benoît "," Olivier "," Henri et Joël "," Fête Nationale "," Donald "," Notre Dame du Mont Carmel"," Charlotte "," Frédéric "," Arsène "," Marina "," Victor "," Marie Madeleine"," Brigitte "," Christine "," Jacques "," Anne et Joachin"," Nathalie "," Samson "," Marthe "," Juliette "," Ignace de Loyola "
Data.s " Alphonse ", "Julien Eymard", "Lydie ","Jean-Marie Vianney","Abel ","Transfiguration", "Gaétan","Dominique","Amour ","Laurent ","Claire ","Clarisse ","Hippolyte ","Evrard ","Assomption","Armel ","Hyacinthe", "Hélène ","Jean Eudes","Bernard ","Christophe","Fabrice ","Rose de Lima ","Barthélémy ","Louis ","Natacha ","Monique ","Augustin ","Sabine ","Fiacre ","Aristide "
Data.s " Gilles "," Ingrid "," Grégoire "," Rosalie "," Raïssa "," Bertrand "," Reine "," Nativité "," Alain "," Inès "," Adelphe "," Apollinaire "," Aimé "," Croix Glorieuse "," Roland "," Edith "," Renaud "," Nadège "," Emilie "," Davy "," Matthieu "," Maurice "," Automne "," Thècle "," Hermann "," Côme et Damien"," Vincent de Paul "," Venceslas "," Michel - Gabriel - Raphaël "," Jérôme "
Data.s " Thérèse de l'Enfant Jésus "," Léger "," Gérard "," François d'Assise "," Fleur "," Bruno "," Serge "," Pélagie"," Denis "," Ghislain "," Firmin "," Wilfried"," Géraud "," Juste "," Thérèse d'Avila "," Edwige "," Baudoin "," Luc "," René "," Adeline "," Céline "," Elodie "," Jean de Capistran"," Florentin "," Crépin "," Dimitri "," Emeline "," Simone - Jude"," Narcisse "," Bienvenue "," Quentin "
Data.s " Toussaint"," Défunts "," Hubert "," Charles "," Sylvie "," Bertille "," Carine "," Geoffroy "," Théodore "," Léon "," Armistice 1918 "," Christian "," Brice "," Sidoine "," Albert "," Marguerite"," Elisabeth "," Aude "," Tanguy "," Edmond "," Présence de Marie "," Cécile "," Clément "," Flora "," Catherine "," Delphine "," Sévrin "," Jacques de la Marche "," Saturnin "," André "
Data.s " Florence "," Viviane "," François Xavier"," Barbara "," Gérald "," Nicolas "," Ambroise "," Immaculée Conception", " Pierre Fourier "," Romaric "," Daniel(elle) "," Jeanne-Françoise de Chantal", " Lucie "," Odile "," Ninon "," Alice "," Gaël "," Gatien "," Urbain "," Théophile"," Hivers "," Françoise Xavière "," Armand "," Adèle "," Noël "," Etienne"," Jean "," Innocents "," David "," Roger "," Sylvestre" 

EndDataSection 

[Backup]

aussi metre un fichier exterieur aurais ete plsu dur a metre en place (3 ligne par fete:
1-fete1$ =read string
2-if dfete=1
3-fete$=fete1$
4-endif
etc (365 fois )

heu! y a des boucles en Purebasic !!

[Mwoua]

Attention aux années bissextiles :
Si N° année (2005 par exemple) est divisible part 4, alors c'est une année bissextile.

MAIS, si N° est divisible par 100, alors, normalement, c'est une année bissextile aussi puisque 100 est divisible par 4, mais NON, ce ne sera PAS une année bissextile.

ENFIN, si N° est divisible par 400, alors, (attention, il faut se concentrer) normalement, c'est biss puisque 400 est divisible par 4, mais non biss puisque 400 est divisible par 100, MAIS SI, cette année sera bissextile.

Tout ça pour rattraper les erreurs du calendrier JUlien que nous utilisons.

BREF :

N°/4 => biss
N°/100 => NON biss
N°/400 => biss

On a eu le coup en l'an 2000, où N° (2000) devait ne pas être biss puique divisible par 100, mais si puisque divisible par 400. On a donc tous vécu le 29 février 2000 un truc qui n'arrive que tout les 400 ans sans même s'en rendre compte !

[Chris]

Tu crois que dans 395 ans, on en parlera encore du calendrier de 'scaraber' ?

[Anonyme2]

On a eu le coup en l'an 2000, où N° (2000) devait ne pas être biss puique divisible par 100, mais si puisque divisible par 400. On a donc tous vécu le 29 février 2000 un truc qui n'arrive que tout les 400 ans sans même s'en rendre compte !

Ou lala ça fait peur, on a rien vu

[Flype]

mouai, le plus simple et le plus court :

Code : Tout sélectionner

Dim saint.s(12)

saint( 1) = "jour de l'an,Basile,Geneviève,Odilon,Edouard,Mélaine,Raymond,Lucien,Alix,Guillaume,Pauline,Tatiana,Yvette,Nina,Rémi,Marcel,Roseline,Prisca,Marius,sébastien,Agnès,Vincent,Banard,FrançoisdeSales,ConversiondePaul,Paule-Melany,Angèle,Thomasd'Aquin,Gildas,Martine,Marcelle"
saint( 2) = "Ella,Présentation,Blaise,Véronique,Agathe,Gaston,Eugènie,Jacqueline,Apolline,Arnaud,NotreDamedeLourdes,félix,béatrice,Valentin,Claude,Julienne,Alexis,Bernadette,Gabin,Aimée,Damien,Isabelle,Lazare,Modeste,Roméo,Nestor,Honorine,Romain,Auguste"
saint( 3) = "Aubin,CharlesleBon,Guénolé,Casimir,Olive,Colette,félicité,JeandeDieu,Alexia-Françoise,Vivien,Rosine,Justine,Rodrigue,Mathilde,Louise,bénédicte,Patrice,Cyrille,Joseph,Printemps,Clémence,léa,Victorien,Catherine,Annonciation,Larissa,Habib,Gontran,Gwladys,Amédée,Benjamin"
saint( 4) = "Hugues-Valéry,Sandrine,Richard,Isidore,Irène,Marcellin,Jean-BaptistedelaSalle,Julie,Gautier,Fulbert,Stanislas,Jules,Ida,Maxime,Paterne,Benoît-Joseph,Anicet,Parfait,Emma,Odette,Anselme,Alexandre,Georges,Fidèle,Marc,Alida,Zita,Valérie,CatherinedeSienne,Robert"
saint( 5) = "fêtedutravail,Boris,Philippe-Jacques,Florian-Sylvain,Judith,Prudence,Gisèle,Armistice1945,Pacôme,Solange,Estelle,Achille,Rolande,Matthias,Denise,Honoré,Pascal,Eric,Yves,Bernardin,Constantin,Emile,Didier,Donatien,Sophie,bérenger,Augustin,Germain,Aymar,Lorraine-Ferdinand,VisitationdelaSainteVierge"
saint( 6) = "Justin,Blandine,Kévin,Clotilde,Igor,Norbert,Gilbert,Médard,Diane,Landry,Barnabé,Guy,AntoinedePadoue,Elisée,Germaine,JeanFrançoisRéGis,Hervé,léonce,Romuald,Silvère,Eté,Alban,Audrey,Yann-Jean-Baptiste,Prosper,Anthelme,Fernand,Irénée,Pierre-Paul,Martial"
saint( 7) = "Thierry,Martinien,Thomas,Florent,Antoine,Mariette,Raoul,Thibault,Amandine,Ulrich,Benoît,Olivier,HenriEtJoël,fêteNationale,Donald,NotreDameduMontCarmel,Charlotte,Frédéric,Arsène,Marina,Victor,MarieMadeleine,Brigitte,Christine,Jacques,AnneEtJoachin,Nathalie,Samson,Marthe,Juliette,IgnacedeLoyola"
saint( 8) = "Alphonse,JulienEymard,Lydie,Jean-MarieVianney,Abel,Transfiguration,Gaétan,Dominique,Amour,Laurent,Claire,Clarisse,Hippolyte,Evrard,Assomption,Armel,Hyacinthe,Hélène,JeanEudes,Bernard,Christophe,Fabrice,RosedeLima,Barthélémy,Louis,Natacha,Monique,Augustin,Sabine,Fiacre,Aristide"
saint( 9) = "Gilles,Ingrid,Grégoire,Rosalie,Raïssa,Bertrand,Reine,Nativité,Alain,Inès,Adelphe,Apollinaire,Aimé,CroixGlorieuse,Roland,Edith,Renaud,Nadège,Emilie,Davy,Matthieu,Maurice,Automne,Thècle,Hermann,CômeEtDamien,VincentdePaul,Venceslas,Michel-Gabriel-Raphaël,JéRôme"
saint(10) = "ThéRèsedel'EnfantJésus,Léger,Gérard,Françoisd'Assise,Fleur,Bruno,Serge,Pélagie,Denis,Ghislain,Firmin,Wilfried,Géraud,Juste,ThéRèsed'Avila,Edwige,Baudoin,Luc,René,Adeline,Céline,Elodie,JeandeCapistran,Florentin,Crépin,Dimitri,Emeline,Simone-Jude,Narcisse,Bienvenue,Quentin"
saint(11) = "Toussaint,défunts,Hubert,Charles,Sylvie,Bertille,Carine,Geoffroy,Théodore,léon,Armistice1918,Christian,Brice,Sidoine,Albert,Marguerite,Elisabeth,Aude,Tanguy,Edmond,PrésencedeMarie,Cécile,Clément,Flora,Catherine,Delphine,sévrin,JacquesdelaMarche,Saturnin,André"
saint(12) = "Florence,Viviane,FrançoisXavier,Barbara,Gérald,Nicolas,Ambroise,ImmaculéeConception,PierreFourier,Romaric,Daniel(elle),Jeanne-FrançoisedeChantal,Lucie,Odile,Ninon,Alice,Gaël,Gatien,Urbain,Théophile,Hivers,FrançoiseXavière,Armand,Adèle,Noël,Etienne,Jean,Innocents,David,Roger,Sylvestre"

jour = Day(Date())
mois = Month(Date())

Debug StringField(saint(mois),jour,",")

l'important ici c'est je récupère le jour du mois grace à purebasic.
pas besoin de chercher s'il s'agit d'une année bissextile ou pas.

ps: pour faire vite j'ai fait un gros copier coller chercher remplacer des datas en tableau et j'ai un peu nické les saints qui avaient des espaces dedans comme "jour de l'an"... faite pas comme moi.