# Fonction PCODE ID = 860027343
REGISTRE POINTEUR pt_DATE_CET


REGISTRE ENTIER	erreur

#REGISTRE POINTEUR pt_DATE_CET
REGISTRE POINTEUR pt_Mois
REGISTRE POINTEUR pt_Val_Mois
REGISTRE POINTEUR pt_temp1
REGISTRE POINTEUR pt_DATE
REGISTRE POINTEUR pt_annee
REGISTRE POINTEUR pt_jour
REGISTRE POINTEUR pt_heure
REGISTRE POINTEUR pt_minute
REGISTRE POINTEUR pt_seconde


#pt_DATE_CET	= "pt_DATE_CETpt_DATE_CETpt_DATE_CETpt_DATE_CETpt_DATE_CETpt_DATE" 
pt_Mois		= "pt_Mois"
pt_Val_Mois	= "pt_Val_Mois"
pt_temp1	= "pt_temp1pt_temp1pt_temp1pt_temp1pt_temp1pt_temp1pt_temp1pt_temp1"
pt_DATE		= "pt_DATEpt_DATEpt_DATEpt_DATEpt_DATEpt_DATEpt_DATEpt_DATEpt_DATEpt_DATE"
pt_annee	= "pt_annee"
pt_jour		= "pt_jour"
pt_heure	= "pt_heure"
pt_minute	= "pt_minute"
pt_seconde	= "pt_seconde"


#i_strcpy(pt_DATE_CET, "")
i_strcpy(pt_Mois, "")
i_strcpy(pt_Val_Mois, "")
i_strcpy(pt_annee, "")
i_strcpy(pt_temp1, "")
i_strcpy(pt_DATE, "")
i_strcpy(pt_jour, "")
i_strcpy(pt_heure, "")
i_strcpy(pt_minute, "")
i_strcpy(pt_seconde, "")

erreur = 0


pt_DATE_CET = depilerPOINTEUR()

SI (i_adequation_chaine_expreg (pt_DATE_CET, "^\"") == 0) 
ALORS
	i_get_sub_str(pt_DATE_CET,1,-2,pt_DATE_CET)
FINSI

i_get_sub_str(pt_DATE_CET, 24, 27, pt_annee)
i_strcpy(pt_DATE, pt_annee)

i_get_sub_str(pt_DATE_CET, 17, 19, pt_Mois)

SI i_strcmp(pt_Mois, "JAN") == 0
ALORS
	i_strcpy(pt_Val_Mois,"01")
SINON
	SI i_strcmp(pt_Mois, "FEB") == 0
	ALORS
		i_strcpy(pt_Val_Mois,"02")
	SINON
		SI i_strcmp(pt_Mois, "MAR") == 0
		ALORS
			i_strcpy(pt_Val_Mois,"03")
		SINON
			SI i_strcmp(pt_Mois, "APR") == 0
			ALORS
				i_strcpy(pt_Val_Mois,"04")
			SINON
				SI i_strcmp(pt_Mois, "MAY") == 0
				ALORS
					i_strcpy(pt_Val_Mois,"05")
				SINON
					SI i_strcmp(pt_Mois, "JUN") == 0
					ALORS
						i_strcpy(pt_Val_Mois,"06")
					SINON
						SI i_strcmp(pt_Mois, "JUL") == 0
						ALORS
							i_strcpy(pt_Val_Mois,"07")
						SINON
							SI i_strcmp(pt_Mois, "AUG") == 0
							ALORS
								i_strcpy(pt_Val_Mois,"08")
							SINON
								SI i_strcmp(pt_Mois, "SEP") == 0
								ALORS
									i_strcpy(pt_Val_Mois,"09")
								SINON
									SI i_strcmp(pt_Mois, "OCT") == 0
									ALORS
										i_strcpy(pt_Val_Mois,"10")
									SINON
										SI i_strcmp(pt_Mois, "NOV") == 0
										ALORS
											i_strcpy(pt_Val_Mois,"11")
										SINON
											SI i_strcmp(pt_Mois, "DEC") == 0
											ALORS
												i_strcpy(pt_Val_Mois,"12")
											FINSI
										FINSI
									FINSI
								FINSI
							FINSI
						FINSI
					FINSI
				FINSI
			FINSI
		FINSI
	FINSI
FINSI

erreur = i_format_str2(pt_temp1,"%s%s",pt_DATE,pt_Val_Mois)
i_strcpy(pt_DATE, pt_temp1)

i_get_sub_str(pt_DATE_CET, 21, 22, pt_jour)
erreur = i_format_str2(pt_temp1,"%s%s",pt_DATE,pt_jour)
i_strcpy(pt_DATE, pt_temp1)

i_get_sub_str(pt_DATE_CET, 0, 1, pt_heure)
erreur = i_format_str2(pt_temp1,"%s%s",pt_DATE,pt_heure)
i_strcpy(pt_DATE, pt_temp1)

i_get_sub_str(pt_DATE_CET, 3, 4, pt_minute)
erreur = i_format_str2(pt_temp1,"%s%s",pt_DATE,pt_minute)
i_strcpy(pt_DATE, pt_temp1)

i_get_sub_str(pt_DATE_CET, 6, 7, pt_seconde)
erreur = i_format_str2(pt_temp1,"%s%s",pt_DATE,pt_seconde)
i_strcpy(pt_DATE, pt_temp1)

RETOUR pt_DATE

