Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Trovare la lettera iniziale di un giorno

Ciao, allora.....ho una variabile String contenente una data:
Dim DataCorr as Astring
DataCorr="01/01/2002"
Qual'è il metodo più veloce per trovare la lettera del giorno?
Mi spiego, oggi è giovedì 28 novembre 2002.....vorrei una funzione dove:
Msgbox LetteraGiorno("28/11/2002")
mi appaia G e così via.......D per domenica e cose del genere......
io adesso faccio:
Lettera = UCase(Mid$(WeekdayName(Weekday(DataCorr, vbMonday), True,
vbMonday), 1, 1))
c'è qualcosa di più veloce ed efficiente?
grazie!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
---
"Tu devi capire che lei è nuova a queste cose..."
"Bhè, e che cosa ci vuole?"
"Ci vuole, ci vuole, è questione di orizzonti che non è abituata a
vedere..."
Una persona che conosco, 8 Novembre 2002

 vbMonday), 1, 1))
Lettera = UCase(Left$(WeekdayName(Weekday(DataCorr, vbMonday), True,
vbMonday), 1))
... 1 char in + per il nome della funzione...
... ma 2 char in meno per i parametri...:
...più efficiente...   ;-PPPPPPPPPPPP
...scherzi a parte: mi sembra la soluzione più semplice:
è il caso di non dormirci sopra?
Semmai, metterei un bel vbusesystem al posto della vbmonday.
ciao
ugo

sě, hai ragione, ho usato la Left$......
cmq, sto cercando di ottimizzare alcune routine e quando ho visto la riga
che ho indicato prima, mi sono chiesto se per ricavare la prima lettera del
giorno devo veramente utilizzare 3/4 funzioni......
pensavo ci fosse qualche sistema piů veloce......
grazie!!!
good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
---
"Tu devi capire che lei č nuova a queste cose..."
"Bhč, e che cosa ci vuole?"
"Ci vuole, ci vuole, č questione di orizzonti che non č abituata a


 vbMonday), 1))
Posso giocare anch'io? :P
Vediamo:
Lettera = UCase$(Left$(Format$(DataCorr, "ddd"), 1))
Anche se a dire il vero in un certo senso preferisco la tua.
Ciao
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

 Qual'č il metodo piů veloce per trovare la lettera del giorno?
Left$(format$(DataCorr,"ddd"),1)
Se la vuoi maiuscola, serve un Ucase$ davanti
Ciao
*Roby*

 Posso giocare anch'io? :P
Acc. Mi hai fregato sul tempo. :-)
Ciao
*Roby*

 Lettera = UCase$(Left$(Format$(DataCorr, "ddd"), 1))
acc... effettivamente... avrei dovuto stare sveglio a pensare...  ;-)
ciao
ugo


Solo un piccolo problema......
quando DataCorr="02/01/2002" visto che di stringa trattasi.....sara'
mercoledi o venerdi?
spero sia chiara la differenza !
CIAO
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002

 mercoledi o venerdi?
In effetti questo è un falso problema: DataCorr *NON* può essere
"01/01/2002", al massimo #01/01/2002#.


 "01/01/2002", al massimo #01/01/2002#.
Che strano....quando scrivo
DataCorr=#01/01/2002#
mi da syntax error :-)
Scherzi a parte, la cosa migliore e'
Dim DataCorr as Date
DataCorr=DateSerial(1,1,2002)
.....
