Bonjour
ce programme donne le jour de la semaine pour une date entre le 1/1/1950 et le 31/12/2049
entrez une date sous la forme 311299 pour 31/12/1999 ce qui donnera "VE" comme vendredi
sans doute le nième programme de ce type de calcul mais j'ai essayé d'utiliser Ans pour avoir le code le plus petit possible (peut-on faire mieux ?) sauf à faire saisir à l’utilisateur la date sous la forme 3112.99 mais ça me parait un peu bizarre cette façon, donc je laisse en forme entière
ce programme donne le jour de la semaine pour une date entre le 1/1/1950 et le 31/12/2049
entrez une date sous la forme 311299 pour 31/12/1999 ce qui donnera "VE" comme vendredi
- Code:
ClrHome
Prompt J
dbd(101.5,J/100
Ans-7iPart(Ans/7
sub("DILUMAMEJEVESA",2Ans+1,2
sans doute le nième programme de ce type de calcul mais j'ai essayé d'utiliser Ans pour avoir le code le plus petit possible (peut-on faire mieux ?) sauf à faire saisir à l’utilisateur la date sous la forme 3112.99 mais ça me parait un peu bizarre cette façon, donc je laisse en forme entière