Fonctions relatives aux dates et heures

Codes specifiques à Windows
boddhi
Messages : 573
Inscription : lun. 26/avr./2010 16:14
Localisation : N 48° 1' 33.6" / E 0° 36' 11.3"

Fonctions relatives aux dates et heures

Message par boddhi »

Ci-dessous, quelques fonctions sur les dates selon le système local

Code : Tout sélectionner

; *------------------------------------------*
; |            (c) Boddhi - 2010             |
; *------------------------------------------*
; | OS : Windows                             |
; | Fonctions relatives aux dates locales    |
; *------------------------------------------*

EnableExplicit

; *******************
; **** FONCTIONS ****
; *******************
Procedure.l Date_Now() ; Retourne la date et l'heure système au format PureBasic
  Define.SYSTEMTIME DateSysteme
  Define.l ValeurRetour
  GetLocalTime_(DateSysteme)
  With DateSysteme
    ValeurRetour=Date(\wYear,\wMonth,\wDay,\wHour,\wMinute,\wSecond)
  EndWith
  ProcedureReturn ValeurRetour
EndProcedure

Procedure.s Date_Format(DatePB.l,Masque.s="") ; Retourne une date PureBasic en une chaine au format 'Masque' ou Local si Masque=""
  ;    d - Jour du mois sans 0 d'alignement
  ;   dd - Jour du mois avec un 0 d'alignement
  ;  ddd - Nom du jour de la semaine abrégé sur 3 caractères
  ; dddd - Nom du jour de la semaine entier
  ;    M - Mois sans 0 d'alignement
  ;   MM - Mois avec un 0 d'alignement
  ;  MMM - Nom du mois abrégé
  ; MMMM - Nom du mois entier
  ;    y - Année sur 2 chiffres sans 0 d'alignement pour les années < 10
  ;   yy - Année sur 2 chiffres
  ; yyyy - Année sur 4 chiffres
  ;    h - Heure sans 0 d'alignement sur 12h
  ;   hh - Heure avec 0 d'alignement sur 12h
  ;    H - Heure sans 0 d'alignement sur 24h
  ;   HH - Heure avec 0 d'alignement sur 24h
  ;    m - Minutes sans 0 d'alignement
  ;   mm - Minutes avec 0 d'alignement
  ;    s - Secondes sans 0 d'alignement
  ;   ss - Secondes avec 0 d'alignement
  ;   dw - Jour de la semaine (Lundi=1 -> Dimanche=7)
  Define.SYSTEMTIME DateSysteme
  Define.s Chaine,FORMATDATE_USERLOCALE,FORMATHEURE_USERLOCALE,AMPM
  Define.l Valeur
  If Masque=""
    FORMATDATE_USERLOCALE=Space(255)
    FORMATHEURE_USERLOCALE=Space(255)
    GetLocaleInfo_(#LOCALE_USER_DEFAULT,#LOCALE_SLONGDATE,@FORMATDATE_USERLOCALE,255)
    GetLocaleInfo_(#LOCALE_USER_DEFAULT,#LOCALE_STIMEFORMAT,@FORMATHEURE_USERLOCALE,255)
    Masque=FORMATDATE_USERLOCALE+" "+FORMATHEURE_USERLOCALE
  EndIf
  Masque=ReplaceString(Masque,"dw","%05")
  Masque=ReplaceString(Masque,"dddd","%01")
  Masque=ReplaceString(Masque,"ddd","%02")
  Masque=ReplaceString(Masque,"dd","%03")
  Masque=ReplaceString(Masque,"d","%04")
  Masque=ReplaceString(Masque,"MMMM","%10")
  Masque=ReplaceString(Masque,"MMM","%11")
  Masque=ReplaceString(Masque,"MM","%12")
  Masque=ReplaceString(Masque,"M","%13")
  Masque=ReplaceString(Masque,"yyyy","%20")
  Masque=ReplaceString(Masque,"yy","%21")
  Masque=ReplaceString(Masque,"y","%22")
  Masque=ReplaceString(Masque,"hh","%30")
  Masque=ReplaceString(Masque,"h","%31")
  Masque=ReplaceString(Masque,"HH","%32")
  Masque=ReplaceString(Masque,"H","%33")
  Masque=ReplaceString(Masque,"mm","%34")
  Masque=ReplaceString(Masque,"m","%35")
  Masque=ReplaceString(Masque,"ss","%36")
  Masque=ReplaceString(Masque,"s","%37")
  Masque=ReplaceString(Masque,"tt","%40")
  Masque=ReplaceString(Masque,"t","%41")
  With DateSysteme
    \wYear=Year(DatePB)
    \wMonth=Month(DatePB)
    \wDayOfWeek=DayOfWeek(DatePB)
    \wDay=Day(DatePB)
    \wHour=Hour(DatePB)
    \wMinute=Minute(DatePB)
    \wSecond=Second(DatePB)
    
    If FindString(Masque,"%01",1)>0
      Chaine=Space(255)
      GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"dddd",Chaine,255)
      Masque=ReplaceString(Masque,"%01",Chaine)
    EndIf
    If FindString(Masque,"%02",1)>0
      Chaine=Space(255)
      GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"ddd",Chaine,255)
      Masque=ReplaceString(Masque,"%02",Chaine)
    EndIf
    Masque=ReplaceString(Masque,"%03",RSet(Str(\wDay),2,"0"))
    Masque=ReplaceString(Masque,"%04",Str(\wDay))
    Masque=ReplaceString(Masque,"%05",Str(\wDayOfWeek))
    If FindString(Masque,"%10",1)
      Chaine=Space(255)
      GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"MMMM",Chaine,255)
      Masque=ReplaceString(Masque,"%10",Chaine)
    EndIf
    If FindString(Masque,"%11",1)>0
      Chaine=Space(255)
      GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"MMM",Chaine,255)
      Masque=ReplaceString(Masque,"%11",Chaine)
    EndIf
    Masque=ReplaceString(Masque,"%12",RSet(Str(\wMonth),2,"0"))
    Masque=ReplaceString(Masque,"%13",Str(\wMonth))
    Masque=ReplaceString(Masque,"%20",RSet(Str(\wYear),4,"0"))
    Masque=ReplaceString(Masque,"%21",RSet(Right(Str(\wYear),2),2,"0"))
    Masque=ReplaceString(Masque,"%22",Str(Val(Right(Str(\wYear),2))))
    If FindString(Masque,"%30",1)>0 Or FindString(Masque,"%31",1)>0 
      If \wHour>=12:Valeur=\wHour-12:Else:Valeur=\wHour:EndIf
      Masque=ReplaceString(Masque,"%30",RSet(Str(Valeur),2,"0"))
      Masque=ReplaceString(Masque,"%31",Str(Valeur))
    EndIf
    Masque=ReplaceString(Masque,"%32",RSet(Str(\wHour),2,"0"))
    Masque=ReplaceString(Masque,"%33",Str(\wHour))
    Masque=ReplaceString(Masque,"%34",RSet(Str(\wMinute),2,"0"))
    Masque=ReplaceString(Masque,"%35",Str(\wMinute))
    Masque=ReplaceString(Masque,"%36",RSet(Str(\wSecond),2,"0"))
    Masque=ReplaceString(Masque,"%37",Str(\wSecond))
    If \wHour<12:AMPM="AM":Else:AMPM="PM":EndIf
    If FindString(Masque,"%40",1)>0
      Masque=ReplaceString(Masque,"%40",AMPM)
    EndIf
    If FindString(Masque,"%41",1)>0
      Masque=ReplaceString(Masque,"%41",Left(AMPM,1))
    EndIf
  EndWith
  ProcedureReturn Masque
