Buona domenica

[i legend]

Ciao a tutti,
Buona domenica a tutti gli amici del forum
Ciao

 

[LuigiB]

Altrettanto Legend !! Ora visto che si parla di giorni della settimana e noi non ci fermiamo nemmeno la domenica e soprattutto questa è l'area dove si parla di codice eccolo li che ti sei incastrato da solo
questo breve script scrive a video l'id del giorno della settimana nel momento in cui lo si esegue ...
ora vorrei fargli scrivere il nome del giorno ,,,come faccio ? Puoi usare qualiiasi soluzione ti venga in mente ..eheh ciao !

Option Explicit
Sub Main
    Scrivi GetIdGiornoSettimana (Now)
    
End Sub
Function GetIdGiornoSettimana (data)
    ' torna l'id del giorno dellasettimana
    ' 1 lunedi
    ' 7 Domenica
    GetIdGiornoSettimana = WeekDay (data , vbMonday)
End Function

 

[silop2005]

[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 832"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD]Ciao i legend ,[/TD]
[/TR]
[TR]
[TD]buona domenica a te e a tutto il forum.[/TD]
[/TR]
[TR]
[TD]========================[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop [/TD]
[/TR]
[/TABLE]

 

[i legend]

Ciao
Ciao luigi , silop
Grazie
Troppo facile

Option Explicit
Sub Main
Dim  id
    Id=GetIdGiornoSettimana (Now)
Scrivi  weekdayname  (id,true, vbMonday )
    
End Sub
Function GetIdGiornoSettimana (data)
    ' torna l'id del giorno dellasettimana
    ' 1 lunedi
    ' 7 Domenica
    GetIdGiornoSettimana = WeekDay (data , vbMonday)
End Function

Scherzavo
Buona giornata

 

[i legend]

Function NomeGiornoSettimana (idGiorno)
NomeGiornoSettimana =weekdayname  ( idGiorno , true, vbMonday ) 
End Function

Ecco messo in funzione
Troppo corto
Ciaoooo

 

[rudivall]

Ciao Ilegend buona domenica, buona domenica anche a tutti gli amici del forum

 

[LuigiB]

ahah .. bravo ! .. .ahahhaha ! ciao

 

[i legend]

Ciao Rudy
Ciao a tutti
X luigi
Tutto qui ?
E io che pensavo che volevi farci scrivere una mega funzione
Per oggi finito i compiti