Discussion :

[Robert le débutant]

Ca marche super bien !!!!

Dans une prochaine vie ! je ferai tout pour avoir ton niveau ...
Vraiment bravo... T'es imbattable !

Grâce à toi, je comprends que ChatGpt a autant à apprendre que moi


Merci

Petite modification, le mois de "Sivan" a été oublié. Voici la modif qui fonctionne (testé sur 100 dates sur le site https://www.loubavitch.fr/pratique/c...sseur-de-dates

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
nomMois	est une chaîne 
TabMois	est un tableau de chaînes	= [ "Tishrei","Cheshvan","Kislev","Tevet","Shevat","Adar","Nissan",
"Iyar","Sivan","Tamuz","Av","Elul"]
TabMoisLeap est un tableau de chaînes = [ "Tishrei","Cheshvan","Kislev","Tevet","Shevat","Adar I","Adar II",
"Nissan", "Iyar","Sivan","Tamuz","Av","Elul"]                                                                             
 
gregorianDate	est un DateTime//(2023, 7, 10)
 
gregorianDate=SAI_dategregoire+HeureSys()
 
// Create an instance of HebrewCalendar
hebCalendar		est un  HebrewCalendar()
 
// Convert the Gregorian date to a Hebrew date
hebYear			est un entier	= hebCalendar.GetYear(gregorianDate)
hebMonth		est un entier	= hebCalendar.GetMonth(gregorianDate)
hebDay			est un entier	= hebCalendar.GetDayOfMonth(gregorianDate)
dhHebDate			est un DateTime(hebYear, hebMonth, 1, hebCalendar)
SI hebCalendar.IsLeapYear(hebYear) ALORS
	nomMois =  TabMoisLeap[hebMonth]    
SINON
	nomMois =  TabMois[hebMonth]
FIN 
LIB_reponsedateheb=hebDay + "-" + hebMonth +  "(" + nomMois +  ")" + "-" + hebYear

[Robert le débutant]

Je suis déçu
Si tu avais lu mon site, tu serais tombé sur
https://www.calj.net/algorithme
Tu y aurait vu l'albo de conversion
Là tu utilises une DLL qui fait le boulot à ta place
En plus, cela ne fonctionne que pour windows
Alors que si tu fais ton propre code
Il fonctionnera aussi sur mobile.

Ne sois surtout pas déçu !

Je potasse aussi ta méthode, le qbasic me pose juste quelques soucis, je reviens vers toi, dès que j'aurais avancé.
je savais programmer en GWBASIC, ça ne devrait pas poser de problème,

Par contre, ton tuto pour le coucher du soleil est top !
je l'ai amélioré. Voici le lien. Ne t'inquiète pas, à l'ouverture ça mouline, ça cherche ta géolocalisation... N'oublie pas d'essayer pour un vendredi !

https://1drv.ms/u/s!Art6NjBGAO6ogP39...7R6GI?e=AjmYhn

Et merci encore pour ton aide !

[popoy]

Pour info il existe aussi des codes sources en JavaScript sur le net
Par contre mon source en wlangage est payant

[mous97]

Hello,
sinon pour convertir une date gréorienne en date hébraïque, dans windev on peut utiliser l'assemblage dotnet mscorlib (inclus dans windows).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
nomMois est une chaîne 
TabMois est un tableau de chaînes = [ "Tishrei","Cheshvan","Kislev","Tevet","Shevat","Adar","Nissan",
                                      "Iyar","Tamuz","Av","Elul"]
TabMoisLeap est un tableau de chaînes = [ "Tishrei","Cheshvan","Kislev","Tevet","Shevat","Adar I","Adar II",
                                          "Nissan", "Iyar","Tamuz","Av","Elul"]                                                                             
 
gregorianDate est un DateTime(2023, 7, 10)
// Create an instance of HebrewCalendar
hebCalendar est un  HebrewCalendar()
 
// Convert the Gregorian date to a Hebrew date
hebYear  est un entier = hebCalendar.GetYear(gregorianDate)
hebMonth  est un entier = hebCalendar.GetMonth(gregorianDate)
hebDay  est un entier = hebCalendar.GetDayOfMonth(gregorianDate)
hebDate est un DateTime(hebYear, hebMonth, 1, hebCalendar)
SI hebCalendar.IsLeapYear(hebYear) ALORS
nomMois =  TabMoisLeap[hebMonth - 1]    
SINON
nomMois =  TabMois[hebMonth - 1]
FIN 
Trace("Hebrew date: " + hebDay + "-" + hebMonth +  "(" + nomMois +  ")" + "-" + hebYear)

Résultat :


Ami calmant, J.P

Quelle MasterClass !!!
Un plaisir de te lire je pensais que tu avais disparu

[Robert le débutant]

Quelle MasterClass !!!
Un plaisir de te lire je pensais que tu avais disparu

Master de chez Master !!!

[Robert le débutant]

Hello,
sinon pour convertir une date gréorienne en date hébraïque, dans windev on peut utiliser l'assemblage dotnet mscorlib (inclus dans windows).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
nomMois est une chaîne 
TabMois est un tableau de chaînes = [ "Tishrei","Cheshvan","Kislev","Tevet","Shevat","Adar","Nissan",
                                      "Iyar","Tamuz","Av","Elul"]
TabMoisLeap est un tableau de chaînes = [ "Tishrei","Cheshvan","Kislev","Tevet","Shevat","Adar I","Adar II",
                                          "Nissan", "Iyar","Tamuz","Av","Elul"]                                                                             
 
gregorianDate est un DateTime(2023, 7, 10)
// Create an instance of HebrewCalendar
hebCalendar est un  HebrewCalendar()
 
// Convert the Gregorian date to a Hebrew date
hebYear  est un entier = hebCalendar.GetYear(gregorianDate)
hebMonth  est un entier = hebCalendar.GetMonth(gregorianDate)
hebDay  est un entier = hebCalendar.GetDayOfMonth(gregorianDate)
hebDate est un DateTime(hebYear, hebMonth, 1, hebCalendar)
SI hebCalendar.IsLeapYear(hebYear) ALORS
nomMois =  TabMoisLeap[hebMonth - 1]    
SINON
nomMois =  TabMois[hebMonth - 1]
FIN 
Trace("Hebrew date: " + hebDay + "-" + hebMonth +  "(" + nomMois +  ")" + "-" + hebYear)

Résultat :


Ami calmant, J.P

Cher J.P,

Votre formule marche parfaitement.
Mais voilà, depuis 3 jours j’essaye avec votre exemple de convertir une date hébraïque en date grégorienne (l'inverse de votre exemple)
Je n'y arrive pas !
Si vous pouviez m'aider...

Merci

[popoy]

Autre site
https://www.tondering.dk/claus/cal/j...od.php#formula

[jurassic pork]

Hello,

Mais voilà, depuis 3 jours j’essaye avec votre exemple de convertir une date hébraïque en date grégorienne (l'inverse de votre exemple)

Tu peux faire comme ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 monhebCalendar est  un  HebrewCalendar()
 MonDateTime est un System.DateTime(5783, 11, 5, monhebCalendar)
 MaDate est une Date = MonDateTIme
 Trace(DateVersChaîne(MaDate,"JJ/MM/AAAA"))

Ami calmant, J.P

[Robert le débutant]

Hello,

Tu peux faire comme ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 monhebCalendar est  un  HebrewCalendar()
 MonDateTime est un System.DateTime(5783, 11, 5, monhebCalendar)
 MaDate est une Date = MonDateTIme
 Trace(DateVersChaîne(MaDate,"JJ/MM/AAAA"))

Ami calmant, J.P

Merci beaucoup pour votre aide