EndProcedure

Procedure.s Date_LocalDay(Jour.b,Mode.b=0) ; Retourne le nom (mode 0:complet 1:abrégé) du Jour
  Define.s Chaine,Chaine2
  Define.l DatePB
  Define.SYSTEMTIME DateSysteme
  If Jour>=1 And Jour<=7
    DatePB=Date(1973,1,Jour,0,0,0)
    With DateSysteme
      \wYear=Year(DatePB)
      \wMonth=Month(DatePB)
      \wDay=Day(DatePB)
    EndWith
    Chaine=Space(255)
    If Mode=0:Chaine2="ddd":Else:Chaine2="dddd":EndIf
    GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,Chaine2,Chaine,255)
  EndIf
  ProcedureReturn Chaine
EndProcedure 

Procedure.s Date_LocalMonth(Mois.b,Mode.b=0) ; Retourne le nom (mode 0:complet 1:abrégé) du Mois
  Define.s Chaine,Chaine2
  Define.l DatePB
  Define.SYSTEMTIME DateSysteme
  If Mois>=1 And Mois<=12
    DatePB=Date(1970,Mois,1,0,0,0)
    With DateSysteme
      \wYear=Year(DatePB)
      \wMonth=Month(DatePB)
      \wDay=Day(DatePB)
    EndWith
    Chaine=Space(255)
    If Mode=0:Chaine2="MMM":Else:Chaine2="MMMM":EndIf
    GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,Chaine2,Chaine,255)
  EndIf
  ProcedureReturn Chaine
EndProcedure 

; Retourne la date du jour au format système local
Debug Date_Format(Date_Now())
; Retourne la date du jour selon un masque
Debug Date_Format(Date_Now(),"dddd dd MMMM yyyy")
; Retourne la date du jour et l'heure actuelle selon un masque
Debug Date_Format(Date_Now(),"dd/MM/yy hh:mm:ss")
; Retourne le nom du jour et du mois d'aujourd'hui
Debug "Nous sommes un "+Date_LocalDay(Val(Date_Format(Date_Now(),"dw")))+" du mois de "+Date_LocalMonth(Val(Date_Format(Date_Now(),"M")))
; Retourne le n° du jour de la semaine
Debug "Nous sommes le "+Date_Format(Date_Now(),"dw")+"e jour de la semaine"
Edit : Correction du code
Dernière modification par boddhi le ven. 15/oct./2010 13:01, modifié 2 fois.
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Fonctions relatives aux dates et heures

Message par Backup »

erreur ligne 178 ;)
boddhi
Messages : 573
Inscription : lun. 26/avr./2010 16:14
Localisation : N 48° 1' 33.6" / E 0° 36' 11.3"

Re: Fonctions relatives aux dates et heures

Message par boddhi »

Exact !!!
Quel boeuf, j'ai rajouté d'autres exemples et modifié entre-temps, chez moi, la nature des arguments (Mode.b=0) sans mettre à jour le code posté.

Correction apportée sur le premier post.
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Fonctions relatives aux dates et heures

Message par Backup »

Merci pour ton partage :)

ça va rejoindre ma collection de codes :)

ps lorsque tu fais une procedure
laisse toujours ton pseudo dedans
comme ça on sait dans le futur qui a fait quoi , c'est signé , et plus sympath :)

par exemple :

Code : Tout sélectionner

Procedure.s Date_LocalMonth(Mois.b,Mode.b) ; Retourne le nom (mode 0:complet 1:abrégé) du Mois
   ; procedure de boddhi
   Define.s Chaine,Chaine2
   Define.l DatePB
   Define.SYSTEMTIME DateSysteme
   If Mois>=1 And Mois<=12
      DatePB=Date(1970,Mois,1,0,0,0)
      With DateSysteme
         \wYear=Year(DatePB)
         \wMonth=Month(DatePB)
         \wDay=Day(DatePB)
      EndWith
      Chaine=Space(255)
      If Mode=0:Chaine2="MMM":Else:Chaine2="MMMM":EndIf
      GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,Chaine2,Chaine,255)
   EndIf
   ProcedureReturn Chaine
