+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 8 su 8

tutti i mesi maggiori di.....

  1. #1
    sal21 non è in linea Scolaretto
    Ho una variabile dimensionata As string, tipo Miastringa="SET 2014"

    Dovrei elencare tutti i mesi/anno maggiori del valore di Miastringa

    Esempio:

    Se Miastringa è uguale a SET 2014

    OTT 2014
    NOV 2014
    DIC 2014

    Se Miastringa è uguale a LUG 2014

    AGO 2014
    SET 2014
    OTT 2014
    NOV 2014
    DIC 2014

    Ecc..

    in effetti dovrei riempire un combobox con tutti i mesi anno maggiori di Miastringa

    come si fa?

    grazie.
    Ultima modifica di sal21; 10-02-2015 21:53 

  2. #2
    Se la tua stringa sta nella variabile s, penso che basti un semplice ciclo for ...

        For m = Month(CDate(s)) + 1 To 12
            Print UCase(MonthName(m, True)) & " " & Mid(s, 5)
        Next m
    
    in cui m è un intero ...
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    sal21 non è in linea Scolaretto
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Se la tua stringa sta nella variabile s, penso che basti un semplice ciclo for ...

        For m = Month(CDate(s)) + 1 To 12
            Print UCase(MonthName(m, True)) & " " & Mid(s, 5)
        Next m
    
    in cui m è un intero ...
    grazie Antonio...
    ma non ho capito bene.
    mi puoi fare un esempio con Miastringa="SET 2014"
    Grazie.

  4. #4
    Scusa ... ma più chiaro di così ... ho usato

    s = "SET 2014"
    ℹ️ Leggi di più su AntonioG ...

  5. #5
    sal21 non è in linea Scolaretto
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Scusa ... ma più chiaro di così ... ho usato

    s = "SET 2014"
    spettacolare! tre righe di codice per una soluzione alla quale sto lavorando da 2 giorni.
    Grazie, Antonio.

    ma se hai ancora un po di tempo...

    con lo stesso criterio dovrei fare una cosa del genere:
    Miastringa="2 QUAD 2014" (ovvero il SECONDO quadrimestre del 2014) ritornare, i questo caso solo "3 QUAD 2014"...
    ma se Miastringa="1 QUAD 2014" ritornare, i questo caso "2 QUAD 2014" e "3 QUAD 2014"...

    naturalmente se Miastringa="3 QUAD 2014" essendo l'ultimo quadrimestre non ritornare nulla... ci sono solo 3 quadrimestri in un anno


    il riempimeto del combo

  6. #6
    E' quasi lo stesso ciclo, anzi più semplice ... provaci ...
    ℹ️ Leggi di più su AntonioG ...

  7. #7
    sal21 non è in linea Scolaretto
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    E' quasi lo stesso ciclo, anzi più semplice ... provaci ...
    ho provato una cosa del genere... ma mi sembre non funzionare:-(

    Sub TEST_QUADRIMESTRE()
    
        Dim M As Integer, S As String
    
        'PRIMO QUADRIMESTRE
        S = "1 QUAD 2015"
        'PRIMO QUADRIMESTRE
        
        For M = 1 To 2
            Debug.Print Left(S, 1) + M
        Next M
    
    End Sub
    

  8. #8
        
        For M = Val(S)+1 To 3
            Debug.Print M & Mid(S, 2)
        Next M
    
    ℹ️ Leggi di più su AntonioG ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Maggiori delucidazioni sulla Licenza Windows Xp
    Da rosanna1983 nel forum Microsoft Windows
    Risposte: 2
    Ultimo Post: 19-12-2012, 03:34
  2. sottrai 1 se due celle sono maggiori di 0
    Da trittico69 nel forum Microsoft Word
    Risposte: 10
    Ultimo Post: 28-04-2011, 17:28
  3. Split file maggiori di 2 GB
    Da Disactive nel forum Visual Basic .Net
    Risposte: 10
    Ultimo Post: 02-03-2011, 21:00
  4. mesi commerciali
    Da faffi nel forum Visual Basic 6
    Risposte: 9
    Ultimo Post: 22-03-2006, 16:31
  5. differenza di mesi
    Da papy2 nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 05-02-2006, 12:38