| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 
 |  
Create Function CDATE (@Madate varchar(10))
	RETURNS varchar(8)
AS
BEGIN
	Declare @HH varchar(2),
		@MM char(2),
		@SS char(2)
	--On enlève les ".0"
	--SET @Madate=left(@Madate,len(@Madate)-2)
	--Recuperation des secondes
        IF len(@Madate)>2
		Begin
			--secondes, et il reste les hh et mm
			set @ss=Right(@Madate,2)
			set @Madate=left(@Madate,len(@Madate)- 2)
 
			IF len(@Madate)>2
			--Minutes et il reste les secondes
				begin
					set @mm=Right(@Madate,2)
					set @hh=left(@Madate,len(@Madate)- 2)
				end
			else
				begin
					set @mm=@Madate
					set @hh='00'
				end
		End
        Else
		Begin
			set @ss=@Madate
			set @mm='00'
			set @hh='00'
		End
	if len(@hh)=1 SET @hh= '0' +  @hh
	if len(@mm)=1 SET @mm= '0' +  @mm
	if len(@ss)=1 SET @ss= '0' +  @ss
	Return (@hh + '-' + @mm + '-' + @ss)
END
 
Create Function CTIME (@Madate varchar(10))
	RETURNS varchar(8)
AS
BEGIN
	Declare @HH varchar(2),
		@MM char(2),
		@SS char(2)
	--On enlève les ".0"
	--SET @Madate=left(@Madate,len(@Madate)-2)
	--Recuperation des secondes
        IF len(@Madate)>2
		Begin
			--secondes, et il reste les hh et mm
			set @ss=Right(@Madate,2)
			set @Madate=left(@Madate,len(@Madate)- 2)
 
			IF len(@Madate)>2
			--Minutes et il reste les secondes
				begin
					set @mm=Right(@Madate,2)
					set @hh=left(@Madate,len(@Madate)- 2)
				end
			else
				begin
					set @mm=@Madate
					set @hh='00'
				end
		End
        Else
		Begin
			set @ss=@Madate
			set @mm='00'
			set @hh='00'
		End
	if len(@hh)=1 SET @hh= '0' +  @hh
	if len(@mm)=1 SET @mm= '0' +  @mm
	if len(@ss)=1 SET @ss= '0' +  @ss
	Return (@hh + ':' + @mm + ':' + @ss)
END | 
Partager