Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
RAND() not very random
Message
De
21/09/2006 15:00:57
 
 
À
21/09/2006 14:45:22
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Divers
Thread ID:
01155607
Message ID:
01156150
Vues:
27
Certainly feels like it to me :o)


>a bit verbose today ? and living dangerously as well ??
>
>
>*lcfilename = (ALLTRIM(STR(yEAR(DATEtime()))) ;
>	+PADL(ALLTRIM(STR(month(DATEtim()))),2,'0') ;
>	+PADL(ALLTRIM(STR(day(DATEtime()))),2,'0') ;
>	+"@"+CHRTRAN(substr(TTOC(DATETIME()),AT(CHR(32),chrtran(TTOC(DATETIME()),':',''))+1),':','') ;
>	+sys(2015))+sys(3)+'.TXT'
>
>local ltNow
>ltNow = datetime()
>lcFileName = dtos(m.ltNow) + "@" ;
>               + left(chrtran(time(m.ltNow),":",""),6 );
>               + sys(2015) + sys(3) + '.TXT'
>? lcFilename
>
>consider the clock also ticking wile the expression is executing and shudder at the dangers of midnight rollover during that time.
>
>Sorry couldn't resist - could it be friday ?
>
>regards
>
>thomas
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform