begin process at 2012 02 14 09:38:16
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Algorithme

 > 

Divers

 > 

Date de fin de mois


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Date de fin de mois

mercredi 25 juin 2008 à 17:55:30 | Date de fin de mois

tolt

Bonjour,

Avez-vous svp une petite fonction qui vous renvois à partir de la date du jour la date de fin de mois.
Exemple : Nous sommes le 25/06/2008 et la fonction retourne le 30/06/2008.

Merci d'avance de me faire ganger du temps...

Bonne soirée.
tolt
mercredi 25 juin 2008 à 18:20:05 | Re : Date de fin de mois

GURDOUS

Réponse acceptée !
cette fonction je l'utilise dans mes projets. bn chance
apel: text1.text=fundate(25/06/08)

Function Findate(X As String) As Date
Dim m, a, fj As Integer
On Error GoTo r
m = Month(X)
a = Year(X)
If m <= 7 Then
    If m = 2 Then
            If a Mod 4 = 0 Then
                    fj = 29
            Else
                    fj = 28
            End If
    ElseIf m Mod 2 = 0 Then
            fj = 30
    Else
        fj = 31
    End If
Else
    If m Mod 2 = 0 Then
        fj = 31
    Else
        fj = 30
    End If
End If
Findate = Format(fj & "/" & m & "/" & a, "dd/mm/yy")
Exit Function
r:
        MsgBox Err.Description
End Function
mercredi 25 juin 2008 à 18:26:40 | Re : Date de fin de mois

gillardg

en net => Date.DaysInMonth(Today.Year, Today.Month)
 'nombre de jours dans le mois en cours

en vb6 => éssaye

mercredi 25 juin 2008 à 18:27:47 | Re : Date de fin de mois

tolt

ça semble être impec...
Merci et bonne soirée.

tolt
mercredi 25 juin 2008 à 20:34:44 | Re : Date de fin de mois

PCPT

Administrateur CodeS-SourceS
salut,

rhoooo, pas besoin de cette usine à gaz si?
http://www.codyx.org/snippet_obtenir-dernier-jour-mois_15.aspx#92
Private Function GetLastDayOfThisMonth() As Date
     GetLastDayOfThisMonth = DateSerial(Year(Now), Month(Now) + 1, 0)
End Function


avec paramètre :
Private Function GetLastDateOfMonth(ByVal dDate As Date) As Date
     GetLastDateOfMonth = DateSerial(Year(dDate), Month(dDate) + 1, 0)
End Function



Prenez un instant pour répondre à ce sondage svp
jeudi 26 juin 2008 à 08:05:49 | Re : Date de fin de mois

tolt

Super fonction et Merci de l'info.
mardi 19 août 2008 à 17:33:56 | Re : Date de fin de mois

badanaro

Superbe fonction !!!

Merci pour l'aide

Raphaël


Cette discussion est classée dans : fin, fonction, date, mois


Répondre à ce message

Sujets en rapport avec ce message

help! tester si une date existe ou pas... [ par Angelus ] bonjour,Je cherche comment faire pour tester si une date est valide, une fonction que j'utiliserais dans le remplissage d'un calendrier fait avec 42 b Soustraire nombre de mois à une date [ par raff ] Je me sens idiot de ne pas pouvoir soustraire x nombre de mois à une date...en ce moment je le fait avec une fonction qui calcule sur 12 unités puis f fonction retournant le mois d'une date [ par oxram ] Bonjour je recherche une fonction me permettant de récupérer le mois d'une date (exemple 23/05/2005 la fonction devra ma retourner 05)merci de votre a [VBA] Identifier une date la + proche de fin de mois [ par altarez ] Bonjour à tous,Voila, je cherche un code VBA qui identifie parmis un liste de date, celle qui se rapporche le plus de la fin du mois.voici comment se Après avoir entré le numéro du mois recherché, trouver la date de fin du mois (28, 29, 30 ou 31) [ par vicelow5901 ] Bonjours à tous, Je voulais savoir si il y avait une fonction qui permettrai de trouver la date de fin de mois après avoir taper le mois recherché ain date anglaise et francaise [ par xaeris ] bonjour tout le monde, j'ai un petit soucis de format de date. je travaille en vba et ma fonction doit comparer si le mois de mes données et égal au probleme de fin de date [ par thierylaurent ] bonjour, a tous,voila je vous explique je dois concevoir un programme en vb qui aura une durée limiter dans le temps (limiter a un ans) par rapport a controler un datetimerpicker [ par beet2che ] Bonjourau niveau de ma form j'ai deux contrôles de type DateTimePicker et je dois les contrôler de tel que que la date du premier soit inférieur à cel Vba-date-modifier le mois [ par mincealors ] Bonjour à tous,Merci de lire ce post :)En fait, je récupère une date de ma table via une requête : variable dateuhDe même, je récupère un numéro entre Un petit chalenge de programation Objectif, un lien entre oultook et excel .. .Venez lire le sujet ;) [ par Graxy ] Bonjour.Voila 2 jour que j'ai du me mettre à la prog en visual basic pour excel. (cadre professionel)J'ai réussit à faire pas mal de truc qui sont peu


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,089 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales