IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Access
  New Posts New Posts RSS Feed - Catalogo delle funzioni, articoli e risorse utili
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

Topic ClosedCatalogo delle funzioni, articoli e risorse utili

 Post Reply Post Reply Page  <1 23456 19>
Author
Message
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 02/Mag/2011 at 15:43

Funzione n. 022  Alcuni metodi dell'oggetto Casella Combinata

Occorre l'ultima versione del programma

§ComboFunzioni1
Sub
Casella Combinata
Luky
§Alcuni metodi dell'oggetto Casella Combinata.§
metodo
11
Valore
gioa
Posizione
1

 


§Public Sub ComboFunzioni1(Metodo, Valore, Posizione)
Posizione = CInt(Posizione) 'Vba contrassegna il primo elemento con 0
'1 Aggiunge un elemento in coda
'2 Aggiunge un elemento All'inizio
'3 Rimuove il primo elemento
'4 Rimuove L'ultimo elemento
'5 Rimuove l'elemento della posizione predeterminata
'6 Restituisce il numero  delle colonne
'7 Restituisce il numero degli elementi
'8 Restituisce l'elemento, il successivo e il precedente
'9 Determina la posizione dell'elemento selezionato.
'10 Restituisce il valore della posizione data
'11 Seleziona il valore predeterminato nella combo
With Forms!menù.Combo1
.Visible = True
Select Case Metodo
 Case 1
  .AddItem (Valore)
 Case 2
  .AddItem Valore, 0
Case 3
   .RemoveItem (0)
Case 4
  .RemoveItem (.ListCount - 1)
Case 5
  .RemoveItem (Posizione - 1)
Case 6
  MsgBox "Il numero delle colonne è: " & .ColumnCount
Case 7
  MsgBox "Il numero degli elementi è: " & .ListCount
Case 8
   MsgBox "Posizione precedente: " & .Column(0, Posizione - 1) & vbCrLf & "Posizione richiesta: " & .Column(0, Posizione) & vbCrLf & "Posizione successiva: " & .Column(0, Posizione + 1) & vbCrLf
Case 9
  MsgBox "Hai selezionato l'elemento in " & .ListIndex + 1 & "° posizione"
Case 10
MsgBox .ItemData(Posizione - 1):
Case 11
 .Value = Valore: MsgBox "Hai selezionato " & Valore
End Select
.SetFocus
.Dropdown
End With
End Sub§

Dio è Amore e Pace
Catalogo funzioni
Back to Top
Sponsored Links


Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 03/Mag/2011 at 19:28

Funzione n. 023  Ricava il nome del file e l'estensione dal percorso completo

§EstraiNomeEstensione
Sub
FileCartelle
Luky
§Ricava nome del file e l'estensione.
Inserire il valore del PercosoCompleto es:
C:\Users\Luc\Desktop\adoXvb.doc§
PercosoCompleto
C:\Users\Luc\Desktop\adoXvb.doc

 

 

 


§Public Sub EstraiNomeEstensione(PercosoCompleto)
Dim PosLastSlash, PosPunto, i As Integer
Dim NomeFile, Estensione As String
For i = Len(PercosoCompleto) To 1 Step -1
  If Mid(PercosoCompleto, i, 1) = "\" Then PosLastSlash = i: Exit For
  If Mid(PercosoCompleto, i, 1) = "." Then PosPunto = i
Next i
NomeFile = Mid(PercosoCompleto, PosLastSlash + 1, PosPunto - PosLastSlash - 1)
Estensione = Right(PercosoCompleto, Len(PercosoCompleto) - PosPunto)
MsgBox "Il nome del file è: " & NomeFile & vbCrLf & "L'Estensione: " & Estensione
End Sub§

Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 04/Mag/2011 at 15:04
Funzione n. 024  Ottiene la data e l'ora del sistema e delle stringhe immesse.

§DataFunzioni1
Sub
Data e ora
Luky
§Ottiene la data e l'ora del sistema e delle stringhe immesse.§
Data
01/12/2011
Ora
2:24:33PM

 

 


§Public Sub DataFunzioni1(Data, Ora)
Data = DateValue(Data) 'trasformazione in data del valore stringa
'
MsgBox "La data immessa si scinde in " & vbCrLf & "Giorno: " & Day(Data) & vbCrLf & "Mese: " & Month(Data) & vbCrLf & "Anno: " & Year(Data)
'
MsgBox "Era " & WeekdayName(Weekday(Data), , 1) & ", " & Weekday(Data) & "° giorno della settimana del mese di " & MonthName(Month(Data))
'
MsgBox "Oggi è il: " & Date 'restituisce la data
'
MsgBox "L'orario dato: " & Ora & " si  scinde in: " & vbCrLf & "Ora= " & Hour(Ora) & vbCrLf & "Minuti= " & Minute(Ora) & vbCrLf & "Secondi= " & Second(Ora)
'
MsgBox "Adesso è il: " & Now 'restituisce il giorno e l'orario
'
MsgBox "Sono le ore: " & Time 'restituisce l'orario
'
Ora = TimeValue(Ora) 'trasformazione da stringa a formato ora
End Sub§



Edited by Luky
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 04/Mag/2011 at 15:06

Funzione n. 025  Ottiene da stringhe che rappresentano un anno, un mese e un giorno una data in formato date.
 

§DataFunzioni2
Sub
Data e ora
Luky
§Ricava da stringhe che rappresentano un anno, un mese e un giorno una data in formato date.
Anno, mese e giorno possono essere il risultato di operazioni matematiche.§
Anno
2010
Mese
05
Giorno
26

 


§Public Sub DataFunzioni2(Anno, Mese, Giorno)
MsgBox "I valori immessi corrispondondono alla data: " & DateSerial(Anno, Mese, Giorno)
MsgBox "Otto anni prima dell'anno in oggetto, 2 mesi dopo il mese in oggetto e 6 giorni dopo il giorno in oggetto era il: " & DateSerial(Anno - 8, Mese + 2, Giorno + 6)
End Sub§

Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 04/Mag/2011 at 15:07

Funzione n. 026  Ottiene da stringhe che rappresentano un ora, un minuto e un secondo una orario in formato time.
 

§DataFunzioni3
Sub
Data e ora
Luky
§Ricava da stringhe che rappresentano un ora, un minuto e un secondo una orario in formato time.
Ora, minuto e secondo possono essere il risultato di operazioni matematiche.§
Ora
3
Minuto
44
Secondo
56

 


§Public Sub DataFunzioni3(Ora, Minuto, Secondo)
MsgBox "I valori immessi corrispondondono all'ora: " & TimeSerial(Ora, Minuto, Secondo)
MsgBox "Dopo un ora, 10 minuti, e 20 secondi l'ora sarà: " & TimeSerial(Ora + 1, Minuto + 10, Secondo + 20)
End Sub§



Edited by Luky
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 06/Mag/2011 at 17:27

Funzione n. 027 Calcolo dell'età 

§CalcoloEtà
Funzione
Data e ora
Luky
§Calcolo dell'età (Dal sito comune)§
DataNascita
28/05/1957

 

 

 


§Public Function CalcoloEtà(DataNascita)
   Dim varEta As Variant
   varEta = DateDiff("yyyy", DataNascita, Now)
   If Date < DateSerial(Year(Now), Month(DataNascita), Day(DataNascita)) Then
       varEta = varEta - 1
   End If
   CalcoloEtà = varEta
MsgBox CalcoloEtà
End Function§

Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 06/Mag/2011 at 17:29

Funzione n. 028 Differenza di date

§DifferenzaDate
Sub
Data e ora
Luky
§Differenza fra due date espressa in anni e le frazioni di mesi e giorni.
Se la seconda data è "oggi" e la prima è la propria data di nascita, si ottiene l'età.
L'ordine delle date è ininfluente. Se la data è futura si ottiene il periodo che deve ancoraq trascorrere. Tiene conto del numero di giorni che ha il mese della prima data e se l'anno è bisestile.§
Data1
07/04/2010
Data2
06/05/2011

 

 


§Public Sub DifferenzaDate(Data1, data2)
Dim Anno, mese, Giorno, GiorniNelMese As Integer
Dim Anni, mesi, Giorni As Integer
Dim Futuro As Boolean
Dim DataNuova, appoggio   As Date
Futuro = False
Data1 = CDate(Data1): data2 = CDate(data2)
If Data1 > data2 Then
   appoggio = Data1
   Data1 = data2
   data2 = appoggio
End If
mese = Month(Data1)
Giorno = Day(Data1)
Anno = Year(Data1)
Select Case Month(Data1)
             Case 1, 3, 5, 7, 8, 10, 12
                  GiorniNelMese = 31
             Case 4, 6, 9, 11
                  GiorniNelMese = 30
             Case 2
             If ((Anno Mod 4) = 0 And (Anno Mod 100)) Or (Anno Mod 400) = 0 Then
                  GiorniNelMese = 29
             Else
                  GiorniNelMese = 28
             End If
End Select

5000
Anni = DateDiff("yyyy", Data1, data2)
If data2 < DateSerial(Year(data2), Month(Data1), Day(Data1)) Then
    Anni = Anni - 1
