Ciao..una funzione specifica per quello che hai chiesto non esiste, cmq potresti sempre fare ciò tramite un select case:
Cmq tanto per darti una idea di come procedere..codice:Private Sub Form_Load() MsgBox Mese(2) End Sub Public Function Mese(ByVal Numero As Byte) As String Select Case Numero Case Is = 1 Mese = "Gennaio" Case Is = 2 Mese = "Febbraio" Case Is = 3 Mese = "Marzo" Case Is = 4 Mese = "Aprile" 'ecc.. Case Else MsgBox "Il numero inserito non è valido", vbCritical, "Errore" End Select End Function
Ciao

Rispondi quotando