Date au format AAQQQ (quantième)

Date au format AAQQQ (quantième) - Delphi/Pascal - Programmation

Marsh Posté le 28-02-2003 à 17:22:24    

Je cherche une fonction qui transforme 1 date dans son équivalent "quantième" de l'année:
 
01.01.2003 -> 03001 (1er jour de l'année)
01.02.2003 -> 03032 (32ème jour)
 
Quelqu'un a ça en magasin ?

Reply

Marsh Posté le 28-02-2003 à 17:22:24   

Reply

Marsh Posté le 28-02-2003 à 17:37:16    

Format('%.2d%.3d', [YearOf(UneDate), DayOfTheYear(UneDate)]);


Message édité par antp le 28-02-2003 à 17:37:56
Reply

Marsh Posté le 28-02-2003 à 21:21:03    

euh oui, mais l'aide Delphi est muette sur la fonction DayOfTheYear.... (J'ai bien posté dans la rubrique Delphi non?)

Reply

Marsh Posté le 28-02-2003 à 21:23:14    

Ça existe dans Delphi 6, mais t'as pas précisé pour quelle version tu le voulais :D (ça existe pas pour les précédentes je suppose)
C'est dans la unit DateUtils

Reply

Marsh Posté le 28-02-2003 à 21:52:53    

Eh ben voilà, suis obligé d'upgrader (j'étais en 5) !  
Vais faire fumer la connexion !

Reply

Marsh Posté le 28-02-2003 à 22:05:36    

T'entends quoi par là :heink: le piratage spa bien :o


Message édité par antp le 28-02-2003 à 22:05:43
Reply

Marsh Posté le 28-02-2003 à 22:05:44    

QI130 a écrit :


Vais faire fumer la connexion !


 
BAN :o


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 28-02-2003 à 22:11:40    


pas mieux :o


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 28-02-2003 à 22:45:26    

QI130 a écrit :

Eh ben voilà, suis obligé d'upgrader (j'étais en 5) !  
Vais faire fumer la connexion !


 
Si ça se trouve il va l'acheter online :whistle:


---------------
From now on, you will speak only when spoken to, and the first and last words out of your filthy sewers will be "Sir!"
Reply

Marsh Posté le 28-02-2003 à 22:48:02    

Tss tss tss :D
 
simplement que:
1/ je suis assez pressé pour cette fonction (j'ai 1 appli en wait pour ça et pas le temps de la créer from scratch):cry:
2/ s'agissant du paquet Delphi, 180 Mo à d/l, ça va pas passer inaperçu sur la bande passante...:eek2:
 
Pis, c pô môa ki ai parlé de piratage....:sol:
 
 
et à défaut du code, je suis preneur du n° de votre CB :hap: :hap:


Message édité par qi130 le 28-02-2003 à 22:58:25
Reply

Marsh Posté le 28-02-2003 à 22:48:02   

Reply

Marsh Posté le 28-02-2003 à 23:12:07    

QI130 a écrit :


Pis, c pô môa ki ai parlé de piratage....:sol:


non mais c'était évident à deviner
 
alors ban sodo gravier tout ça quoi
 
[:harkott]


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 28-02-2003 à 23:13:41    

QI130 a écrit :

1/ je suis assez pressé pour cette fonction (j'ai 1 appli en wait pour ça et pas le temps de la créer from scratch):cry:


 
ca aurait été 50* plus vite que de poser la question ou de télécharger un Delphi pirate et de l'installer
 
BAN  [:toad666]


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed