Come posso avere da un intero il mese corrispondente?:
1 = Gennaio
2 = Feb...
..
..
..
.
Come posso avere da un intero il mese corrispondente?:
1 = Gennaio
2 = Feb...
..
..
..
.
Originariamente inviato da alfdev
Come posso avere da un intero il mese corrispondente?:
1 = Gennaio
2 = Feb...
..
..
..
.![]()
![]()
Pietro
Originariamente inviato da pietro09
![]()
![]()
![]()
La cosa seccante di questo mondo è che gli stupidi sono sicuri di sé, mentre le persone intelligenti sono piene di dubbi. B. Russel
codice:........... NOME_MESE DB "Gennaio$Febbraio$Marzo$Aprile$Maggio$Giugno$Luglio$Agosto$Settembre$Ottobre$Novembre$Dicembre$" IND_MESE DB 0, 8, 17, 23, 30, 37, 44, 51, 58, 68, 76, 85 ........... MOV BL, MESE SUB BL, 1 XOR BH, BH MOV AL, IND_MESE[BX] MOV DX, OFFSET NOME_MESE ADD DL, AL ADC DH, 0 MOV AH, 9h INT 21h ;scrivo mese ...........![]()
Pietro
![]()
ASSEMBLER...?....ke centra.....vabbe' grazie per l'aiuto...
Funzione
e poi nel codicecodice:Public Function ReturnMese(ByVal Mese as Integer) Dim Ritorno as String Select Case Mese Case is 1 Ritorno = "Gennaio" Case is 2 Ritorno = "Febbraio" Case is 3 Ritorno = "Marzo" Case is 4 Ritorno = "Aprile" Case is 5 Ritorno = "Maggio" Case is 6 Ritorno = "Giugno" Case is 7 Ritorno = "Luglio" Case is 8 Ritorno = "Agosto" Case is 9 Ritorno = "Settembre" Case is 10 Ritorno = "Ottobre" Case is 11 Ritorno = "Novembre" Case is 12 Ritorno = "Dicembre" End Select Return Ritorno End Function
codice:response.write(ReturnMese(1)) ' ti ritorna Gennaio![]()