[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
  2.   Select Case NumMois
  3.     Case 1
  4.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Janvier"
  5.     Case 2
  6.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Fevrier"
  7.     Case 3
  8.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Mars"
  9.     Case 4
  10.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Avril"
  11.     Case 5
  12.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Mai"
  13.     Case 6
  14.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Juin"
  15.     Case 7
  16.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Juillet"
  17.     Case 8
  18.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Aout"
  19.     Case 9
  20.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Septembre"
  21.     Case 10
  22.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Octobre"
  23.     Case 11
  24.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Novembre"
  25.     Case 12
  26.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "Decembre"
  27.     Case Else
  28.       MoisEnTouteLettreAPartirDuNumeroPourLesNuls = "ERREUR"
  29.   End Select
  30. 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