EndProcedure

Avatar de l’utilisateur
flaith
Messages : 1487
Inscription : jeu. 07/avr./2005 1:06
Localisation : Rennes
Contact :

Re: Fonctions relatives aux dates et heures

Message par flaith »

modifie aussi les lignes 57 et 58 dans ce sens :

Code : Tout sélectionner

    Masque=ReplaceString(Masque,"dw","%05")
    Masque=ReplaceString(Masque,"d","%04")
sinon il va faire une verif de 'd' et laisser 'w' :wink:
Dernière modification par flaith le ven. 15/oct./2010 13:01, modifié 1 fois.
boddhi
Messages : 573
Inscription : lun. 26/avr./2010 16:14
Localisation : N 48° 1' 33.6" / E 0° 36' 11.3"

Re: Fonctions relatives aux dates et heures

Message par boddhi »

Dobro a écrit :ps lorsque tu fais une procedure
laisse toujours ton pseudo dedans
comme ça on sait dans le futur qui a fait quoi , c'est signé , et plus sympath :)
Sincèrement, j'ai codé ces lignes il y a déjà qq années et me suis probablement inspiré d'autres codes écrits par d'autres... Alors m'en attribuer le mérite seul et entier serait bien vaniteux...

C'est, à mes yeux, juste une brique ajouté à l'édifice. En espérant seulement qu'elle serve à l'occasion à qq'un. Pas plus... :D
Avatar de l’utilisateur
flaith
Messages : 1487
Inscription : jeu. 07/avr./2005 1:06
Localisation : Rennes
Contact :

Re: Fonctions relatives aux dates et heures

Message par flaith »

J'ai un peu modifié ton code pour avoir les bonnes valeurs qui s'affichent :

Code : Tout sélectionner

; *------------------------------------------*
; |            (c) Boddhi - 2010             |
; *------------------------------------------*
; | OS : Windows                             |
; | Fonctions relatives aux dates locales    |
; *------------------------------------------*

EnableExplicit

; *******************
; **** FONCTIONS ****
; *******************
Procedure.l Date_Now() ; Retourne la date et l'heure système au format PureBasic
    Define.SYSTEMTIME DateSysteme
    Define.l ValeurRetour
    GetLocalTime_(DateSysteme)
    With DateSysteme
        ValeurRetour=Date(\wYear,\wMonth,\wDay,\wHour,\wMinute,\wSecond)
    EndWith
    ProcedureReturn ValeurRetour
EndProcedure

