PureBasic

Pour faire tout simple:
Nom$ = "Antoine"
Naissance$ = "12/08/1977" ; date de naissance - pour faire l'essai, mettre la date d'aujourd'hui

jour = Val(Left(Naissance$,2))
mois = Val(Mid(Naissance$,4,2))
annee = Val(Right(Naissance$,4))
Date$ = Left(Naissance$,5) ; on prend seulement le jour et le ...

Pour cette conversion en chiffres romains, je n'ai aucun mérite; je l'ai déniché quelque part en 2014, et je l'ai ramassé dans mes "trucs"; c'est vraiment très concis. Salut à tous.

Le plus simple que j'ai trouvé...
Procedure.s Romani(number.l) ; Conversion d'un nombre entier en chiffres romains

Protected i.l, value.l, result.s

For i = 1 To 13
value = Val(StringField("1000,900,500,400,100,90,50,40,10,9,5,4,1", i, ","))
While number >= value
result + StringField ...

Une petite idée pour le calendrier.

; calendrier légèrement simplifié: by Beruska 2016 - PB 5.40
; avec l'aide du jour julien plus de problème pour les années bissextiles ou non
; pgup et pg down pour changer de mois; home pour revenir à la date du jour

Enumeration
#fen ;fenêtre principale ...

J'utilise toujours cette procédure AutoCompleteComboBox... j'ai fait un petit exemple

Procedure AutocompleteComboBox_SearchEdit(hwnd.l, lParam.l)
Tampon.s = Space(50)
GetClassName_(hwnd, @Tampon, 50)

If Tampon = "Edit" ; Nom de l'objet recherché
PokeL(lParam, hwnd)
EndIf

ProcedureReturn ...

Déjà fait en 2011, vraiment perpétuel

; Calcul du Jour Julien et du jour de la semaine correspondant, à partir d'une date donnée.
; les dates doivent toujours figurer en format JJ MM AAAA avec espaces ou séparateurs.
; en PB_51 by beruska

Procedure.s datecomplete(date$)

jour$ = "Dimanche,Lundi ...

assez simple:

Personnellement j'utilise une macro pour pouvoir rétablir la combo chaque fois qu'il y a changement.
Macro RemplirCombo

ClearGadgetItems(#combobox)
DatabaseQuery(0, "SELECT nomfilm FROM main.film ORDER BY nomfilm")

While NextDatabaseRow(0)
AddGadgetItem(#combobox,-1,GetDatabaseString(0,0 ...

J'ai bien aimé l'algorithme pour le calcul des nombres premiers; l'inconvénient est que pour les grands nombres il faut un temps fou. A chaque itération il faut limiter la recherche à la sqr du nombre qui diminue à chaque division. Et encore plus vite en travaillant seulement sues les nombres ...

Il existe aussi cette procédure:
Procedure.s StrNum(Number.s, decimal.l = 2) ; Formats a number string as a number string customized for a specified locale.
Protected result.s, fmt.NUMBERFMT
fmt\NumDigits = decimal ; Specifies the number of fractional digits.
fmt\LeadingZero = 0 ; Specifies ...

Salut!
Pour la liste de mots en anglais, j’utilise ceci :
Va sur le site http://www.iread.it/verbatron.php
Fais le download. Dans le dossier zip tu trouves un sous-fichier Verbatron2, puis Dizionari
Tu ouvres le SmallEnglish, et le fichier basic-engl.txt est fait pour toi.
(Il y a aussi les mots en ...

Tout simple:
Procedure.s kmbytime(d.f, v.f)

Shared jours,heures,minutes,secondes

t.f = d/v
t = t/24
jours = Int(t)
t = (t - Int(t)) * 24
heures = Int(t)
t = (t - Int(t)) * 60
minutes = Int(t)
t = (t - Int(t)) * 60
secondes = Round(t, #PB_Round_Nearest)

Debug Str(jours) + " jour(s ...

Merci de vos réponses... Quand je travaille sous Windows, j'ai toujours utilisé Chr(128) pour €.
Dans la version linux PB4.51 il doit y avoir un problème dans l'outil intégré ASCII, car € = chr(164) et il y a un certain nombre de cases vides, par exemple les premières cases qui suivent chr(127 ...

Je connais très bien Alt gr + e, mais si je l'utilise dans mes codes il me donne EUR au lieu de €, ce qui est très gênant dans les affichages; donc j'ai voulu essayer Chr(164), et là le signe ne correspond pas. Mystère...

Sous Ubuntu je ne peux pas insérer le signe €. Les outils ascii disent chr(164), mais ça ne donne pas le bon signe. Que faire?
Merci.