End If
    If Month(Data1) > Month(data2) Then   '-----------------------aaa
        If Day(Data1) > Day(data2) Then Giorni = GiorniNelMese - Day(Data1) + Day(data2): mesi = 11 - Month(Data1) + Month(data2)
        If Day(Data1) < Day(data2) Then Giorni = Day(data2) - Day(Data1):  mesi = 12 - Month(Data1) + Month(data2)
        If Day(Data1) = Day(data2) Then Giorni = 0:    mesi = 12 - Month(Data1) + Month(data2)
    End If
    If Month(Data1) = Month(data2) Then    '-----------------------
        If Day(Data1) > Day(data2) Then Giorni = GiorniNelMese - Day(Data1) + Day(data2): mesi = 11
        If Day(Data1) < Day(data2) Then Giorni = Day(data2) - Day(Data1): mesi = 0
        If Day(Data1) = Day(data2) Then Giorni = 0: mesi = 0
    End If
    If Month(Data1) < Month(data2) Then    '-----------------------
         mesi = Month(data2) - Month(Data1)
        If Day(Data1) > Day(data2) Then Giorni = GiorniNelMese - Day(Data1) + Day(data2): mesi = -Month(Data1) + Month(data2) - 1
        If Day(Data1) < Day(data2) Then Giorni = Day(data2) - Day(Data1): mesi = -Month(Data1) + Month(data2)
        If Day(Data1) = Day(data2) Then Giorni = 0
    End If
If Not Futuro Then
    MsgBox "Da una data all'altra ci sono:" & vbCrLf & "Anni: " & Anni & vbCrLf & "Mesi:   " & mesi & vbCrLf & "Giorni:  " & Giorni
    MsgBox "Espresso in" & vbCrLf & "giorni: " & DateDiff("d", Data1, data2) & vbCrLf & "in mesi: " & DateDiff("m", Data1, data2) & vbCrLf & "in trimestri: " & DateDiff("q", Data1, data2) & vbCrLf & "in settimane: " & DateDiff("ww", Data1, data2) & vbCrLf & "in ore: " & DateDiff("h", Data1, data2) & vbCrLf & "in minuti: " & DateDiff("n", Data1, data2) & vbCrLf & "in secondi: " & DateDiff("s", Data1, data2)
End If
If data2 > Date And Futuro = False Then
    Futuro = True: Data1 = Date
    GoTo 5000
End If
If Not Futuro Then Exit Sub
MsgBox "Mancano alla data" & vbCrLf & "Anni: " & Anni & vbCrLf & "Mesi:   " & mesi & vbCrLf & "Giorni:  " & Giorni
MsgBox "Espresso in" & vbCrLf & "giorni: " & DateDiff("d", Data1, data2) & vbCrLf & "in mesi: " & DateDiff("m", Data1, data2) & vbCrLf & "in trimestri: " & DateDiff("q", Data1, data2) & vbCrLf & "in settimane: " & DateDiff("ww", Data1, data2) & vbCrLf & "in ore: " & DateDiff("h", Data1, data2) & vbCrLf & "in minuti: " & DateDiff("n", Data1, data2) & vbCrLf & "in secondi: " & DateDiff("s", Data1, data2)
End Sub§



Edited by Luky
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 07/Mag/2011 at 19:23

Funzione n.029 DifferenzaDate(2)

§DifferenzaDate2
Sub
Data e ora
Luky
§Differenza di date (Funzione presa dal sito MasterDrive)
Ho tolto la gestione degli errori e l'inversione delle date, per sottolinearne la semplicità.
Non tiene conto del numero di giorni contenuto nel mese.§
Inizio
13/01/1984
Datax
07/05/2011

 

 


§Public Sub DifferenzaDate2(Inizio, Fine)
Dim wGiorni, wMese, Anni, mesi, Giorni As Integer
wGiorni = IIf(DateDiff("d", DatePart("d", Inizio), DatePart("d", Fine)) < 0, -1, 0)
wMese = DateDiff("m", Inizio, Fine) + wGiorni
Anni = Int(wMese / 12)
mesi = [wMese] - (Anni * 12)
Giorni = DateDiff("d", Day(Inizio) + [wGiorni] & "/" & Month(Fine) + [wGiorni] & "/" & Year(Fine), Fine)
MsgBox Anni & ", " & mesi & " e " & Giorni
End Sub§

Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 09/Mag/2011 at 21:33

Funzione n.030  Eval

§EvalFunzione
Funzione
Matematica
Luky
§Dimostrazione di Eval§
CasellaTesto
2+34+22

 

 

 


§Public Function EvalFunzione(CasellaTesto)
EvalFunzione=eval(CasellaTesto)
Msgbox EvalFunzione
 End Function§

Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 09/Mag/2011 at 21:41

Funzione n.031 Verifica se l'anno è bisestile

§Bisestile
Funzione
Data e ora
Luky
§Restituisce: true se l'anno è bisestile. Dal SitoComune.§
Anno
1977

 

 

 


§Public Function Bisestile(Anno) As Boolean
   'Autore: AntoGal
   'Accetta: Anno (4 cifre)
   'Restituisce: true se l'anno è bisestile
   Bisestile = ((Anno Mod 4) = 0 And (Anno Mod 100)) Or (Anno Mod 400) = 0
MsgBox " l'anno " & Anno & IIf(Bisestile = True, " era bisestile ", " non era bisestile  ")
End Function§

Dio è Amore e Pace
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  <1 23456 19>
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,061 seconds.