Procedure.s Date_Format(DatePB.l,Masque.s="") ; Retourne une date PureBasic en une chaine au format 'Masque' ou Local si Masque=""
    ;    d - Jour du mois sans 0 d'alignement
    ;   dd - Jour du mois avec un 0 d'alignement
    ;  ddd - Nom du jour de la semaine abrégé sur 3 caractères
    ; dddd - Nom du jour de la semaine entier
    ;    M - Mois sans 0 d'alignement
    ;   MM - Mois avec un 0 d'alignement
    ;  MMM - Nom du mois abrégé
    ; MMMM - Nom du mois entier
    ;    y - Année sur 2 chiffres sans 0 d'alignement pour les années < 10
    ;   yy - Année sur 2 chiffres
    ; yyyy - Année sur 4 chiffres
    ;    h - Heure sans 0 d'alignement sur 12h
    ;   hh - Heure avec 0 d'alignement sur 12h
    ;    H - Heure sans 0 d'alignement sur 24h
    ;   HH - Heure avec 0 d'alignement sur 24h
    ;    m - Minutes sans 0 d'alignement
    ;   mm - Minutes avec 0 d'alignement
    ;    s - Secondes sans 0 d'alignement
    ;   ss - Secondes avec 0 d'alignement
    ;   dw - Jour de la semaine (Lundi=1 -> Dimanche=7)
    Define.SYSTEMTIME DateSysteme
    Define.s Chaine,FORMATDATE_USERLOCALE,FORMATHEURE_USERLOCALE,AMPM
    Define.l Valeur
    If Masque=""
        FORMATDATE_USERLOCALE=Space(255)
        FORMATHEURE_USERLOCALE=Space(255)
        GetLocaleInfo_(#LOCALE_USER_DEFAULT,#LOCALE_SLONGDATE,@FORMATDATE_USERLOCALE,255)
        GetLocaleInfo_(#LOCALE_USER_DEFAULT,#LOCALE_STIMEFORMAT,@FORMATHEURE_USERLOCALE,255)
        Masque=FORMATDATE_USERLOCALE+" "+FORMATHEURE_USERLOCALE
    EndIf
    Masque=ReplaceString(Masque,"dddd","%01")
    Masque=ReplaceString(Masque,"ddd","%02")
    Masque=ReplaceString(Masque,"dd","%03")
    Masque=ReplaceString(Masque,"dw","%04")
    Masque=ReplaceString(Masque,"d","%05")
    Masque=ReplaceString(Masque,"MMMM","%10")
    Masque=ReplaceString(Masque,"MMM","%11")
    Masque=ReplaceString(Masque,"MM","%12")
    Masque=ReplaceString(Masque,"M","%13")
    Masque=ReplaceString(Masque,"yyyy","%20")
    Masque=ReplaceString(Masque,"yy","%21")
    Masque=ReplaceString(Masque,"y","%22")
    Masque=ReplaceString(Masque,"hh","%30")
    Masque=ReplaceString(Masque,"h","%31")
    Masque=ReplaceString(Masque,"HH","%32")
    Masque=ReplaceString(Masque,"H","%33")
    Masque=ReplaceString(Masque,"mm","%34")
    Masque=ReplaceString(Masque,"m","%35")
    Masque=ReplaceString(Masque,"ss","%36")
    Masque=ReplaceString(Masque,"s","%37")
    Masque=ReplaceString(Masque,"tt","%40")
    Masque=ReplaceString(Masque,"t","%41")
    With DateSysteme
        \wYear=Year(DatePB)
        \wMonth=Month(DatePB)
        \wDayOfWeek=DayOfWeek(DatePB)
        \wDay=Day(DatePB)
        \wHour=Hour(DatePB)
        \wMinute=Minute(DatePB)
        \wSecond=Second(DatePB)
        
        If FindString(Masque,"%01",1)>0
            Chaine=Space(255)
            GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"dddd",Chaine,255)
            Masque=ReplaceString(Masque,"%01",Chaine)
        EndIf
        If FindString(Masque,"%02",1)>0
            Chaine=Space(255)
            GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"ddd",Chaine,255)
            Masque=ReplaceString(Masque,"%02",Chaine)
        EndIf
        Masque=ReplaceString(Masque,"%03",RSet(Str(\wDay),2,"0"))
        Masque=ReplaceString(Masque,"%04",Str(\wDayOfWeek))
        Masque=ReplaceString(Masque,"%05",Str(\wDay))
        If FindString(Masque,"%10",1)
            Chaine=Space(255)
            GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"MMMM",Chaine,255)
            Masque=ReplaceString(Masque,"%10",Chaine)
        EndIf
        If FindString(Masque,"%11",1)>0
            Chaine=Space(255)
            GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,"MMM",Chaine,255)
            Masque=ReplaceString(Masque,"%11",Chaine)
        EndIf
        Masque=ReplaceString(Masque,"%12",RSet(Str(\wMonth),2,"0"))
        Masque=ReplaceString(Masque,"%13",Str(\wMonth))
        Masque=ReplaceString(Masque,"%20",RSet(Str(\wYear),4,"0"))
        Masque=ReplaceString(Masque,"%21",RSet(Right(Str(\wYear),2),2,"0"))
        Masque=ReplaceString(Masque,"%22",Str(Val(Right(Str(\wYear),2))))
        If FindString(Masque,"%30",1)>0 Or FindString(Masque,"%31",1)>0 
            If \wHour>=12:Valeur=\wHour-12:Else:Valeur=\wHour:EndIf
            Masque=ReplaceString(Masque,"%30",RSet(Str(Valeur),2,"0"))
            Masque=ReplaceString(Masque,"%31",Str(Valeur))
        EndIf
        Masque=ReplaceString(Masque,"%32",RSet(Str(\wHour),2,"0"))
        Masque=ReplaceString(Masque,"%33",Str(\wHour))
        Masque=ReplaceString(Masque,"%34",RSet(Str(\wMinute),2,"0"))
        Masque=ReplaceString(Masque,"%35",Str(\wMinute))
        Masque=ReplaceString(Masque,"%36",RSet(Str(\wSecond),2,"0"))
        Masque=ReplaceString(Masque,"%37",Str(\wSecond))
        If \wHour<12:AMPM="AM":Else:AMPM="PM":EndIf
        If FindString(Masque,"%40",1)>0
            Masque=ReplaceString(Masque,"%40",AMPM)
        EndIf
        If FindString(Masque,"%41",1)>0
            Masque=ReplaceString(Masque,"%41",Left(AMPM,1))
        EndIf
    EndWith
    ProcedureReturn Masque
EndProcedure

Procedure.s Date_LocalDay(Jour.b,Mode.b=0) ; Retourne le nom (mode 0:complet 1:abrégé) du Jour
    Define.s Chaine,Chaine2
    Define.l DatePB
    Define.SYSTEMTIME DateSysteme
    If Jour>=1 And Jour<=7
        DatePB=Date(1973,1,Jour,0,0,0)
        With DateSysteme
            \wYear=Year(DatePB)
            \wMonth=Month(DatePB)
            \wDay=Day(DatePB)
        EndWith
        Chaine=Space(255)
        If Mode=0:Chaine2="dddd":Else:Chaine2="ddd":EndIf
        GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,Chaine2,Chaine,255)
    EndIf
    ProcedureReturn Chaine
EndProcedure 

Procedure.s Date_LocalMonth(Mois.b,Mode.b=0) ; Retourne le nom (mode 0:complet 1:abrégé) du Mois
    Define.s Chaine,Chaine2
    Define.l DatePB
    Define.SYSTEMTIME DateSysteme
    If Mois>=1 And Mois<=12
        DatePB=Date(1970,Mois,1,0,0,0)
        With DateSysteme
            \wYear=Year(DatePB)
            \wMonth=Month(DatePB)
            \wDay=Day(DatePB)
        EndWith
        Chaine=Space(255)
        If Mode=0:Chaine2="MMMM":Else:Chaine2="MMM":EndIf
        GetDateFormat_(#LOCALE_USER_DEFAULT,0,DateSysteme,Chaine2,Chaine,255)
    EndIf
    ProcedureReturn Chaine
EndProcedure 

; Retourne la date du jour au format système local
Debug Date_Format(Date_Now())
; Retourne la date du jour selon un masque
Debug Date_Format(Date_Now(),"dddd dd MMMM yyyy")
; Retourne la date du jour et l'heure actuelle selon un masque
Debug Date_Format(Date_Now(),"dd/MM/yy hh:mm:ss")
; Retourne le nom du jour et du mois d'aujourd'hui
Debug "Nous sommes un "+Date_LocalDay(Val(Date_Format(Date_Now(),"dw")))+" du mois de "+Date_LocalMonth(Val(Date_Format(Date_Now(),"M")))
; Retourne le n° du jour de la semaine
Debug "Nous sommes le "+Date_Format(Date_Now(),"d")+"e jour de la semaine"
Et aussi, merci pour ton code, hop adopté :)
boddhi
Messages : 573
Inscription : lun. 26/avr./2010 16:14
Localisation : N 48° 1' 33.6" / E 0° 36' 11.3"

Re: Fonctions relatives aux dates et heures

Message par boddhi »

