[VBA Access 2000] Conversione del formato della Data

[Vinsent]

Voglio imparare ad usare VBA e giusto per avere un' "obiettivo" stò cercando di realizzare l' equivalente di un mio programma in VB.NET.
In quest' ultimo, ho una textbox in cui va inserita una data che deve essere utilizzata nel formato "dd/mm/yyyy", quindi via codice ho previsto di convertire il testo digitato come "ddmmyy" o "ddmmyyyy" in "dd/mm/yyyy".
In VBA, da "dd/mm/yyyy" a "ddmmyyyy" otttengo il valore corretto, viceversa no...:

Private Sub test_data()
Dim a As String
Dim b As String
Dim a_out As String
Dim b_out As String
a = "01/01/2001"
b = "01012001"
a_out = Format(a, "ddmmyyyy")
b_out = Format(b, "dd/mm/yyyy")
Debug.Print a & " = " & a_out
Debug.Print b & " = " & b_out
End Sub

Il risultato del codice è:

01/01/2001 = 01012001
01012001 = 05/10/4670 .............

Dopo varie ricerche non sono riuscito a capire quale sia il mio errore, mentre per risolverlo stavo pensando di contare i caratteri e di conseguenza modificare la stringa nel modo appropriato.
Qualche consiglio o info?
Grazie!

[kalosjo]

semplicemente "01012001" non è una data

quindi il format sbaglia

[escocat]

Eh con le date c'è da uscire pazzi, soprattutto se si lavora solo con le stringhe (ancora di più se usi DateTime).

01/02/2012
010212
01022012
01.02.12
1.2.2012
01-02-2012
01-02-12

Detto tra noi, se fossi in te mi costruirei una bella funzione che prende una stringa in uno di
questi formati e restituisce una stringa gg/mm/aaaa o come piace a te.

[gibra]

Si diventa pazzi quando ci si inventa codice astruso, e non si conoscono le 'regole della programmazione'.
Non serve alcuna nuova funzione, ci mancherebbe, con tutte quelle che esistono già.
Basta studiarne l'uso, invece di arrampicarsi sugli specchi.

[escocat]

Gibra, è' una cosa molto divertente creare funzioni "ad hoc" ed in più non è vero che ciò dimostra di non conoscere la programmazione. Anzi... bisogna proprio conoscerla!
...se poi tu conosci qualche metodo del .NET Framework 4.0 che faccia esattamente quello che ho detto io faccelo sapere, tanto di guadagnato.
Un abbraccio.

[alka]

Originariamente inviato da escocat
...se poi tu conosci qualche metodo del .NET Framework 4.0

Stiamo parlando di VBA qui.

[escocat]

Ah già scusate...

Errata Corrige:
...e se poi tu conosci qualche diavoleria VBA che faccia ecc. ecc. me la dici e io me la trasformo in C#

[Vinsent]

Originariamente inviato da kalosjo
semplicemente "01012001" non è una data quindi il format sbaglia

Cioè, non è un formato supportato?
01012001 per diventare 05/10/4670 come viene interpretato?
...non fraintendetemi...voglio solo capire!

Originariamente inviato gibra
Si diventa pazzi quando ci si inventa codice astruso, e non si conoscono le 'regole della programmazione'.
Non serve alcuna nuova funzione, ci mancherebbe, con tutte quelle che esistono già.
Basta studiarne l'uso, invece di arrampicarsi sugli specchi.

Ho cercato cosa studiare...ma forse ho cercato male...help me!!!

Per escocat, copio/incollo il codice in vb.net che ho scritto:

   Dim dataconv As String = TextBox_data.Text
   Try
       Dim formats As String() = New String() {"ddMMyy", "ddMMyyyy", "dd/MM/yy"}
       Dim result = DateTime.ParseExact(dataconv, formats, _
                        System.Globalization.CultureInfo.CurrentCulture, _
                        System.Globalization.DateTimeStyles.None)
       TextBox_data.Text = CStr(result)
    Catch ex As System.Exception
        'messaggio di avviso
    End Try

Dove 'formats' è la "maschera" che contiene i formati in input, qui ti puoi sbizarrire...

Comunque, partendo dal presupposto di kalosjo, in VBA per ora ho scritto questo:

Private Sub test_data()
    Dim a(2) As String
    Dim a_out As String
    a(0) = "010101"
    a(1) = "01/01/01"
    a(2) = "01012001"
    For i = 0 To UBound(a)
        a_out = ""
        Select Case Len(a(i))
            Case 6
                a_out = Format(a(i), "00/00/00")
                a_out = Format(a_out, "dd/mm/yyyy")
                Debug.Print "caso 010101  : " & a(i) & " = " & a_out
            Case 8
                If Mid(a(i), 3, 1) = "/" Then
                    a_out = Format(a(i), "dd/mm/yyyy")
                    Debug.Print "caso 01/01/01: " & a(i) & " = " & a_out
                Else
                    a_out = Format(a(i), "00/00/0000")
                    Debug.Print "caso 01012001: " & a(i) & " = " & a_out
                End If
        End Select
    Next i
End Sub

Il risultato è:

caso 010101 : 010101 = 01/01/2001
caso 01/01/01: 01/01/01 = 01/01/2001
caso 01012001: 01012001 = 01/01/2001

Al codice manca la verifica se la stringa è una data valida, che ho omesso per non allungare ancora il post...

Scusate la lunghezza, l' OT in vb.net...e l' ignoranza...ringrazio per ogni parere/consiglio/spunto che mi vorrete dare.

Vincenzo

[kalosjo]

format("0","dd/mm/yyyy") restituisce "30/12/1899"

Credo che 01012001 siano esattamente il numero di giorni dal 30/12/1899 al 05/10/4670 (ovviamente lo zero iniziale non si considera....)

Una sorta di timestamp sballato di linux

[Vinsent]

Originariamente inviato da kalosjo
format("0","dd/mm/yyyy") restituisce "30/12/1899"

Credo che 01012001 siano esattamente il numero di giorni dal 30/12/1899 al 05/10/4670 (ovviamente lo zero iniziale non si considera....)

Una sorta di timestamp sballato di linux

Grazie! Ho fatto un paio di prove, ad intuito, ho visto + o - come gira l' "ingranaggio":

Debug.Print Format("0", "dd/mm/yyyy")
Debug.Print Format("365", "dd/mm/yyyy")
Debug.Print Format("729", "dd/mm/yyyy")
Debug.Print Format("730", "dd/mm/yyyy")
Debug.Print Format("1,1,1", "dd/mm/yyyy")
Debug.Print Format("19,07,10", "dd/mm/yyyy")
Debug.Print Format("31,12,12", "dd/mm/yyyy")
Debug.Print Format("32,12,12", "dd/mm/yyyy")

Risultato:
30/12/1899
30/12/1900
29/12/1901
30/12/1901
01/01/2001
19/07/2010
31/12/2012
12/12/1932

Mi sono fatto un' idea su cosa cercare ma data l' ora e l' afa non ho le forze....vedrò domani se trovo della documentazione su msdn.
Grazie ancora.

Vincenzo