VB, dates, entiers, et pendaison

VB, dates, entiers, et pendaison - VB/VBA/VBS - Programmation

Marsh Posté le 28-06-2005 à 17:08:56    

Alors... (en VBS, donc non typé, et pas de "Format()" disponible)
 

Code :
  1. Dim truc
  3. truc = Now()


 
Bon, ok, truc contient un truc du genre :
 
28/07/2005 17:03:17
 
OK.
Moi, je veux "28/07/2005".
De base, je tente
 

Code :
  1. Date(truc)


 
Pas de pot, ça plante.
 
OK, bon, sans Format, il ne me reste que deux solutions, que je ne veux pas utiliser :
 

Code :
  1. Day(truc) & "/" & Month(truc) & "/" & Year(truc)


 
Sauf que là... Si sur la machine je suis en américain, je suis comme un con, j'ai interverti le jour et le mois.
 

Code :
  1. Left(truc, 10)


 
Sauf que là, si l'année n'est pas sur 4 chiffres, ou si je n'ai pas les 0 facultatifs, ça déconne.
 
Bon... Fait chier.
 
Et là, illumination : une date, ce n'est ni plus ni moins qu'un float sur lequel on applique un format en interne. Sur tous les systèmes, une date, c'est : (partie entière = jours depuis je sais plus quand) . (partie décimale = millisecondes depuis le début du jour)
 
Donc... Si je tente un...
 

Code :
  1. CDate(CLng(truc))


 
Bah... Ca marche :D

Reply

Marsh Posté le 28-06-2005 à 17:08:56   

Reply

Marsh Posté le 28-06-2005 à 17:14:18    

Y'avais aussi
 

Code :
  1. Left(truc, Instr(truc, " " ))


 
Mais bon, là on commence à plus rien comprendre non plus

Reply

Marsh Posté le 28-06-2005 à 19:02:40    

Arjuna a écrit :

Y'avais aussi
 

Code :
  1. Left(truc, Instr(truc, " " ))


 
Mais bon, là on commence à plus rien comprendre non plus


Ou plutôt: Split(truc, " " )


Message édité par AlainTech le 28-06-2005 à 19:02:59

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

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