Pb Enregistrement des date avec Delphi6

**Meyer Phil** · 11/09/2013, 12h43

Bonjour,
Débutant en autodidacte en programmation, je me suis lancé sur Delphi6 Perso.
La base de donnée que j'utilise est Formula one fournie avec l'editeur Delphi.

Ma manipulation:
Je sauvegarde mes feuilles du tableur dans des fichiers texte ligne par ligne. Or, à la sauvegarde, les cellules corespondant aux dates ne sont pas enregistrées au format saisie ( jj/mm/aaaa ) mais par la valeur correspondant soit 22/06/1968 donne 25011.
La fonction utilisée pour la lecture et l'écriture de la cellule est
NomTableau.TextRC[nLigne,nColonne]

Mon Probleme:
A la relecture du fichier pour réinitialiser le tableau, tous ce passe correctement sauf pour les dates. L'affichage ce fait par la valeur 25011 au lieu de 22/06/1968.
Par contre si dans le fichier texte obtenu je modifie manuellement la valeur 25011 par son correspondant 22/06/1968, la date s'affiche correctement dans mon tableau à la lecture du fichier.

Ma question:
Comment faire pour, soit enregistrer la date au format jj/mm/aaaa ou écrire dans le tableau la date à ce format à partir de ca valeur ?

J'espere avoir été assez claire et je tiens mes ligne de programation à disposition si nécessaire.

Merci par avance

Philippe MPH

**alheuredudejeuner** · 11/09/2013, 15h31

DateToStr(myDate)

avant de l'enregistrer dans ton tableau Excel.

cordialement

André

**Meyer Phil** · 12/09/2013, 13h55

Merci pour ta réponse André,
Je vais essayé.

Il y a quelque chose que je ne comprend pas, tous les champs du tableau, ne sont il pas de type WideString ? Dans ce cas, pourquoi les dates sont elles gerer comme des TDateTime (semble-t-il) lors de la sauvegarde est que lors de l'écriture dans les champs du tableur seul des string sont accepté ?

Autre question, Formula one et excel c'est la même base ?

Je souhaite rectifier une erreur qui à peut être son importance dans ma présentation, ma version Delphi n'est pas la Pro mais l'édition Personnel

Philippe MPH

**ShaiLeTroll** · 12/09/2013, 14h16

Formula one TF1Book peut fonctionner pour lire et écrire un fichier Excel (surement d'anciens format entre 95 et 2003) SANS qu'Office soit installé

Ils ont tout recodé !
De plus, il me semble que les formules ne sont actualisés QUE lorsque Excel ouvre le fichier !

Et c'est n'est pas une Base de Données, juste un outil pour utiliser un fichier Excel
Ne pas confondre avec ADOConnection couplé avec ACCESS,
là on peut parler de Base de données

TF1Book est remplacé aujourd'hui par TMS FlexCell

N'ayant pas utilisé TF1Book depuis 1999 et n'avoir pas bossé avec les Dates, je n'ai pas de réponse précises !

25011 c'est le nombre de jour entre le 30/12/1899 et le 22/06/1968
Utilise DateToStr pour convertir ton TDateTime en Chaine uu FormatDateTime
Il faut utiliser le format de Date de Excel, j'ignore si en interne il gère que l'Anglais (comme pour le texte des Formulas) et s'adapte aux options régionales en traduisant formule et date au bon format (cela me semblerait être une approche plus portable)

Pense qu'il existe FormattedTextRC, NumberRC, TypeRC
En jouant avec autre chose que TextRC ou EntryRC tu pourrais avoir de meilleur résultat

**Meyer Phil** · 12/09/2013, 15h57

Merci ShaiLeTroll pour ton intervention qui m'éclair un peu plus sur cette outil.
Je vais essayer de tester tous cela.
Pour ce qui est des dates, il semble qu'il gere la format du mon PC soit le Francais.

Pensez vous que je puisse arrivé à quelque chose sans faire appelle à une base de données que je n'ai pas ou serait il préfèrable que je m'oriente sur une StringGrid1 que je ne connais pas mais j'apprendrai ?

Pour info, mon tableau a pour role de gérer mes comptes en banque. Une ligne par opération et pour les colonnes il y a Date, Recette, Dépense et Commentaire.

Philippe MPH

**ShaiLeTroll** · 13/09/2013, 17h30

Tu peux aussi faire une application VBA directement dans ton fichier Excel !

Personnellement, j'en suis encore au stylo et la feuille de papier pour gérer ça !
En tant que professionnel, j'ai des difficultés à donner des solutions faisable pour un amateur surtout avec un si vieux Delphi
En fait, je ne vois pas l'utilité de Delphi par rapport à l'utilisation directe de Excel dans ton cas

Excel est effectivement, très pratique, mais pense que si tu utilises un Office récent, il faudra veiller à conserver un format compatible avec F1Book

**Meyer Phil** · 16/09/2013, 10h02

Bonjour,

En fait pour garder le formatage défini dans le tableau, lors de l'écriture dans une cellule il faut utiliser EntryRC qui renvoie une valeur qui est formatée par la cellule et non TextRC qui renvoie un WideString.

Voici le petit projet qui résume ma recherche pour ceux que cela interesse.
Page1.pas

Pour ce qui est des dates, il semble qu'il gere la format du mon PC soit le Francais.

Je rectifie, la gestion des dates est effectivement en anglais

Par contre, dans mes recherches j'ai trouvé une solution plus simple pour la sauvegarde et la lecture de fichier des tableaux fourni par l'objet F1Book lui même.
Write(Const pPathName:WideString;FileType:Smallint);
et
Read(Const pPathName:WideString;pFileType:Smallint);
Pour plus d'info sur ces 2 procedure voir http://www.developpez.net/forums/d13...etypesmallint/

Merci à tous ceux qui ont passé du temps sur mon probleme.

Bonne journée à tous.
Philippe MPH

**Meyer Phil** · 16/09/2013, 10h08

Rebonjour,

Comment fait on pour :
Dans la citation apparaisse le nom de la personne que l'on cite ?
Que les lignes de programmation apparaissent dans un cadre ?

Philippe MPH

**tourlourou** · 16/09/2013, 10h52

Envoyé par Meyer Phil

Rebonjour,

Comment fait on pour :
Dans la citation apparaisse le nom de la personne que l'on cite ?
Que les lignes de programmation apparaissent dans un cadre ?

Philippe MPH

s'obtient grâce à l'enrichissement de la balise citation : [QUOTE=Meyer Phil;7481009] (on peut omettre le n° du post pour ne citer que l'auteur)

Pour mettre la balise code, il faut utiliser le bouton # de la barre d'outils. Pour un code dans un autre langage, on peut forcer la coloration syntaxique à utiliser :
[CODE=SQL]SELECT * FROM matable[/CODE]

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part