@flaith
C'était dans cet ordre au départ... et en voulant ajouter et améliorer en cours d'édition... j'ai fait des conneries.
Ca m'apprendra à vouloir être trop perfectionniste !!! :lol:

Comme disait je ne sais plus qui, le mieux est l'ennemi du bien !!!
Ollivier
Messages : 4190
Inscription : ven. 29/juin/2007 17:50
Localisation : Encore ?
Contact :

Re: Fonctions relatives aux dates et heures

Message par Ollivier »

Aldous Huxley

Le bien actuel apporte au pire à venir tandis que la mal actuel apporte au meilleur à venir.
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :

Re: Fonctions relatives aux dates et heures

Message par Chris »

Du boulot pour Dobro. :mrgreen:
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Fonctions relatives aux dates et heures

Message par Backup »

Chris a écrit :Du boulot pour Dobro. :mrgreen:
comme je l'ai deja dis , ici :
http://www.purebasic.fr/french/viewtopi ... 21&t=11187

n'écrivez pas derriere un robot
en répondant, vous effacez l'information du dernier membre qui a ecrit

et c'est VOTRE pseudo que je vois dans les nouveau messages posté
et pas celui du robot ;)

Merci :)
Avatar de l’utilisateur
case
Messages : 1527
Inscription : lun. 10/sept./2007 11:13

Re: Fonctions relatives aux dates et heures

Message par case »

ok mais si on a un truc a dire sur le sujet on vas quand même pas attendre ton bon vouloir si ?
fin j'dis ca, j'dis rien et si par exemple t'es entre deux cocotier a bronzer dans une ile lointaine sans le net on vas plus jamais posté parceque t'a pas viré le robot ? :p

au pire c'est pas important si t'effaces pas un pauvre post de robot , la bdd du forum vas pas exploser et on vas pas tous mourir écrasés par une météorite géante a cause d'un pauvre post que t'aurais loupé :)

allez je []----->


désolé pour le Hors sujet ,)
ImageImage
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Fonctions relatives aux dates et heures

Message par Backup »

case a écrit :ok mais si on a un truc a dire sur le sujet on vas quand même pas attendre ton bon vouloir si ?
fin j'dis ca, j'dis rien et si par exemple t'es entre deux cocotier a bronzer dans une ile lointaine sans le net on vas plus jamais posté parceque t'a pas viré le robot ? :p

au pire c'est pas important si t'effaces pas un pauvre post de robot , la bdd du forum vas pas exploser et on vas pas tous mourir écrasés par une météorite géante a cause d'un pauvre post que t'aurais loupé :)

allez je []----->


désolé pour le Hors sujet ,)

ta réponse vol pas tres haut .. :roll:
si tu avais lu mon post sur le sujet depuis le début;

je dis de ne pas ecrire derriere un robot POUR ME DIRE QU'UN ROBOT A ECRIT !!!

j'espère que c'est assez gros pour toi là ??

si tu veux ecrire un truc relatif au topic , fais le bien sur ... :roll:

ici je répond a Chris qui ne suit pas le sujet du post (les dates)
mais qui écrit pour parler du robot ; et donc a ce titre participe au Spam ...

de plus un Robot n'ecrit rarement qu'un message !!
joechou par exemple postait 10 , 15 messages a chaque fois !
le fait de ne pas écrire apres un robot , me facilite la vie pour nettoyer les messages d'un coup

mais tu peux faire comme tu le veux.... :mrgreen:

maintenant , c'est sur... tu peux lire une phrase sur deux, transformer mes propos.. :roll:

c'est marrant , ya toujours un mec pour jouer les moustiques, a essayer de me mettre le nez dedans.... en interprétant a loisir , mes propos...

si tu trouve que je joue pas mon role comme il faut , on va demander a Fred
que tu prenne ma place.... je pourrai alors allez bronzer sous les cocotiers ;)

ta réaction me fatigue plus , que les robots a vrais dire :roll:
Répondre