🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #328

Re: Formattazione data non annullabile

#328
From: Luca
Date: Sat, 12 Aug 2006 13:20
37 lines
2401 bytes
Il problema avviene quando formatti con dddd d mmmm yyyy!
se levi le prime 4 'd' (in modo da ottenere d mmmm  yyyy) dovrebbe 
funzionare.
Se proprio ti serve anche il giorno della settimana devi creare una 
'function' che elimini la parte iniziale della stringa. Cos�:

public function Elimina (testo as string) as string
    if testo="" then exit function
    for i=1 to len(testo)
        if mid(testo,i,1)=" " then exit for
    next
    Elimina=Right(testo, Len(testo) - i)
end function

"GG" <elle.elle456@libero.it> ha scritto nel messaggio 
news:I8GCg.68323$_J1.713281@twister2.libero.it...
> Luca ha scritto:
>> ora ho provato con nuova_data = Format(data_formattata, "m/d/yy")
>> ma funziona comunque
>>
>
> Mi provi queste 6 righe di codice e mi dici il risultato?????
>
>
> data_di_oggi = Date
> Form1.Label1.Caption = data_di_oggi
>
> nuova_data = Format(data_di_oggi, "dddd d mmmm yyyy")
> Form1.Label2.Caption = nuova_data
>
> vecchia_data = Format(nuova_data, "mm/dd/yy")
> Form1.Label3.Caption = vecchia_data
>
>
>
> Grazie 1000.
> GG 
Technical Details
Message-ID: <cAkDg.70122$zy5.1291578@twister1.libero.it>
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!meganewsservers.com!feeder2.on.meganewsservers.com!zen.net.uk!demorgan.zen.co.uk!news2.euro.net!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
References: <1VECg.68219$_J1.713031@twister2.libero.it> <coFCg.68257$_J1.712926@twister2.libero.it> <I8GCg.68323$_J1.713281@twister2.libero.it>

Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,ce7f3caf7a7cad9b
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!meganewsservers.com!feeder2.on.meganewsservers.com!zen.net.uk!demorgan.zen.co.uk!news2.euro.net!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail
From: "Luca" <santangelo_matteo@libero.it>
Newsgroups: free.it.visual-basic
References: <1VECg.68219$_J1.713031@twister2.libero.it> <coFCg.68257$_J1.712926@twister2.libero.it> <I8GCg.68323$_J1.713281@twister2.libero.it>
Subject: Re: Formattazione data non annullabile
Lines: 39
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2869
X-RFC2646: Format=Flowed; Response
X-Antivirus: avast! (VPS 0632-2, 10/08/2006), Outbound message
X-Antivirus-Status: Clean
Message-ID: <cAkDg.70122$zy5.1291578@twister1.libero.it>
Date: Sat, 12 Aug 2006 13:20:08 GMT
NNTP-Posting-Host: 151.31.187.181
X-Complaints-To: abuse@libero.it
X-Trace: twister1.libero.it 1155388808 151.31.187.181 (Sat, 12 Aug 2006 15:20:08 MET DST)
NNTP-Posting-Date: Sat, 12 Aug 2006 15:20:08 MET DST
Organization: [Infostrada]