[Access]Nom du mois?

Nom du mois? [Access] - SQL/NoSQL - Programmation

Marsh Posté le 10-07-2002 à 22:06:11    

Salut
 
je voulais savoir si il était possible d'avoir le nom du mois a partir du mois en chiffre sous Access 2k..
Ya t'il une fonction?
merci :jap:

Reply

Marsh Posté le 10-07-2002 à 22:06:11   

Reply

Marsh Posté le 10-07-2002 à 22:20:51    

oui:
 

Code :
  1. Public Function MoisEnTouteLettreAPartirDuNumeroPourLesNuls(NumMois As Integer) As String
  3.   Select Case NumMois
  4.     Case 1
  5.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Janvier"
  7.     Case 2
  8.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Fevrier"
  10.     Case 3
  11.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Mars"
  13.     Case 4
  14.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Avril"
  16.     Case 5
  17.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Mai"
  19.     Case 6
  20.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Juin"
  22.     Case 7
  23.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Juillet"
  25.     Case 8
  26.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Aout"
  28.     Case 9
  29.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Septembre"
  31.     Case 10
  32.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Octobre"
  34.     Case 11
  35.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Novembre"
  37.     Case 12
  38.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Decembre"
  40.     Case Else
  41.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "ERREUR"
  43.   End Select
  45. End Function


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 10-07-2002 à 22:25:12    

oueh c bien ce que je pensais... j'ai fait un équivalent dans une table mois avec les noms des mois et les chiffres.
Merci kan même mareek :)


Message édité par kik le 10-07-2002 à 22:25:37
Reply

Marsh Posté le 11-07-2002 à 13:13:37    

Je suppose que tu peux recomposer la date à partir de jour/mois/année (que tu n'as pas que le mois et même alors dans ce cas...)
 
Public Function MoisEnTouteLettreAPartirDuneDatePourLesPROs(d As Date) As String  
 
    MoisEnTouteLettreAPartirDuneDatePourLesPROs = Format$(d, "MMMM" )
 
End Function
 
a+


Message édité par tegu le 11-07-2002 à 13:16:36
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed