PowerBuilder à Donf ! / [SOURCE] Determine le dernier jour du mois de la date en cours

pick ouic · 29-08-2006 08:30:04

Voila une fonction qui vous permettra de déterminer le dernier jour de la date en cours...

importer cette fonction et tester !

Code: pb

$PBExportHeader$f_dernierjourmois.srf
$PBExportComments$donne le dernier jour du mois
global type f_dernierjourmois from function_object
end type

forward prototypes
global function integer f_dernierjourmois (date ad_date)
end prototypes

global function integer f_dernierjourmois (date ad_date);// determine le dernier jour du mois de la date saisie.
Date  ld_tmp

ld_tmp  = RelativeDate( ad_date, 32 - Day( ad_date ) )  
Return  Day( RelativeDate( ld_tmp, 0 - Day( ld_tmp ) ))  

end function

Code: pb

date ld_jour

ld_jour = date(string(today(),'dd/mm/yyyy'))
messagebox("Dernier jour du mois de la date",string(f_dernierjourmois(ld_jour)))

ydl · 09-02-2010 13:13:02

Bonjour

Il y a une autre solution qui est d'extraire le mois de rajouter un.
Composer la date au premier jour et faire un relative date -1

Code: pb

iMonth=MONTH(dDate)
iYear=YEAR(dDate)

iMonth ++
IF iMonth>12 THEN
  iMonth=1
  iYear++
END IF

//sMonth=STRING(iMonth,"00")
//sYear=STRING(iYear,"0000")
//[s]dRet=DATE("01/"+iMonth+"/"+iYear)[/s]

dRet=Date ( iYear, month, day )

dRet=RelativeDate(dRet,-1)

RETURN(dRet)

J'ai modifié ,c'est plus propre ainsi et gère le format mm/dd/yy

Dernière modification par ydl (06-05-2011 12:17:43)

foon · 09-02-2010 13:16:33

Merci pour le truc, mais please

erasorz · 09-02-2010 13:38:16

Allez, tant qu'à faire, encore plus simple avec Oracle :

Code: pb

SELECT LAST_DAY( :ld_date ) INTO :ld_last FROM DUAL ;

ydl · 17-02-2010 17:00:29

Oui mais cela charge le serveur oracle non ?

erasorz · 18-02-2010 07:21:28

ydl a écrit:
Oui mais cela charge le serveur oracle non ?

une requête comme ça doit prendre 1/1000ème de seconde, je pense pas que le serveur soit à genou...

foon · 18-02-2010 08:02:38

Par contre, si tu l'appelles toutes les deux lignes dans ton code depuis PB, tu peux saturer le réseau.
A toi de l'utiliser à bon escient

JCZ · 18-02-2010 09:13:58

pour sqlserveur

Code: mssql

DECLARE @Dte DATETIME
SET @Dte = GETDATE()

SET @Dte=DATEADD(MONTH, 1,@Dte )
print DATEADD(DAY, -DAY(@Dte), @Dte)

à utiliser tel que ou à transformer en fonction ....

PB à toute heure et à tout moment. (à parcourir avec modération)

Annonce

#1 29-08-2006 08:30:04

[SOURCE] Determine le dernier jour du mois de la date en cours

Code: pb

Code: pb

#2 09-02-2010 13:13:02

Re: [SOURCE] Determine le dernier jour du mois de la date en cours

Code: pb

#3 09-02-2010 13:16:33

Re: [SOURCE] Determine le dernier jour du mois de la date en cours

#4 09-02-2010 13:38:16

Re: [SOURCE] Determine le dernier jour du mois de la date en cours

Code: pb

#5 17-02-2010 17:00:29

Re: [SOURCE] Determine le dernier jour du mois de la date en cours

#6 18-02-2010 07:21:28

Re: [SOURCE] Determine le dernier jour du mois de la date en cours

ydl a écrit:

#7 18-02-2010 08:02:38

Re: [SOURCE] Determine le dernier jour du mois de la date en cours

#8 18-02-2010 09:13:58

Re: [SOURCE] Determine le dernier jour du mois de la date en cours

Code: mssql

Pied de page des forums